C***********************************************************************
C***  Input for TGCM10  (TIMEGCM) updated 11/12/91                                       ***
C***********************************************************************
 LABEL='TGCM17 GPI DATABASE INPUTS TEST                    '
C
C For NMC (zbnd) run, use DATE = iyear,iday,md where md is model day 
 DATE=1985,263,263
 DATA='FOSTER','TIMEDATV','EQSM01Z'
 SOURCE='ROBLE','RGR94','TSNMC01',263,0,0
C
 OUTPUT='FOSTER','BTF94','TSGPI00'
 START=263,0,0
 STOP=263,1,0
 HIST=0,1,0
 SAVE=0,1,0
C
C MARCH TIDES FORBES(NEW)
 TIDE=0.,0.,0.,0.,0.,0.,0.,0.,0.,0.
 TIDE2=16.E+2,11.5
C  STEP MUST BE AN INTEGER
 STEP=360
 MAG=-74.5,127.,79.,-70.
 DIFHOR=1
 IUIVI=1
 AURORA=1
 DISPOSE=1
 COLFAC=1.5
 ENDOFREAD
C
C Options for lexical reads of F107, F107A, POWER, and CTPOTEN:
C 1. Comment out: model will get time-interpolated values from database
C 2. Provide single constant which will be used throughout the run
C 3. Provide time-varying sequence (series of 3-int times and 1-float values)
C
CF107 = 67.
CF107A =72.
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=3.
CCTPOTEN=30.
C
CF107 =
C262,12, 0, 70.7,263,12, 0, 69.8,264,12, 0, 69.6,265,12, 0, 69.8,
C266,12, 0, 69.2,267,12, 0, 69.0,268,12, 0, 68.7,269,12, 0, 68.4,
C270,12, 0, 67.7,271,12, 0, 67.8,272,12, 0, 68.3,273,12, 0, 68.3,
C274,12, 0, 68.3,275,12, 0, 67.5,276,12, 0, 68.7,277,12, 0, 68.3,
C278,12, 0, 67.0,279,12, 0, 66.0
C
CF107A =
C262,12, 0, 72.0,263,12, 0, 71.9,264,12, 0, 71.9,265,12, 0, 71.9,
C266,12, 0, 71.9,267,12, 0, 71.9,268,12, 0, 71.9,269,12, 0, 71.9,
C270,12, 0, 71.9,271,12, 0, 72.0,272,12, 0, 72.0,273,12, 0, 72.1,
C274,12, 0, 72.1,275,12, 0, 72.1,276,12, 0, 72.1,277,12, 0, 72.2,
C278,12, 0, 72.2,279,12, 0, 72.3
C  P from Kp, P = max(0.1,-2.78+9.33*Kp)
CPOWER =
C262, 1,30, 18.7,262, 4,30, 15.9,262, 7,30, 28.0,262,10,30, 53.2,
C262,13,30, 31.7,262,16,30, 46.7,262,19,30, 50.4,262,22,30, 31.7,
C263, 1,30, 37.3,263, 4,30, 43.9,263, 7,30, 37.3,263,10,30, 41.1,
C263,13,30, 28.0,263,16,30, 25.2,263,19,30, 25.2,263,22,30, 37.3,
C264, 1,30, 31.7,264, 4,30, 28.0,264, 7,30, 37.3,264,10,30, 34.5,
C264,13,30, 28.0,264,16,30, 37.3,264,19,30, 31.7,264,22,30, 22.4,
C265, 1,30, 25.2,265, 4,30, 25.2,265, 7,30, 31.7,265,10,30, 15.9,
C265,13,30, 28.0,265,16,30, 22.4,265,19,30, 18.7,265,22,30, 13.1,
C266, 1,30,  9.3,266, 4,30, 18.7,266, 7,30, 28.0,266,10,30, 31.7,
C266,13,30,  6.5,266,16,30, 13.1,266,19,30,  9.3,266,22,30,  3.0,
C267, 1,30,  3.8,267, 4,30, 18.7,267, 7,30, 18.7,267,10,30, 28.0,
C267,13,30, 28.0,267,16,30, 31.7,267,19,30, 34.5,267,22,30, 34.5,
C268, 1,30, 22.4,268, 4,30, 22.4,268, 7,30, 34.5,268,10,30, 18.7,
C268,13,30, 22.4,268,16,30, 31.7,268,19,30, 34.5,268,22,30, 31.7,
C269, 1,30, 22.4,269, 4,30, 25.2,269, 7,30, 31.7,269,10,30, 43.9,
C269,13,30,  3.8,269,16,30, 13.1,269,19,30, 28.0,269,22,30, 34.5,
C270, 1,30, 18.7,270, 4,30, 28.0,270, 7,30, 31.7,270,10,30, 31.7,
C270,13,30, 15.9,270,16,30,  9.3,270,19,30, 25.2,270,22,30, 41.1,
C271, 1,30, 15.9,271, 4,30, 13.1,271, 7,30,  9.3,271,10,30, 18.7,
C271,13,30, 18.7,271,16,30,  9.3,271,19,30,  6.5,271,22,30,  9.3,
C272, 1,30,  9.3,272, 4,30,  9.3,272, 7,30,  3.0,272,10,30, 13.1,
C272,13,30,  6.5,272,16,30,  3.8,272,19,30,  9.3,272,22,30,  9.3,
C273, 1,30, 18.7,273, 4,30,  6.5,273, 7,30,  3.8,273,10,30,  3.8,
C273,13,30,  3.8,273,16,30,  6.5,273,19,30,  9.3,273,22,30, 18.7,
C274, 1,30,  9.3,274, 4,30,  3.8,274, 7,30,  3.0,274,10,30,  3.0,
C274,13,30,  3.8,274,16,30,  3.8,274,19,30,  3.8,274,22,30,  3.8,
C275, 1,30, 18.7,275, 4,30,  9.3,275, 7,30, 15.9,275,10,30,  9.3,
C275,13,30,  3.0,275,16,30,  6.5,275,19,30,  9.3,275,22,30, 13.1,
C276, 1,30,  6.5,276, 4,30, 18.7,276, 7,30, 22.4,276,10,30, 22.4,
C276,13,30, 25.2,276,16,30, 28.0,276,19,30, 18.7,276,22,30, 13.1,
C277, 1,30, 22.4,277, 4,30, 25.2,277, 7,30, 22.4,277,10,30, 18.7,
C277,13,30, 15.9,277,16,30, 13.1,277,19,30, 25.2,277,22,30, 28.0,
C278, 1,30, 22.4,278, 4,30, 53.2,278, 7,30, 53.2,278,10,30, 43.9,
C278,13,30, 37.3,278,16,30, 43.9,278,19,30, 62.5,278,22,30, 56.0,
C279, 1,30, 46.7,279, 4,30, 34.5,279, 7,30, 50.4,279,10,30, 46.7,
C279,13,30, 43.9,279,16,30, 34.5,279,19,30, 28.0,279,22,30, 37.3
C
C  CP from Kp, CP = 29 + 11 * Kp
CCTPOTEN =
C262, 1,30, 54.3,262, 4,30, 51.0,262, 7,30, 65.3,262,10,30, 95.0,
C262,13,30, 69.7,262,16,30, 87.3,262,19,30, 91.7,262,22,30, 69.7,
C263, 1,30, 76.3,263, 4,30, 84.0,263, 7,30, 76.3,263,10,30, 80.7,
C263,13,30, 65.3,263,16,30, 62.0,263,19,30, 62.0,263,22,30, 76.3,
C264, 1,30, 69.7,264, 4,30, 65.3,264, 7,30, 76.3,264,10,30, 73.0,
C264,13,30, 65.3,264,16,30, 76.3,264,19,30, 69.7,264,22,30, 58.7,
C265, 1,30, 62.0,265, 4,30, 62.0,265, 7,30, 69.7,265,10,30, 51.0,
C265,13,30, 65.3,265,16,30, 58.7,265,19,30, 54.3,265,22,30, 47.7,
C266, 1,30, 43.3,266, 4,30, 54.3,266, 7,30, 65.3,266,10,30, 69.7,
C266,13,30, 40.0,266,16,30, 47.7,266,19,30, 43.3,266,22,30, 32.3,
C267, 1,30, 36.7,267, 4,30, 54.3,267, 7,30, 54.3,267,10,30, 65.3,
C267,13,30, 65.3,267,16,30, 69.7,267,19,30, 73.0,267,22,30, 73.0,
C268, 1,30, 58.7,268, 4,30, 58.7,268, 7,30, 73.0,268,10,30, 54.3,
C268,13,30, 58.7,268,16,30, 69.7,268,19,30, 73.0,268,22,30, 69.7,
C269, 1,30, 58.7,269, 4,30, 62.0,269, 7,30, 69.7,269,10,30, 84.0,
C269,13,30, 36.7,269,16,30, 47.7,269,19,30, 65.3,269,22,30, 73.0,
C270, 1,30, 54.3,270, 4,30, 65.3,270, 7,30, 69.7,270,10,30, 69.7,
C270,13,30, 51.0,270,16,30, 43.3,270,19,30, 62.0,270,22,30, 80.7,
C271, 1,30, 51.0,271, 4,30, 47.7,271, 7,30, 43.3,271,10,30, 54.3,
C271,13,30, 54.3,271,16,30, 43.3,271,19,30, 40.0,271,22,30, 43.3,
C272, 1,30, 43.3,272, 4,30, 43.3,272, 7,30, 32.3,272,10,30, 47.7,
C272,13,30, 40.0,272,16,30, 36.7,272,19,30, 43.3,272,22,30, 43.3,
C273, 1,30, 54.3,273, 4,30, 40.0,273, 7,30, 36.7,273,10,30, 36.7,
C273,13,30, 36.7,273,16,30, 40.0,273,19,30, 43.3,273,22,30, 54.3,
C274, 1,30, 43.3,274, 4,30, 36.7,274, 7,30, 32.3,274,10,30, 32.3,
C274,13,30, 36.7,274,16,30, 36.7,274,19,30, 36.7,274,22,30, 36.7,
C275, 1,30, 54.3,275, 4,30, 43.3,275, 7,30, 51.0,275,10,30, 43.3,
C275,13,30, 32.3,275,16,30, 40.0,275,19,30, 43.3,275,22,30, 47.7,
C276, 1,30, 40.0,276, 4,30, 54.3,276, 7,30, 58.7,276,10,30, 58.7,
C276,13,30, 62.0,276,16,30, 65.3,276,19,30, 54.3,276,22,30, 47.7,
C277, 1,30, 58.7,277, 4,30, 62.0,277, 7,30, 58.7,277,10,30, 54.3,
C277,13,30, 51.0,277,16,30, 47.7,277,19,30, 62.0,277,22,30, 65.3,
C278, 1,30, 58.7,278, 4,30, 95.0,278, 7,30, 95.0,278,10,30, 84.0,
C278,13,30, 76.3,278,16,30, 84.0,278,19,30,106.0,278,22,30, 98.3,
C279, 1,30, 87.3,279, 4,30, 73.0,279, 7,30, 91.7,279,10,30, 87.3,
C279,13,30, 84.0,279,16,30, 73.0,279,19,30, 65.3,279,22,30, 76.3
C
CAMIVOL='EMERY','PVIEN','S86BG2'
 OLDALF=0
 ALFA30=15.
 E30=1.E-20
 ED2=1.E-20
 ALFAD2=10.
 BYIMF = 0.
 ENDOFREAD
