%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% XY PLANE PICTURES
\begin{TIOS}
(/home/senya/work/model/MC_PG/senq/Inew.rc) run

/to_Z { 
 L /Z /m ordered 
 [20 60 100 160 250 400 600 900 1875 2625 3500]  
 NewGRID replaceGRID Z last first RANGE
} def

/topz {to_Z Z [20 100] VALUES} def
/botz {to_Z Z [900 3500] VALUES} def

/XOVY auto def

\end{TIOS}	

\begin{STREAMS} 
/mask MASK > DEPTH 0 mul T first VALUE T removeGRID def

BARO
PSI T last VALUE 1000000 div X Y CONTOUR

/XOVY 3. def
STR_XY
TEMP T last VALUE X 200 VALUE to_Z Y Z COLOR
U_VEL T last VALUE X 200 VALUE to_Z Y Z CONTOUR

/XOVY auto def
STR_XY
TEMP T last VALUE topz X Y COLOR
TEMP mask add T last VALUE botz X Y COLOR
/arrowsperinch 10 def
/CSCALE 1.e-3 def
U_VEL T last VALUE topz V_VEL T last VALUE topz X Y VECTOR
/CSCALE 1.e-4 def
U_VEL mask add T last VALUE botz V_VEL T last VALUE botz X Y VECTOR

MEANS
T_MEAN L first VALUE T last VALUE X Y  CONTOUR

%ATM3  
%PBLHUM_qa  X Y COLOR
%PBLTEM_th  X Y COLOR
%AIRHUM_q  X Y COLOR
%AIRTEM_t X Y COLOR

\end{STREAMS}