C
CLABEL='TIEGCM 
 LABEL='TIEGCM TGCM14a 11/2000                                 ' 
 DATE=1997,54
 SOURCE = 'ROBLE','TGCM13','PEQSN01',5,0,0 
COUTPUT = 'CMQ','TGCM14a','T540000','CMQ','TGCM14a','TEQSN03' 
 OUTPUT = 'FOSTER','TGCM14a','T540000','FOSTER','TGCM14a','TEQSN03' 
 MAGVOL='ECRIDLEY','ECR90','ECRMG6'
 START=0,0,0 
 STOP= 0,10,0  
 HIST= 0,1,0 
 SAVE= 0,10,0   
 STEP= 180
 INCORE = 1
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 (arbitrary fields may be added to secondary histories by calling
C  subroutine addfsech from modified model source)
C
CSECOUT = 'FOSTER','SPROTON','TEN2X19'
CSECSTART =  10,0,0
CSECSTOP =  10,0,3
CSECHIST = 0,0,3
CSECSAVE = 0,0,3
C
C SECFLDS = list of character names of secondary history fields.
C   (may be primary fields or user-specified by addfsech calls)
C Below is list of primary history fields on tgcm13:
C
C    /'TN      ','UN      ','VN      ','O2      ','O1      ',  
C     'N4S     ','NO      ','O+      ','N2D     ','TI      ',  
C     'TE      ','NE      ','O2+     ','W       ','Z       ',  
C     'POTEN   '
C
 DISPOSE=1
CDISPOSE=0
 MAG=-74.5,127.,79.,-70.
 DIFHOR=0
 IUIVI=1
C MARCH TIDES FORBES(NEW)
 TIDE=0.5E+5,0.1E+4,2.8E+4,0.1E+4,0.2E+4,10.3,5.8,7.6,8.3,8.4
 TIDE2=0.2E+5,0.18E+2
 TIDEANN=0
 AURORA=1
 COLFAC=1.5
 ENDOFREAD
 F107=75.
 F107A=75.
CAMIVOL='EMERY','PVIEN','S86F3B'
 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=0,0,0,16.,0,3,0,25.,0,6,0,16.,0,9,0,22.,0,12,0,16. 
CCTPOTEN=0.1
 CTPOTEN=0,0,0,55.,0,3,0,65.,0,6,0,55.,0,9,0,60.,0,12,0,55. 
 BYIMF=0,0,0,-5.,0,3,0,-8.,0,6,0,0.,0,9,0,7.,0,12,0,1. 
 ENDOFREAD