%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% XY PLANE PICTURES
\begin{TIOS}

(pl/chan) setplotname

(/home/senya/work/model/MC_PG/senq/Inew.rc) run

/to_Z { 
 L /Z /m ordered 
[167 500 833 1167 1500 1833 ]
 NewGRID replaceGRID Z last first RANGE
} def

\end{TIOS}	

\begin{STREAMS} 

/mask MASK > DEPTH 0 mul T first VALUE T removeGRID def
/XOVY 2. def

BARO
PSI 1000000 div T last VALUE X Y CONTOUR

STR_XY
TEMP  T last VALUE mask add L [1 3 6] VALUES X Y CONTOUR
U_VEL T last VALUE mask add X 5 VALUE to_Z Y Z CONTOUR
V_VEL T last VALUE mask add Y 52 VALUE to_Z X Z CONTOUR

\end{STREAMS}