%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% XY-PLANE MOVIES
\begin{TIOS} 
\end{TIOS} 

\begin{STREAMS} 
GL /plotname (MCPG Model) def

/xsize 1000 def
/Ysize 600  def
/ysize Ysize 2 div def
/N 3 def
/XOVY 1.5 def
/my {/history()def} def
/2date {showunitsdict begin date end}def

/DEPTH TIOS >STR_XY >DEPTH def
/TEMP TIOS >STR_XY >TEMP def
/U_VEL TIOS >STR_XY >U_VEL def
/V_VEL TIOS >STR_XY >V_VEL def

xsize ysize startplot

%%%%% plots time range at the ends of the timebar
 startfront 0.7 scale
  0 ysize 40 sub .7 div moveto DEPTH >T >first 2date show
  xsize 200 add ysize 40 sub 0.7 div moveto DEPTH >T >last 2date show 
 endfront

%%%%% plots N pictures 
/plotsize xsize 60 sub N div def
 white background black

  10 10 moveto  TEMP L first VALUE DATA  24 31 RANGE my X Y COLOR
  10  0 rmoveto U_VEL L first VALUE DATA  -1. .5 RANGE my X Y COLOR
  10  0 rmoveto V_VEL L first VALUE DATA -0.25 0.25 RANGE my X Y COLOR
%  10 10 moveto  DEPTH L last  VALUE DATA  -500 -300 RANGE my X Y CONTOUR
%  10  0 rmoveto TEMP  L first VALUE DATA  20 29 RANGE my X Y CONTOUR
%  10  0 rmoveto U_VEL L first VALUE DATA -0.03 0.03 RANGE my X Y CONTOUR
 black background white

%%%%% plots a long timebar at the top of a screen
 /plotsize xsize def 30 ysize 30 sub moveto white timebar

endplot

\end{STREAMS}