C
C***********************************************************************
C***    Input for TGCM20  (TIME-GCM with DYNAMO) updated 09/25/95    *** 
C***********************************************************************
C
 LABEL='TIME-GCM with DYNAMO               TGCM20 09/25/95 '
C
C EQUINOX STARTING CONDITIONS *****************************
C
 DATE=1995,80
 MAGVOL='ECRIDLEY','ECR90','ECRMG6'
CSOURCE='ROBLE','RGR96','TSEQNC7',30,0,0
CSOURCE='ROBLE','RGR96','TSEQNA3',22,0,0
 SOURCE='ROBLE','RGR95','TSEQNS3',9,0,0
 OUTPUT='FOSTER','TESTREF','SCRATCH'
COUTPUT='ROBLE','RGR96','TSEQNB4','ROBLE','RGR96','TSEQNB5',
C'ROBLE','RGR96','TSEQNB6','ROBLE','RGR96','TSEQNB7'
COUTPUT='ROBLE','RGR96','TSEQXW5','ROBLE','RGR96','TSEQXW6',
C       'ROBLE','RGR96','TSEQXW7','ROBLE','RGR96','TSEQXW8'
COUTPUT='ROBLE','RGR96','TSEQNC5','ROBLE','RGR96','TSEQNC6',
C       'ROBLE','RGR96','TSEQNC7','ROBLE','RGR96','TSEQNC8'
COUTPUT='ROBLE','RGR96','TSEDRA1','ROBLE','RGR96','TSEDRA2',
C       'ROBLE','RGR96','TSEDRA3','ROBLE','RGR96','TSEDRA4',
C       'ROBLE','RGR96','TSEDRA5','ROBLE','RGR96','TSEDRA6',
C       'ROBLE','RGR96','TSEDRA7','ROBLE','RGR96','TSEDRA8'
COUTPUT='ROBLE','RGR96','TSEDRI1','ROBLE','RGR96','TSEDRI2',
C       'ROBLE','RGR96','TSEDRI3','ROBLE','RGR96','TSEDRI4',
C       'ROBLE','RGR96','TSEDRI5','ROBLE','RGR96','TSEDRI6',
C       'ROBLE','RGR96','TSEDRI7','ROBLE','RGR96','TSEDRI8'
 START= 6,0,0
 STOP= 6,0,6
 HIST=0,0,6
 SAVE=0,0,6
C
C Secondary histories (comment all SECxxxx out if sec hist not needed):
C (these histories contain a max of 29 fields at the current time step)
C
C SECOUT = mss secondary history output volumes
C SECHIST = disk write frequency of secondary histories (day:hr:min)
C SECSAVE = mss write frequency of secondary history files (day:hr:min)
C SECSTART,STOP = start,stop times for writing secondary histories 
C   (day:hr:min)
C
CSECOUT = 'FOSTER','TGCM20','SECTST0','FOSTER','TGCM20','SECTST1'
CSECSTART = 0,0,0
CSECSTOP = 0,1,0
CSECHIST = 0,0,12
CSECSAVE = 0,1,0
C
C SECFLDS = set each field to be saved on secondary histories to 1
C (The number of selected fields will influence number of histories 
C  that will fill a volume, however 4 volumes (SECOUT) will always 
C  be enough for 24 secondary histories)
C
C          tn un vn o2 ox n4s noz co co2 h2o h2 hox o+ ch4 o21d
CSECFLDS =  1, 1, 1, 1, 0,  0,  0, 0,  0,  0, 0,  0, 0,  0, 1,
C          no2  no o3  o1 oh ho2 h n2d ti te ne o2+  w  z epot
C            1,  1, 1,  1, 1,  1,1,  0, 0, 1, 1,  1, 1, 1,  1
C
C MARCH TIDES FORBES(NEW)
CTIDE=0.,0.,0.,0.,0.,0.,0.,0.,0.,0.
C APRIL SEMI-DIURNAL TIDAL AMPLITUDES FROM GSWM AT 32.3 KM
 TIDE=6.4E+2,1.1E+2,2.6E+2,0.2E+2,0.8E+2,2.9,4.7,7.2,9.6,7.4
CTIDE2= 0.,11.5
CTIDE2=16.E+2,11.5
 TIDE2=40.E+2,11.5
CTIDE2=48.E+2,11.5
C APRIL DIURNAL TIDAL AMPLITUDE FROM GSWM AT 32.3 KM
CTIDE2=40.E+2,15.1
CTIDE3M3=0.,0.
CTIDE2=0.0,0.0
C  STEP MUST BE AN INTEGER
 STEP=360
CSTEP=240
 MAG=-74.5,127.,79.,-70.
 DIFHOR=1
 IUIVI=1
 AURORA=1
CDISPOSE=1
 DISPOSE=0
 COLFAC=1.5
 ENDOFREAD
 F107 = 67.
 F107A =72.
CF107 = 243.
CF107A =212.
CAMIVOL='EMERY','PVIEN','S86BG2'
 OLDALF=1
C  H POWER =  2  3  5  7 11 16 23 33 48   82 : 115 155 255
C  CTPOTEN = 20 30 40 50 60 70 80 90 100 115 : 130 150 200
 POWER= 6.
 CTPOTEN=45.
 ALFA30= 6.
 E30=1.E-20
 ED2=1.E-20
 ALFAD2=10.
 BYIMF = 0.
 ENDOFREAD