#
# QSUB -s /bin/csh
# QSUB -lQ 95000000     # SSD requirements in bytes
# QSUB -lT 600          # time limit in seconds
# QSUB -q prem          # queue to be used, prem, reg, econ, sb, sds_test, lm
# QSUB -lM 8Mw          # space used in megawords
# QSUB -nr
## QSUB -A  75000301	# lm gau proj num (can be used with any queue)
#newacct 75000301	# used with interactive runs only
ja
cd $TMPDIR
batchname mproc_cirris.out
#
# Jobstep modelproc for cirris run (for John Wise)
# This script assumes modelproc.cirris already built by mproc_tgcm20, 
#   with tgcm20 in the cirris configuration
#
# 8/14/96: modified for 6 cases using new cirris run with RGR96/TSCIR01-08
#
msread modelproc /FOSTER/bin/modelproc_cirris
chmod u+x modelproc
#
# 1st run: 30:16 -52.5,130.
#
modelproc << 'EOF'
 ;
 &input_proc
E
 ;          FE   FP   FPT  VT  VU  VV  DIFKK   DIFKT   NO+
 ifields =  0,   0,   0,   0,  0,  0,  0,      0,      0,
 ;          QTOTAL QSOLAR QJOULE RADCOOL CO2COOL O3PCOOL NOCOOL
	    0,     0,     0,     0,      1,      0,      1,
 ;          VAR1  VAR2  VAR3  VAR4  VAR5  VAR6  VAR7  VAR8  VAR9  VAR10
	    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
 idegperday = 0
 ipltxyloc = 1
   xylocs = -52.5,130.
   xyloc_htscale = 100.,200.,1.
   ixyloc_yaxright = 2                  ; extra right-hand y-axes
   ixyloc_log10 = 0                     ; log10 flag
 outplt = 'ps'		; plot output type(s) ('cgm' and/or 'ps')
 ;sendps =  'vishnu.hao:/d/foster/jwise/cirris/tscir03.ut16.ps'
 senddat = 'vishnu.hao:/d/foster/jwise/cirris/tscir03.ut16.dat'
 &end_proc
C
 LABEL='TGCM20 time-gcm for modelproc (ZSB = -17)'
 DATE=1991,116
 MAGVOL='ECRIDLEY','ECR90','ECRMG6'
CSOURCE='ROBLE','RGR95','TSCIR23',30,16,0
 SOURCE='ROBLE','RGR96','TSCIR03',30,16,0
 OUTPUT='FOSTER','SCRATCH','SCRATCH'
 START=30,16,0
 STOP=30,16,3
 HIST=0,0,3
 SAVE= 0,0,3
 TIDE=0.,0.,0.,0.,0.,0.,0.,0.,0.,0.
 TIDE2=32.E+2,11.5
 TIDE3M3=0.,0.
 STEP=180
 MAG=-74.5,127.,79.,-70.
 DIFHOR=1
 IUIVI=1
 AURORA=1
 DISPOSE=0
 COLFAC=1.5
 ENDOFREAD
 F107 = 161.7
 F107A =205.7
 OLDALF=1
 POWER=33.3
 CTPOTEN=71.48
 ALFA30=15.
 E30=1.E-20
 ED2=1.E-20
 ALFAD2=10.
 BYIMF = 0.
 ENDOFREAD
'EOF'
#
# 2nd run: 30:17 -12.5,160.
#
if (-e DATA) rm DATA 
if (-e HISTCPY) rm HISTCPY 
if (-e SOURCE) rm SOURCE 
if (-e fort.8) rm fort.8
if (-e fort.9) rm fort.9
if (-e fort.15) rm fort.15
if (-e modelproc.dat) rm modelproc.dat
modelproc << 'EOF'
 ;
 &input_proc
