######################################################################## # if the job is submitted from the IBM you need the following JCL # if the job is submitted from the Cray disregard ######################################################################## # //JOB CARD //* //CRAYSUB EXEC CRAY //SYSIN DD * CRSUBMIT FILE(INSTRM) NOTIFY(userid) HOLD PRINT(X) //INSTRM DD DATA,DLM='%%' # user=userid pw=passwrd # ######################################################################## # if the job is submitted from the IBM you need the above JCL # if the job is submitted from the Cray disregard ######################################################################## # #QSUB -A sponsorcode #QSUB -q short -eo #QSUB -lM 7MW -lm 7MW #QSUB -lT 600 -lt 600 set -x # ######################################################################## # move to a temporary directory # all the files created on the cray during this job will be removed # after the end of the run ######################################################################## # cd $TMPDIR # ######################################################################## # if the 2E job is submitted from the IBM: ######################################################################## # ######################################################################## # get the interface and data files # in case of interface formatted files the fetch statements will be # # fetch iffdata -t'dsn=usrid.iffile.data' # fetch datdata -t'dsn=usrid.ifdata.data' ######################################################################## # fetch iffdata -fTB -t'dsn=usrid.iffile.data' fetch datdata -fTB -t'dsn=usrid.ifdata.data' # ######################################################################## # if the 2E job is submitted from the Cray: ######################################################################## # ######################################################################## # get the interface and data files from the IBM # in case of interface unformatted files the fetch statements will be #fetch fort.11 -me_ -fTB -t'dsn=usrid.iffile.data,disp=shr' #fetch fort.12 -me_ -fTB -t'dsn=usrid.ifdata.data,disp=shr' # .... if a GIIS step has run before on the same job in a previous step # only move the already created fort.41 into fort.12 #mv fort.41 fort.12 ######################################################################## # fetch fort.11 -me_ -t'dsn=usrid.iffile.data,disp=shr' fetch fort.12 -me_ -t'dsn=usrid.ifdata.data,disp=shr' # ######################################################################## # assign fortran units ######################################################################## # FILENV=assign export FILENV assign -a termout fort.9 assign -a iffdata fort.11 assign -a datdata fort.12 assign -a binres fort.19 assign -a simdat fort.20 # or assign -a normpt fort.20 assign -a ematrx fort.71 # ######################################################################## # run GEODYN IIE VERSION YYMM ######################################################################## # ja /u2/zmscr/geodyn/giieyymm ja -scft # ######################################################################## # run the binary residual program if applies and dispose the # created residual file on fort.20 back to the IBM # IMPORTANT: The binary residual file should not be used in the case # of normal point generation or simulated data generation because # fort.20 is used to catalog the GEODYN II binary generated observations ######################################################################## # if [ -s fort.19 ] ; then /u2/zcjjm/geodyn/binrcnv.yymm # # THE CHARACTER \ IS A CONTINUATION CHARACTER. HOWEVER, THIS # CHARACTER HAS THE WRONG HEX REPRESENTATION FOR THE CRAY # WHEN TYPING IN THIS CHARACTER FOR THE FIRST TIME ON THE IBM YOU MUST # CHANGE ITS HEX REPRESENTATION. TO DO THIS DO A GLOBAL CHANGE # FROM '\' TO X'E0'. # dispose fort.20 -fTB -me_ -t'dsn=userid.resid.data,'\ 'dcb=(recfm=vbs,lrecl=x,blksize=15476),'\ 'space=(trk,(200,100),rlse),'\ 'disp=(new,catlg,delete),unit=userda' fi # ######################################################################## # The following applies to simulated data generation runs or # normal point generation runs where the user wants to save the # GEODYN II binary observation file on the IBM ######################################################################## # dispose simdat -fTB -me_ -t'dsn=userid.simdat.data,'\ 'dcb=(recfm=vbs,lrecl=x,blksize=15476),'\ 'space=(trk,(200,100),rlse),'\ 'disp=(new,catlg,delete),unit=userda' # or dispose normpt -fTB -me_ -t'dsn=userid.normpt.data,'\ 'dcb=(recfm=vbs,lrecl=x,blksize=15476),'\ 'space=(trk,(200,100),rlse),'\ 'disp=(new,catlg,delete),unit=userda' # ######################################################################## # put the new emat onto the IBM for EMATRX runs only ######################################################################## # dispose ematrx -fTB -me_ -t'dsn=userid.emat.data,'\ 'dcb=(recfm=vbs,lrecl=x,blksize=15476),'\ 'space=(trk,(200,100),rlse),'\ 'disp=(new,catlg,delete),unit=userda' # ######################################################################## # print output files ######################################################################## # ######################################################################## # terminal output if requested with TERMVU input card ######################################################################## # if [ -s fort.9 ] ; then cat termout # ######################################################################## # Keplerian and Cartesian ephemerides ######################################################################## # cat fort.8 cat fort.10 # ######################################################################## # remove miscellaneous files ######################################################################## # rm -f * %% //