C
Cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
C
C Input for ti(e)gcm video code:
C
C JDAY1 = julian day corresponding to model day 1
C INTERP = number of frames to interpolate between each DDHHMM
C          (e.g., if delta DDHHMM = 1 hour and INTERP=2, then
C          20 minute frames will be made)
C          (e.g., if delta DDHHMM = 1 hour and INTERP=3, then
C          15 minute frames will be made)
C NFBETSEG = number of frames between segments (i.e., between
C            fields)
C PROJ = integer for each field (each PLTIGCM=1)
C        if PROJ(ip)=1 -> make cylindrical equidistant projection
C        if PROJ(ip)=2 -> make satellite view projection
C LEVEL = selected pressure or height
C   if LEVEL <= gcmzp(kmx), LEVEL is assumed to be pressure
C   if LEVEL > gcmzp(kmx), LEVEL is assumed to be height for interp
C   (LEVEL is ignored by getgcmz in case of FOF2)
C
Cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
C
CHISTVOL = '/ROBLE/RGR91/AFSY01     ','/ROBLE/RGR91/AFSY05     '
CHISTVOL = '/ROBLE/RGR91/AFSY05     '
CHISTVOL = '/ROBLE/RGR91/AFSY04     ','/ROBLE/RGR91/AFSY05     ',
C          '/ROBLE/RGR91/AFSY06     '
 HISTVOL = '/ROBLE/RGR91/AFSY19     '
CHISTVOL = '/ROBLE/RGR91/AFSY17     ','/ROBLE/RGR91/AFSY18     ',
C          '/ROBLE/RGR91/AFSY19     '
 DDHHMM = 10,18,0
CDDHHMM = 3,12,0, 3,13,0, 3,14,0, 3,15,0, 3,16,0
CDDHHMM = 1, 0,0, 1, 1,0, 1, 2,0, 1, 3,0, 1, 4,0, 1, 5,0, 1, 6,0,
C         1, 7,0, 1, 8,0, 1, 9,0, 3,10,0, 3,11,0, 3,12,0, 3,13,0,
C         3,14,0, 3,15,0, 3,16,0
CDDHHMM = 10, 0,0,10, 1,0,10, 2,0,10, 3,0,10, 4,0,10, 5,0,10, 6,0,
C         10, 7,0,10, 8,0,10, 9,0,10,10,0,10,11,0,10,12,0,10,13,0,
C         10,14,0,10,15,0,10,16,0,10,17,0,10,18,0,10,19,0,10,20,0,
C         10,21,0,10,22,0,10,23,0,11,0,0
C IDEN = 1 -> CM-3
C IDEN = 2 -> GM/CM-3
 IDEN = 1
 MKFRAMES = 1
 JDAY1 = 79079
 INTERP = 0
 NFBETSEG = 60
 NFBEGEND = 0
C
C Number of times to call ftitle (1) at beginning of run, (2) at beginning
C of each field segment, and (3) at end of run. If < 0, then is a test
C run; if = 0, then no calls to ftitle are made; if > 0, then
C production mode.
C 
 TITLES = 0,0,0
 PROJ = 1
 CELLA = 0
 ERADII = 4.
 CENSATV = 70.,999.
 COLOR = 1
 FIXCOLOR = 12
CFIXCOLOR = 0
 INFO = 1
 KPBAR = 0
 KPGRAPH = 1
 LEVEL = -4.
CLEVEL = 300.
 SLT = 12.
C
C         T   U   V  O2   O N4S  NO  O+ N2D  TI  TE  NE O2+   W   Z 
 PLTIGCM =0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
C       POT  N2 FOF2 RHO
          0,  0,  1,   0
C
C         T   U   V  O2   O N4S  NO  O+ N2D  TI  TE  NE O2+   W   Z 
 CINT = 20.,0., 0., 0.,6.5E9, 0.,6.5E6, 0., 0.,0.,0.,30000. ,0.,0., 0.,
C       POT  N2 FOF2 RHO
       5000., 0.,2.2,3.E-15
C
C         T   U   V  O2   O N4S  NO  O+ N2D  TI  TE  NE O2+   W   Z 
 CMIN =380., 1., 1., 1.,4.E10, 1.,5.E6, 1., 1., 1.,1.,0.,1.,1.,1.,
C       POT  N2 FOF2 RHO
     -3.E4,  1.,2.,20.E-15
C
C         T   U   V  O2   O N4S  NO  O+ N2D  TI  TE  NE O2+   W   Z 
 CMAX =580., 0., 0., 0.,10.5E10,0.,70.E6,0.,0.,0.,0., 300000.,0.,0.,0.,
C       POT  N2 FOF2 RHO
      2.E4,  0.,24.,50.E-15
 ENDOFREAD
    6   3.  1.2
THERMOSPHERE IONOSPHERE 
ELECTRODYNAMICS
GENERAL CIRCULATION MODEL

RESULTS FOR THE 10-DAY PERIOD
MARCH 20 TO MARCH 29, 1979
    0
    7   3.  1.2
TIEGCM 
TOTAL DENSITY (O+O2+N2) (GM/CM-3)
AT 300 KM
MIN,MAX = 

CYLINDRICAL EQUIDISTANT PROJECTION
LOCAL NOON AT CENTER OF X-AXIS
    0 
   11   3.  1.2
TIEGCM MODEL DEVELOPMENT:

RAY ROBLE (NCAR/HAO)
CICELEY RIDLEY (NCAR/HAO)
BOB DICKINSON (UNIV OF ARIZ)


POST MODEL PROCESSING AND 
VISUALIZATION:

BEN FOSTER (NCAR/HAO)
    0
    8   3.  1.2
PRODUCED BY
THE NATIONAL CENTER FOR
ATMOSPHERIC RESEARCH
BOULDER, COLORADO 80307

UNDER SPONSORSHIP OF THE
NATIONAL SCIENCE FOUNDATION

JUNE 1992
    0

-------------------------------------------------------------------
    8   3.  1.2
TIEGCM 
NEUTRAL TEMPERATURE (DEG K)
PRESSURE LEVEL = -4 
(APPROX 120 KM)
MIN,MAX = 320,648

CYLINDRICAL EQUIDISTANT PROJECTION
LOCAL NOON AT CENTER OF X-AXIS