E
 ;          FE   FP   FPT  VT  VU  VV  DIFKK   DIFKT   NO+
 ifields =  0,   0,   0,   0,  0,  0,  0,      0,      0,
 ;          QTOTAL QSOLAR QJOULE RADCOOL CO2COOL O3PCOOL NOCOOL
	    0,     0,     0,     0,      1,      0,      1,
 ;          VAR1  VAR2  VAR3  VAR4  VAR5  VAR6  VAR7  VAR8  VAR9  VAR10
	    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
 idegperday = 0
 outplt = 'ps'		; plot output type(s) ('cgm' and/or 'ps')
 ipltxyloc = 1
   xylocs = -12.5,160.
   xyloc_htscale = 100.,200.,1.
   ixyloc_yaxright = 2                  ; extra right-hand y-axes
   ixyloc_log10 = 0                     ; log10 flag
 ;sendps = 'vishnu.hao:/d/foster/jwise/cirris/tscir04.ut17a.ps'
 senddat = 'vishnu.hao:/d/foster/jwise/cirris/tscir04.ut17a.dat'
 &end_proc
C
 LABEL='TGCM20 time-gcm for modelproc (ZSB = -17)'
 DATE=1991,116
 MAGVOL='ECRIDLEY','ECR90','ECRMG6'
CSOURCE='ROBLE','RGR95','TSCIR23',30,17,0
 SOURCE='ROBLE','RGR96','TSCIR04',30,17,0
 OUTPUT='FOSTER','SCRATCH','SCRATCH'
 START=30,17,0
 STOP=30,17,3
 HIST=0,0,3
 SAVE= 0,0,3
 TIDE=0.,0.,0.,0.,0.,0.,0.,0.,0.,0.
 TIDE2=32.E+2,11.5
 TIDE3M3=0.,0.
 STEP=180
 MAG=-74.5,127.,79.,-70.
 DIFHOR=1
 IUIVI=1
 AURORA=1
 DISPOSE=0
 COLFAC=1.5
 ENDOFREAD
 F107 = 161.7
 F107A =205.7
 OLDALF=1
 POWER=32.68
 CTPOTEN=70.77
 ALFA30=15.
 E30=1.E-20
 ED2=1.E-20
 ALFAD2=10.
 BYIMF = 0.
 ENDOFREAD
'EOF'
#
# 3rd run: 30:17 -47.5,35.
#
if (-e DATA) rm DATA 
if (-e HISTCPY) rm HISTCPY 
if (-e SOURCE) rm SOURCE 
if (-e fort.8) rm fort.8
if (-e fort.9) rm fort.9
if (-e fort.15) rm fort.15
if (-e modelproc.dat) rm modelproc.dat
modelproc << 'EOF'
 ;
 &input_proc
E
 ;          FE   FP   FPT  VT  VU  VV  DIFKK   DIFKT   NO+
 ifields =  0,   0,   0,   0,  0,  0,  0,      0,      0,
 ;          QTOTAL QSOLAR QJOULE RADCOOL CO2COOL O3PCOOL NOCOOL
	    0,     0,     0,     0,      1,      0,      1,
 ;          VAR1  VAR2  VAR3  VAR4  VAR5  VAR6  VAR7  VAR8  VAR9  VAR10
	    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
 idegperday = 0
 outplt = 'ps'		; plot output type(s) ('cgm' and/or 'ps')
 ipltxyloc = 1
   xylocs = -47.5,35.
   xyloc_htscale = 100.,200.,1.
   ixyloc_yaxright = 2                  ; extra right-hand y-axes
   ixyloc_log10 = 0                     ; log10 flag
 ;sendps = 'vishnu.hao:/d/foster/jwise/cirris/tscir04.ut17b.ps'
 senddat = 'vishnu.hao:/d/foster/jwise/cirris/tscir04.ut17b.dat'
 &end_proc
C
 LABEL='TGCM20 time-gcm for modelproc (ZSB = -17)'
 DATE=1991,116
 MAGVOL='ECRIDLEY','ECR90','ECRMG6'
CSOURCE='ROBLE','RGR95','TSCIR23',30,17,0
 SOURCE='ROBLE','RGR96','TSCIR04',30,17,0
 OUTPUT='FOSTER','SCRATCH','SCRATCH'
 START=30,17,0
 STOP=30,17,3
 HIST=0,0,3
 SAVE= 0,0,3
 TIDE=0.,0.,0.,0.,0.,0.,0.,0.,0.,0.
 TIDE2=32.E+2,11.5
 TIDE3M3=0.,0.
 STEP=180
 MAG=-74.5,127.,79.,-70.
 DIFHOR=1
 IUIVI=1
 AURORA=1
 DISPOSE=0
 COLFAC=1.5
 ENDOFREAD
 F107 = 161.7
 F107A =205.7
 OLDALF=1
 POWER=32.68
 CTPOTEN=70.77
 ALFA30=15.
 E30=1.E-20
 ED2=1.E-20
 ALFAD2=10.
 BYIMF = 0.
 ENDOFREAD
