C
 LABEL='tgcm13mt multi-tasked tiegcm                       '
 DATE=1982,182
CDATE=1998, 75, 75
 MAGVOL='ECRIDLEY','ECR90','ECRMG6'
CSOURCE='ROBLE','TGCM13','PJSSM01',  5,0,0
 SOURCE='ROBLE','TGCM13','PEQSE01',  5,0,0
COUTPUT='ROBLE','TGCM13MT','PJLY8C1','ROBLE','TGCM13MT','PJLY8C2',
C       'ROBLE','TGCM13MT','PJLY8C3','ROBLE','TGCM13MT','PJLY8C4'
C
C Raw tgcm13mt:
COUTPUT='FOSTER','TGCM13MT','PJLY8C1','FOSTER','TGCM13MT','PJLY8C2',
C       'FOSTER','TGCM13MT','PJLY8C3','FOSTER','TGCM13MT','PJLY8C4'
C
C With ~/tiegcm/tgcm13mt/modsrc.kibo mods (Rays mods from 9/99)
COUTPUT='FOSTER','T13MTK','PJLY8C1','FOSTER','T13MTK','PJLY8C2',
C       'FOSTER','T13MTK','PJLY8C3','FOSTER','T13MTK','PJLY8C4'
C
C Removal of mods is cumulative in the following runs:
C
C With othend mods removed:
COUTPUT='FOSTER','T13MTK1','PJLY8C1'
C With original aurht (i.e, no low energy protons):
COUTPUT='FOSTER','T13MTK2','PJLY8C1'
C With altv.f removed (and its call), and original rates.f:
COUTPUT='FOSTER','T13MTK3','PJLY8C1'
C With original opflux.f:
COUTPUT='FOSTER','T13MTK4','PJLY8C1'
C With original lamdas.f (this accidentally overwrote T13MTK4):
COUTPUT='FOSTER','T13MTK5','PJLY8C1'
C With orignal new.f, qinite.f, and elden.f:
COUTPUT='FOSTER','T13MTK6','PJLY8C1'
C With orignal orora.f:
COUTPUT='FOSTER','T13MTK7','PJLY8C1'
C T13MTK8      original dt.f, runmds.f, and settei.f
COUTPUT='FOSTER','T13MTK8','PJLY8C1'
C T13MTK9      original qrj.f and ssflux.f:
COUTPUT='FOSTER','T13MTK9','PJLY8C1'
C T13MTK10 put qrj and ssflux back in, but remove feuv overwrite in qrj 
COUTPUT='FOSTER','T13MTK10','PJLY8C1'
C call original ssflux from kibo qrj:
COUTPUT='FOSTER','T13MTK11','PJLY8C1'
C Remove sigmas and sigeuv overwrite at end of init_sigmas (do 56)
COUTPUT='FOSTER','T13MTK12','PJLY8C1'
C
C Return to modsrc.kibo, but remove sigmas,sigeuv overwrites as in T13MTK12
COUTPUT='FOSTER','T13MTKIB','PJLY8C1'
C modsrc.kibo, with only sigeuv overwrites at end of qrj
COUTPUT='FOSTER','T13MTKI1','PJLY8C1'
C modsrc.kibo with sigeuv and sigmas overwrites at end of qrj
COUTPUT='FOSTER','T13MTKI2','PJLY8C1'
C comment out only sigmas at end of qrj (allow overwrites of sigeuv, br's)
COUTPUT='FOSTER','T13MTKI3','PJLY8C1'
COUTPUT='FOSTER','T13SIGX','PJLY8C1','FOSTER','T13SIGX','PJLY8C2',
C       'FOSTER','T13SIGX','PJLY8C3','FOSTER','T13SIGX','PJLY8C4'
C
C modsrc.kibo with array constructors for F74113 and AFAC in euvac.f
COUTPUT='FOSTER','T13MTKI4','PJLY8C1'
C
COUTPUT='FOSTER','PEQGPI','PEQSE01'
 OUTPUT='FOSTER','T13MTKIB','PEQSE01'
C
 START=  75,0,0
 STOP=  75,1,0
 HIST= 0,1,0
 SAVE=0,1,0
 STEP= 180
 INCORE = 1
 DISPOSE=1
 MAG=-74.5,127.,79.,-70.
 DIFHOR=0
 IUIVI=1
 TIDE=2.3E+4,0.8E+4,0.7E+4,1.1E+4,0.6E+4,10.2,10.5,3.8,3.2,8.1
 TIDE2=2.0E+4,18.0
 TIDEANN=0
 AURORA=1
 COLFAC=1.5
 ENDOFREAD
 F107=110.
 F107A=170.
 OLDALF=1
 POWER=25.
 CTPOTEN=60.
 BYIMF=0.
 ENDOFREAD