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=1994,80
 MAGVOL='ECRIDLEY','ECR90','ECRMG6'
 SOURCE='ROBLE','RGR95','TSEQNQ9',14,0,0
 OUTPUT='FOSTER','TGCM20','TSEQNQ9'
 START=0,0,0
 STOP=0,6,0
 HIST=0,3,0
 SAVE=0,6,0
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
 SECOUT = 'FOSTER','TGCM20','SECTST0','FOSTER','TGCM20','SECTST1'
 SECSTART = 0,0,0
 SECSTOP = 0,6,0
 SECHIST = 0,3,0
 SECSAVE = 0,3,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
 SECFLDS =  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
             1,  1, 1,  1, 1,  0,1,  0, 0, 1, 1,  1, 1, 1,  1
C
C MARCH TIDES FORBES(NEW)
 TIDE=0.,0.,0.,0.,0.,0.,0.,0.,0.,0.
 TIDE2=48.E+2,11.5
CTIDE2=0.0,0.0
C  STEP MUST BE AN INTEGER
 STEP=360
 MAG=-74.5,127.,79.,-70.
 DIFHOR=1
 IUIVI=1
 AURORA=1
 DISPOSE=1
CDISPOSE=0
 COLFAC=1.5
 ENDOFREAD
 F107 = 67.
 F107A =72.
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=3.
 CTPOTEN=30.
 ALFA30=15.
 E30=1.E-20
 ED2=1.E-20
 ALFAD2=10.
 BYIMF = 0.
 ENDOFREAD