'EOF'
#
# 4th run: 31:02 -42.5,-35.
#
if (-e DATA) rm DATA 
if (-e HISTCPY) rm HISTCPY 
if (-e SOURCE) rm SOURCE 
if (-e fort.8) rm fort.8
if (-e fort.9) rm fort.9
if (-e fort.15) rm fort.15
if (-e modelproc.dat) rm modelproc.dat
modelproc << 'EOF'
 ;
 &input_proc
E
 ;          FE   FP   FPT  VT  VU  VV  DIFKK   DIFKT   NO+
 ifields =  0,   0,   0,   0,  0,  0,  0,      0,      0,
 ;          QTOTAL QSOLAR QJOULE RADCOOL CO2COOL O3PCOOL NOCOOL
	    0,     0,     0,     0,      1,      0,      1,
 ;          VAR1  VAR2  VAR3  VAR4  VAR5  VAR6  VAR7  VAR8  VAR9  VAR10
	    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
 idegperday = 0
 outplt = 'ps'		; plot output type(s) ('cgm' and/or 'ps')
 ipltxyloc = 1
   xylocs = -42.5,-35.
   xyloc_htscale = 100.,200.,1.
   ixyloc_yaxright = 2                  ; extra right-hand y-axes
   ixyloc_log10 = 0                     ; log10 flag
 ;sendps = 'vishnu.hao:/d/foster/jwise/cirris/tscir06.ut2.ps'
 senddat = 'vishnu.hao:/d/foster/jwise/cirris/tscir06.ut2.dat'
 &end_proc
C
 LABEL='TGCM20 time-gcm for modelproc (ZSB = -17)'
 DATE=1991,116
 MAGVOL='ECRIDLEY','ECR90','ECRMG6'
CSOURCE='ROBLE','RGR95','TSCIR25',31,2,0
 SOURCE='ROBLE','RGR96','TSCIR06',31,2,0
 OUTPUT='FOSTER','SCRATCH','SCRATCH'
 START=31,2,0
 STOP=31,2,3
 HIST=0,0,3
 SAVE= 0,0,3
 TIDE=0.,0.,0.,0.,0.,0.,0.,0.,0.,0.
 TIDE2=32.E+2,11.5
 TIDE3M3=0.,0.
 STEP=180
 MAG=-74.5,127.,79.,-70.
 DIFHOR=1
 IUIVI=1
 AURORA=1
 DISPOSE=0
 COLFAC=1.5
 ENDOFREAD
 F107 = 161.7
 F107A =205.7
 OLDALF=1
 POWER=31.00
 CTPOTEN=68.9
 ALFA30=15.
 E30=1.E-20
 ED2=1.E-20
 ALFAD2=10.
 BYIMF = 0.
 ENDOFREAD
'EOF'
#
# 5th run: 31:03 67.5,95.
#
if (-e DATA) rm DATA 
if (-e HISTCPY) rm HISTCPY 
if (-e SOURCE) rm SOURCE 
if (-e fort.8) rm fort.8
if (-e fort.9) rm fort.9
if (-e fort.15) rm fort.15
if (-e modelproc.dat) rm modelproc.dat
modelproc << 'EOF'
 ;
 &input_proc
E
 ;          FE   FP   FPT  VT  VU  VV  DIFKK   DIFKT   NO+
 ifields =  0,   0,   0,   0,  0,  0,  0,      0,      0,
 ;          QTOTAL QSOLAR QJOULE RADCOOL CO2COOL O3PCOOL NOCOOL
	    0,     0,     0,     0,      1,      0,      1,
 ;          VAR1  VAR2  VAR3  VAR4  VAR5  VAR6  VAR7  VAR8  VAR9  VAR10
	    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
 idegperday = 0
 outplt = 'ps'		; plot output type(s) ('cgm' and/or 'ps')
 ipltxyloc = 1
   xylocs = 67.5,95.
   xyloc_htscale = 100.,200.,1.
   ixyloc_yaxright = 2                  ; extra right-hand y-axes
   ixyloc_log10 = 0                     ; log10 flag
 ;sendps = 'vishnu.hao:/d/foster/jwise/cirris/tscir06.ut3a.ps'
 senddat = 'vishnu.hao:/d/foster/jwise/cirris/tscir06.ut3a.dat'
 &end_proc
