C
 LABEL='TIEGCM EQUINOX.P7 PLANET COMPARISON  3/24/97       '
 DATE=1998,75,75
 MAGVOL='ECRIDLEY','ECR90','ECRMG6'
 SOURCE='ROBLE','TGCM13','PEQSE01',  0,0,0
C all modsrc.tstgpi (modsrc.kibo) + gpi (crashes on 4th iter)
COUTPUT='FOSTER','T13MTGPI','KIB01a','FOSTER','T13MTGPI','KIB02a'
C w/o euvac (crashes in vdrift2 after 18 iters):
COUTPUT='FOSTER','T13MTGPI','KIB01b','FOSTER','T13MTGPI','KIB02b',
C       'FOSTER','T13MTGPI','KIB03b','FOSTER','T13MTGPI','KIB04b'
C w/ original tgcm13mt qrj.f:
 OUTPUT='FOSTER','T13MTGPI','KIB01d','FOSTER','T13MTGPI','KIB02d',
        'FOSTER','T13MTGPI','KIB03d','FOSTER','T13MTGPI','KIB04d'
 TMPDIR = '/tmp/foster/tgcm13mt'
C   ***
 START=  75,0,0
 STOP=  75,1,0
 HIST= 0,1,0
 SAVE=0,1,0
 STEP= 180
 INCORE = 1
C
CSECOUT = 'FOSTER','TGCM13MT','SEQSE01','FOSTER','TGCM13MT','SEQSE02',
C  'FOSTER','TGCM13MT','SEQSE03','FOSTER','TGCM13MT','SEQSE04',
C  'FOSTER','TGCM13MT','SEQSE05','FOSTER','TGCM13MT','SEQSE06',
C  'FOSTER','TGCM13MT','SEQSE07','FOSTER','TGCM13MT','SEQSE08'
CSECSTART =  75,0,0
CSECSTOP =  85,0,0
CSECHIST = 0,1,0
CSECSAVE = 1,0,0
CSECFLDS = 'TN','NO','N4S','NE'
C
C*****************************P
CDISPOSE=1
 DISPOSE=0
C*****************************P
 MAG=-74.5,127.,79.,-70.
 DIFHOR=0
 IUIVI=1
C MARCH TIDES FORBES(NEW)
 TIDE=1.5E+4,0.1E+4,2.8E+4,0.1E+4,0.2E+4,10.3,5.8,7.6,8.3,8.4
 TIDE2=0.5E+4,18.0
 TIDEANN=0
 AURORA=1
 COLFAC=1.5
 ENDOFREAD
CF107=70.
CF107A=70.
CF107=130.
CF107A=130.
CF107=200.
CF107A=200.
CF107=350.
CF107A=350.
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
CPOWER=16.
CCTPOTEN=45.
CPOWER=23
CCTPOTEN=80.
 BYIMF=0.
 ENDOFREAD