C
C***********************************************************************
C***  Input for TGCM10  (TIMEGCM) updated 11/12/91                                       ***
C***********************************************************************
 LABEL='TGCM17 GPI DATABASE INPUTS TEST                    '
C
C For NMC (zbnd) run, use DATE = iyear,iday,md where md is model day 
 DATE=1985,263,263
 DATA='FOSTER','TIMEDATV','EQSM01Z'
CSOURCE='ROBLE','RGR94','TSNMC01',263,0,0
C
 OUTPUT='FOSTER','BTF94','TSTGPI1','FOSTER','BTF94','TSTGPI2',
        'FOSTER','BTF94','TSTGPI3','FOSTER','BTF94','TSTGPI4',
        'FOSTER','BTF94','TSTGPI5','FOSTER','BTF94','TSTGPI6',
        'FOSTER','BTF94','TSTGPI7','FOSTER','BTF94','TSTGPI8'
COUTPUT='FOSTER','BTF94','TSGPI00','FOSTER','BTF94','TSGPI01'
COUTPUT='FOSTER','BTF94','TSGPIL0','FOSTER','BTF94','TSGPIL1'
 START=263,7,0
 STOP=264,2,0
 HIST=0,1,0
 SAVE=0,1,0
C
C MARCH TIDES FORBES(NEW)
 TIDE=0.,0.,0.,0.,0.,0.,0.,0.,0.,0.
 TIDE2=16.E+2,11.5
