#
#                #       RUN SCRIPT FOR runplxy           #
#                #                                        #
#                #      To run either plxy.f or pvel.f                                  #
#                #      cp apprpriately
#                # SUBMIT: gsub  runpmod                  #
#                #         qstat -a   to see status on YMP#
#                ##########################################
#
#     prior. tmp/space  time lim. mem lim.
#                      (280s/day)
#
#QSUB -Gp oa1 -Gf 1 -lT    800   -lM  3Mw -lm   3Mw
#
cd $FTMPDIR                          #run in temp dir.
#
# SET ALL PARAMETERS AND FILE NAME IN THE NEXT 3 LINES
#
set COL = 0       # 0 for monochrom B&W ; 1 for COLOR picture
setenv DISPLAY vortex.princeton.edu:0  
#
set wd = /t90/glm/pom/pomr2              
#
set infile=dataout   
#
echo '      LMAX=6         '>params
echo '      NITS=4         '>>params
echo '      OPEN(40,FILE="'/t90/glm/pom/pomr2/dataout.30orl'",\
     l  FORM="'unformatted'")' >>params
 cp $wd/plxyvec.f code.f
#
setenv FILENV .assign
#dmget $ad/inputdata/{inicond,eminp.inp}
#dmget /archive/o/glm/MED/$infile  
#assign -a $ad/inputdata/inicond fort.40
#assign -a $ad/inputdata/eminp.inp fort.50
#assign -a /archive/o/glm/MED/$infile fort.50 
#
date>out
cat $wd/runpl>>out
#
#
echo " begin compilation"
if ( $COL == "1" ) then
#
set ps = ps.color
#cpsgraphics
#chcopy
else
#
set ps = ps.mono
#psgraphics
#mhcopy
endif
#
ncargf77 code.f
a.out>>out
echo "Code compiled, begin execution"
ctrans -d $ps gmeta > post         # hard copy
#ctrans -pal white -d X11 gmeta                # on screen
#
#
#
\mv post $wd/.
\mv out $wd/.
cd $wd
#
echo "plotting program terminated"
#