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 NFBEGEND = number of times to repeat first and last frame C of a field segment 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 C TIGCM run made 6/93: C July 9-16, 1982 (model times 9.0 -> 17.0): C (biggest impulse is at about 14.0) C C 01 RGR93/TIJST1 09.00->09.12 82190 7/09/82 C 02 RGR93/TIJST2 09.13->10.01 82190-91 7/09-10/82 C 03 RGR93/TIJST3 10.02->10.14 82191 7/10/82 C 04 RGR93/TIJST4 10.15->11.03 82191-92 7/10-11/82 C 05 RGR93/TIJST5 11.04->11.16 82192 7/11/82 C 06 RGR93/TIJST6 11.17->12.05 82192-93 7/11-12/82 C 07 RGR93/TIJST7 12.06->12.18 82193 7/12/82 C 08 RGR93/TIJST8 12.19->13.07 82193-94 7/12-13/82 C 09 RGR93/TIJST9 13.08->13.20 82194 7/13/82 C 10 RGR93/TIJST10 13.21->14.09 82194-95 7/13-14/82 C 11 RGR93/TIJST11 14.10->14.22 82195 7/14/82 C 12 RGR93/TIJST12 14.23->15.11 82195-96 7/14-15/82 C 13 RGR93/TIJST13 15.12->16.00 82196-97 7/15-16/82 C 14 RGR93/TIJST14 16.01->16.13 82197 7/16/82 C 15 RGR93/TIJST15 16.14->17.00 82197-98 7/16-17/82 C Cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C CHISTVOL = '/ROBLE/RGR93/TIJST1 ' HISTVOL = '/ROBLE/RGR93/TIJST1 ','/ROBLE/RGR93/TIJST2 ', '/ROBLE/RGR93/TIJST3 ','/ROBLE/RGR93/TIJST4 ', '/ROBLE/RGR93/TIJST5 ','/ROBLE/RGR93/TIJST6 ', '/ROBLE/RGR93/TIJST7 ','/ROBLE/RGR93/TIJST8 ', '/ROBLE/RGR93/TIJST9 ','/ROBLE/RGR93/TIJST10 ', '/ROBLE/RGR93/TIJST11 ','/ROBLE/RGR93/TIJST12 ', '/ROBLE/RGR93/TIJST13 ','/ROBLE/RGR93/TIJST14 ', '/ROBLE/RGR93/TIJST15 ' CDDHHMM = 9, 0,0, 9, 1,0, 9, 2,0, 9, 3,0, 9, 4,0, 9, 5,0, 9, 6,0 DDHHMM = 9, 0,0, 9, 1,0, 9, 2,0, 9, 3,0, 9, 4,0, 9, 5,0, 9, 6,0, 9, 7,0, 9, 8,0, 9, 9,0, 9,10,0, 9,11,0, 9,12,0, 9,13,0, 9,14,0, 9,15,0, 9,16,0, 9,17,0, 9,18,0, 9,19,0, 9,20,0, 9,21,0, 9,22,0, 9,23,0, 10, 0,0, 10, 1,0, 10, 2,0, 10, 3,0, 10, 4,0, 10, 5,0, 10, 6,0, 10, 7,0, 10, 8,0, 10, 9,0, 10,10,0, 10,11,0, 10,12,0, 10,13,0, 10,14,0, 10,15,0, 10,16,0, 10,17,0, 10,18,0, 10,19,0, 10,20,0, 10,21,0, 10,22,0, 10,23,0, 11, 0,0, 11, 1,0, 11, 2,0, 11, 3,0, 11, 4,0, 11, 5,0, 11, 6,0, 11, 7,0, 11, 8,0, 11, 9,0, 11,10,0, 11,11,0, 11,12,0, 11,13,0, 11,14,0, 11,15,0, 11,16,0, 11,17,0, 11,18,0, 11,19,0, 11,20,0, 11,21,0, 11,22,0, 11,23,0, 12, 0,0, 12, 1,0, 12, 2,0, 12, 3,0, 12, 4,0, 12, 5,0, 12, 6,0, 12, 7,0, 12, 8,0, 12, 9,0, 12,10,0, 12,11,0, 12,12,0, 12,13,0, 12,14,0, 12,15,0, 12,16,0, 12,17,0, 12,18,0, 12,19,0, 12,20,0, 12,21,0, 12,22,0, 12,23,0, 13, 0,0, 13, 1,0, 13, 2,0, 13, 3,0, 13, 4,0, 13, 5,0, 13, 6,0, 13, 7,0, 13, 8,0, 13, 9,0, 13,10,0, 13,11,0, 13,12,0, 13,13,0, 13,14,0, 13,15,0, 13,16,0, 13,17,0, 13,18,0, 13,19,0, 13,20,0, 13,21,0, 13,22,0, 13,23,0, 14, 0,0, 14, 1,0, 14, 2,0, 14, 3,0, 14, 4,0, 14, 5,0, 14, 6,0, 14, 7,0, 14, 8,0, 14, 9,0, 14,10,0, 14,11,0, 14,12,0, 14,13,0, 14,14,0, 14,15,0, 14,16,0, 14,17,0, 14,18,0, 14,19,0, 14,20,0, 14,21,0, 14,22,0, 14,23,0, 15, 0,0, 15, 1,0, 15, 2,0, 15, 3,0, 15, 4,0, 15, 5,0, 15, 6,0, 15, 7,0, 15, 8,0, 15, 9,0, 15,10,0, 15,11,0, 15,12,0, 15,13,0, 15,14,0, 15,15,0, 15,16,0, 15,17,0, 15,18,0, 15,19,0, 15,20,0, 15,21,0, 15,22,0, 15,23,0, 16, 0,0, 16, 1,0, 16, 2,0, 16, 3,0, 16, 4,0, 16, 5,0, 16, 6,0, 16, 7,0, 16, 8,0, 16, 9,0, 16,10,0, 16,11,0, 16,12,0, 16,13,0, 16,14,0, 16,15,0, 16,16,0, 16,17,0, 16,18,0, 16,19,0, 16,20,0, 16,21,0, 16,22,0, 16,23,0, 17, 0,0 C C IDEN = 1 -> CM-3 C IDEN = 2 -> GM/CM-3 IDEN = 1 MKFRAMES = 1 JDAY1 = 82182 INTERP = 3 C C nfbetseg = number of blank frames between segments C (used only if plotting more than one field in a job step) NFBETSEG = 60 C C nfbegend = number of freeze frames at beginning and end of each segment C (freeze first and last frames of each segment) NFBEGEND = 0 TITLES = 0,0,0 C C PROJ = 1 -> CE; PROJ=2 -> SV PROJ = 1 C C Cell arrays (makes big cgm's) CELLA = 0 ERADII = 4. CENSATV = 70.,999. COLOR = 1 C C fixcolor = hardwire color table (see fixrgb) CFIXCOLOR = 12 FIXCOLOR = 14 INFO = 1 KPBAR = 0 KPGRAPH = 1 CLEVEL = 300. CLEVEL = -1. LEVEL = -3.5 SLT = 12. C C T U V O2 O N4S NO O+ N2D TI TE NE O2+ W Z PLTIGCM =0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, C POT N2 FOF2 RHO 0, 0, 0, 0 C C T U V O2 O N4S NO O+ N2D TI TE NE O2+ W Z CINT = 75.,0., 0., 0.,1.E10,0.,6.5E6,0., 0.,0.,0.,30000. ,0.,0., 0., C POT N2 FOF2 RHO 0., 0.,2.2,3.E-15 C C T U V O2 O N4S NO O+ N2D TI TE NE O2+ W Z CMIN = 1050., 1., 1., 1.,1.5E10,1.,5.E6, 1., 1., 1.,1., 0.,1., 1.,1., C POT N2 FOF2 RHO 1., 1.,2.,20.E-15 C C T U V O2 O N4S NO O+ N2D TI TE NE O2+ W Z CMAX = 1800.,0., 0., 0.,13.5E10,0.,70.E6,0.,0.,0.,0.,300000.,0.,0.,0., C POT N2 FOF2 RHO 0., 0.,24.,50.E-15 ENDOFREAD 6 8. 1.2 THERMOSPHERE IONOSPHERE ELECTRODYNAMICS GENERAL CIRCULATION MODEL RESULTS FOR THE 10-DAY PERIOD MARCH 20 TO MARCH 29, 1979 0 9 10. 1.2 TIEGCM NEUTRAL TEMPERATURE (DEG K) PRESSURE LEVEL = -4 (APPROX 120 KM) MIN,MAX = 320,648 CONTOUR INTERVAL = 20 DEG CYLINDRICAL EQUIDISTANT PROJECTION LOCAL NOON AT CENTER OF X-AXIS 0 11 10. 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 9 7. 1.2 PRODUCED BY THE NATIONAL CENTER FOR ATMOSPHERIC RESEARCH BOULDER, COLORADO 80307 UNDER SPONSORSHIP OF THE NATIONAL SCIENCE FOUNDATION JUNE 1992 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