C  STEP MUST BE AN INTEGER
 STEP=360
 MAG=-74.5,127.,79.,-70.
 DIFHOR=1
 IUIVI=1
 AURORA=1
 DISPOSE=1
 COLFAC=1.5
 ENDOFREAD
C
C Options for lexical reads of F107, F107A, POWER, and CTPOTEN:
C 1. Comment out: model will get time-interpolated values from database
C 2. Provide single constant which will be used throughout the run
C 3. Provide time-varying sequence (series of 3-int times and 1-float values)
C
CF107 = 67.
CF107A =72.
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=3.
CCTPOTEN=30.
C
CF107 =
C262,12, 0, 70.7,263,12, 0, 69.8,264,12, 0, 69.6,265,12, 0, 69.8,
C266,12, 0, 69.2,267,12, 0, 69.0,268,12, 0, 68.7,269,12, 0, 68.4,
C270,12, 0, 67.7,271,12, 0, 67.8,272,12, 0, 68.3,273,12, 0, 68.3,
C274,12, 0, 68.3,275,12, 0, 67.5,276,12, 0, 68.7,277,12, 0, 68.3,
C278,12, 0, 67.0,279,12, 0, 66.0
C
CF107A =
C262,12, 0, 72.0,263,12, 0, 71.9,264,12, 0, 71.9,265,12, 0, 71.9,
C266,12, 0, 71.9,267,12, 0, 71.9,268,12, 0, 71.9,269,12, 0, 71.9,
C270,12, 0, 71.9,271,12, 0, 72.0,272,12, 0, 72.0,273,12, 0, 72.1,
C274,12, 0, 72.1,275,12, 0, 72.1,276,12, 0, 72.1,277,12, 0, 72.2,
C278,12, 0, 72.2,279,12, 0, 72.3
C  P from Kp, P = max(0.1,-2.78+9.33*Kp)
CPOWER =
C262, 1,30, 18.7,262, 4,30, 15.9,262, 7,30, 28.0,262,10,30, 53.2,
C262,13,30, 31.7,262,16,30, 46.7,262,19,30, 50.4,262,22,30, 31.7,
C263, 1,30, 37.3,263, 4,30, 43.9,263, 7,30, 37.3,263,10,30, 41.1,
C263,13,30, 28.0,263,16,30, 25.2,263,19,30, 25.2,263,22,30, 37.3,
C264, 1,30, 31.7,264, 4,30, 28.0,264, 7,30, 37.3,264,10,30, 34.5,
C264,13,30, 28.0,264,16,30, 37.3,264,19,30, 31.7,264,22,30, 22.4,
C265, 1,30, 25.2,265, 4,30, 25.2,265, 7,30, 31.7,265,10,30, 15.9,
C265,13,30, 28.0,265,16,30, 22.4,265,19,30, 18.7,265,22,30, 13.1,
C266, 1,30,  9.3,266, 4,30, 18.7,266, 7,30, 28.0,266,10,30, 31.7,
C266,13,30,  6.5,266,16,30, 13.1,266,19,30,  9.3,266,22,30,  3.0,
C267, 1,30,  3.8,267, 4,30, 18.7,267, 7,30, 18.7,267,10,30, 28.0,
C267,13,30, 28.0,267,16,30, 31.7,267,19,30, 34.5,267,22,30, 34.5,
C268, 1,30, 22.4,268, 4,30, 22.4,268, 7,30, 34.5,268,10,30, 18.7,
C268,13,30, 22.4,268,16,30, 31.7,268,19,30, 34.5,268,22,30, 31.7,
C269, 1,30, 22.4,269, 4,30, 25.2,269, 7,30, 31.7,269,10,30, 43.9,
C269,13,30,  3.8,269,16,30, 13.1,269,19,30, 28.0,269,22,30, 34.5,
C270, 1,30, 18.7,270, 4,30, 28.0,270, 7,30, 31.7,270,10,30, 31.7,
C270,13,30, 15.9,270,16,30,  9.3,270,19,30, 25.2,270,22,30, 41.1,
C271, 1,30, 15.9,271, 4,30, 13.1,271, 7,30,  9.3,271,10,30, 18.7,
C271,13,30, 18.7,271,16,30,  9.3,271,19,30,  6.5,271,22,30,  9.3,
C272, 1,30,  9.3,272, 4,30,  9.3,272, 7,30,  3.0,272,10,30, 13.1,
C272,13,30,  6.5,272,16,30,  3.8,272,19,30,  9.3,272,22,30,  9.3,
C273, 1,30, 18.7,273, 4,30,  6.5,273, 7,30,  3.8,273,10,30,  3.8,
C273,13,30,  3.8,273,16,30,  6.5,273,19,30,  9.3,273,22,30, 18.7,
C274, 1,30,  9.3,274, 4,30,  3.8,274, 7,30,  3.0,274,10,30,  3.0,
C274,13,30,  3.8,274,16,30,  3.8,274,19,30,  3.8,274,22,30,  3.8,
C275, 1,30, 18.7,275, 4,30,  9.3,275, 7,30, 15.9,275,10,30,  9.3,
C275,13,30,  3.0,275,16,30,  6.5,275,19,30,  9.3,275,22,30, 13.1,
C276, 1,30,  6.5,276, 4,30, 18.7,276, 7,30, 22.4,276,10,30, 22.4,
C276,13,30, 25.2,276,16,30, 28.0,276,19,30, 18.7,276,22,30, 13.1,
C277, 1,30, 22.4,277, 4,30, 25.2,277, 7,30, 22.4,277,10,30, 18.7,
C277,13,30, 15.9,277,16,30, 13.1,277,19,30, 25.2,277,22,30, 28.0,
C278, 1,30, 22.4,278, 4,30, 53.2,278, 7,30, 53.2,278,10,30, 43.9,
C278,13,30, 37.3,278,16,30, 43.9,278,19,30, 62.5,278,22,30, 56.0,
C279, 1,30, 46.7,279, 4,30, 34.5,279, 7,30, 50.4,279,10,30, 46.7,
C279,13,30, 43.9,279,16,30, 34.5,279,19,30, 28.0,279,22,30, 37.3
C
C  CP from Kp, CP = 29 + 11 * Kp
CCTPOTEN =
C262, 1,30, 54.3,262, 4,30, 51.0,262, 7,30, 65.3,262,10,30, 95.0,
C262,13,30, 69.7,262,16,30, 87.3,262,19,30, 91.7,262,22,30, 69.7,
C263, 1,30, 76.3,263, 4,30, 84.0,263, 7,30, 76.3,263,10,30, 80.7,
C263,13,30, 65.3,263,16,30, 62.0,263,19,30, 62.0,263,22,30, 76.3,
C264, 1,30, 69.7,264, 4,30, 65.3,264, 7,30, 76.3,264,10,30, 73.0,
C264,13,30, 65.3,264,16,30, 76.3,264,19,30, 69.7,264,22,30, 58.7,
C265, 1,30, 62.0,265, 4,30, 62.0,265, 7,30, 69.7,265,10,30, 51.0,
C265,13,30, 65.3,265,16,30, 58.7,265,19,30, 54.3,265,22,30, 47.7,
C266, 1,30, 43.3,266, 4,30, 54.3,266, 7,30, 65.3,266,10,30, 69.7,
C266,13,30, 40.0,266,16,30, 47.7,266,19,30, 43.3,266,22,30, 32.3,
C267, 1,30, 36.7,267, 4,30, 54.3,267, 7,30, 54.3,267,10,30, 65.3,
C267,13,30, 65.3,267,16,30, 69.7,267,19,30, 73.0,267,22,30, 73.0,
C268, 1,30, 58.7,268, 4,30, 58.7,268, 7,30, 73.0,268,10,30, 54.3,
C268,13,30, 58.7,268,16,30, 69.7,268,19,30, 73.0,268,22,30, 69.7,
C269, 1,30, 58.7,269, 4,30, 62.0,269, 7,30, 69.7,269,10,30, 84.0,
C269,13,30, 36.7,269,16,30, 47.7,269,19,30, 65.3,269,22,30, 73.0,
C270, 1,30, 54.3,270, 4,30, 65.3,270, 7,30, 69.7,270,10,30, 69.7,
C270,13,30, 51.0,270,16,30, 43.3,270,19,30, 62.0,270,22,30, 80.7,
C271, 1,30, 51.0,271, 4,30, 47.7,271, 7,30, 43.3,271,10,30, 54.3,
C271,13,30, 54.3,271,16,30, 43.3,271,19,30, 40.0,271,22,30, 43.3,
C272, 1,30, 43.3,272, 4,30, 43.3,272, 7,30, 32.3,272,10,30, 47.7,
C272,13,30, 40.0,272,16,30, 36.7,272,19,30, 43.3,272,22,30, 43.3,
C273, 1,30, 54.3,273, 4,30, 40.0,273, 7,30, 36.7,273,10,30, 36.7,
C273,13,30, 36.7,273,16,30, 40.0,273,19,30, 43.3,273,22,30, 54.3,
C274, 1,30, 43.3,274, 4,30, 36.7,274, 7,30, 32.3,274,10,30, 32.3,
C274,13,30, 36.7,274,16,30, 36.7,274,19,30, 36.7,274,22,30, 36.7,
C275, 1,30, 54.3,275, 4,30, 43.3,275, 7,30, 51.0,275,10,30, 43.3,
C275,13,30, 32.3,275,16,30, 40.0,275,19,30, 43.3,275,22,30, 47.7,
C276, 1,30, 40.0,276, 4,30, 54.3,276, 7,30, 58.7,276,10,30, 58.7,
C276,13,30, 62.0,276,16,30, 65.3,276,19,30, 54.3,276,22,30, 47.7,
C277, 1,30, 58.7,277, 4,30, 62.0,277, 7,30, 58.7,277,10,30, 54.3,
C277,13,30, 51.0,277,16,30, 47.7,277,19,30, 62.0,277,22,30, 65.3,
C278, 1,30, 58.7,278, 4,30, 95.0,278, 7,30, 95.0,278,10,30, 84.0,
C278,13,30, 76.3,278,16,30, 84.0,278,19,30,106.0,278,22,30, 98.3,
C279, 1,30, 87.3,279, 4,30, 73.0,279, 7,30, 91.7,279,10,30, 87.3,
C279,13,30, 84.0,279,16,30, 73.0,279,19,30, 65.3,279,22,30, 76.3
C
CAMIVOL='EMERY','PVIEN','S86BG2'
 OLDALF=0
 ALFA30=15.
 E30=1.E-20
 ED2=1.E-20
 ALFAD2=10.
 BYIMF = 0.
 ENDOFREAD