C
 LABEL='TGCM20 time-gcm for modelproc (ZSB = -17)'
 DATE=1991,116
 MAGVOL='ECRIDLEY','ECR90','ECRMG6'
CSOURCE='ROBLE','RGR95','TSCIR25',31,3,0
 SOURCE='ROBLE','RGR96','TSCIR06',31,3,0
 OUTPUT='FOSTER','SCRATCH','SCRATCH'
 START=31,3,0
 STOP=31,3,3
 HIST=0,0,3
 SAVE= 0,0,3
 TIDE=0.,0.,0.,0.,0.,0.,0.,0.,0.,0.
 TIDE2=32.E+2,11.5
 TIDE3M3=0.,0.
 STEP=180
 MAG=-74.5,127.,79.,-70.
 DIFHOR=1
 IUIVI=1
 AURORA=1
 DISPOSE=0
 COLFAC=1.5
 ENDOFREAD
 F107 = 161.7
 F107A =205.7
 OLDALF=1
 POWER=31.00
 CTPOTEN=68.9
 ALFA30=15.
 E30=1.E-20
 ED2=1.E-20
 ALFAD2=10.
 BYIMF = 0.
 ENDOFREAD
'EOF'
#
# 6th run: 31:03 47.5,55.
#
if (-e DATA) rm DATA 
if (-e HISTCPY) rm HISTCPY 
if (-e SOURCE) rm SOURCE 
if (-e fort.8) rm fort.8
if (-e fort.9) rm fort.9
if (-e fort.15) rm fort.15
if (-e modelproc.dat) rm modelproc.dat
modelproc << 'EOF'
 ;
 &input_proc
E
 ;          FE   FP   FPT  VT  VU  VV  DIFKK   DIFKT   NO+
 ifields =  0,   0,   0,   0,  0,  0,  0,      0,      0,
 ;          QTOTAL QSOLAR QJOULE RADCOOL CO2COOL O3PCOOL NOCOOL
	    0,     0,     0,     0,      1,      0,      1,
 ;          VAR1  VAR2  VAR3  VAR4  VAR5  VAR6  VAR7  VAR8  VAR9  VAR10
	    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
 idegperday = 0
 outplt = 'ps'		; plot output type(s) ('cgm' and/or 'ps')
 ipltxyloc = 1
   xylocs = 47.5,55.
   xyloc_htscale = 100.,200.,1.
   ixyloc_yaxright = 2                  ; extra right-hand y-axes
   ixyloc_log10 = 0                     ; log10 flag
 ;sendps = 'vishnu.hao:/d/foster/jwise/cirris/tscir06.ut3b.ps'
 senddat = 'vishnu.hao:/d/foster/jwise/cirris/tscir06.ut3b.dat'
 &end_proc
C
 LABEL='TGCM20 time-gcm for modelproc (ZSB = -17)'
 DATE=1991,116
 MAGVOL='ECRIDLEY','ECR90','ECRMG6'
CSOURCE='ROBLE','RGR95','TSCIR25',31,3,0
 SOURCE='ROBLE','RGR96','TSCIR06',31,3,0
 OUTPUT='FOSTER','SCRATCH','SCRATCH'
 START=31,3,0
 STOP=31,3,3
 HIST=0,0,3
 SAVE= 0,0,3
 TIDE=0.,0.,0.,0.,0.,0.,0.,0.,0.,0.
 TIDE2=32.E+2,11.5
 TIDE3M3=0.,0.
 STEP=180
 MAG=-74.5,127.,79.,-70.
 DIFHOR=1
 IUIVI=1
 AURORA=1
 DISPOSE=0
 COLFAC=1.5
 ENDOFREAD
 F107 = 161.7
 F107A =205.7
 OLDALF=1
 POWER=31.00
 CTPOTEN=68.9
 ALFA30=15.
 E30=1.E-20
 ED2=1.E-20
 ALFAD2=10.
 BYIMF = 0.
 ENDOFREAD
'EOF'