%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% XY PLANE PICTURES \begin{TIOS} \end{TIOS} \begin{STREAMS} /cice ICE2 > CICE def /mask STR_XY > TEMP 0 mul T first VALUE T removeGRID def STR_XY %cice mask add L 1 VALUE T last VALUE X Y 2 REORDER DATA -.5 1.5 RANGE %TEMP L 1 VALUE T last VALUE X Y 2 REORDER DATA 1 STEP TEMP L 1 VALUE T last VALUE X Y 2 REORDER DATA -4 10 RANGE cice L 1 VALUE T last VALUE X Y 2 REORDER DATA .2 STEP %U_VEL L 1 VALUE T last VALUE X Y 2 REORDER %V_VEL L 1 VALUE T last VALUE X Y 2 REORDER %/arrowsperinch 12 def %/CSCALE 2e-4 def /XOVY 2 def %TEMP L 5 VALUE T last VALUE X Y 2 REORDER DATA 5 5.7 RANGE %TEMP L 5 VALUE T last VALUE X Y 2 REORDER DATA .1 STEP %U_VEL L 5 VALUE T last VALUE X Y 2 REORDER %V_VEL L 5 VALUE T last VALUE X Y 2 REORDER %/arrowsperinch 8 def %/CSCALE 1e-4 def %/XOVY 1 def % X Y fig: /plotname (gin) def rainbowcolormap colors contours %vectors %land :fig .ps %:fig .gif % use this next line to produce a postscript file with just the color bar %:fig .auxfig .ps \end{STREAMS}