&proc_input tmpdir = '/ptmp/foster/tgcmproc' maxdiskvols = 15 ;histvols = '/ROBLE/tiegcm1/py93g01.nc','to', ; '/ROBLE/tiegcm1/py93g18.nc','by','1' ;mtimes = 1,0,0,'to', 20,0,0,'by',1440 histvols = '/ROBLE/tiegcm1/s93g049.nc','to', '/ROBLE/tiegcm1/s93g098.nc','by','1' mtimes = 91,0,0,'to',180,0,0,'by',60 ; 180 days: ntms=4320 (mxtms set to 5000) ;cfields = 'TN','UN','VN','O1','NE','N2','NO' cfields = 'TN','UN','VN','W','O1','O2','NO','NE','POTEN','FOF2','HMF2' iemis_integ = ; height-integration of emission fields (ipltmaps>0) ; E6300 E5577 EO200 EOH83 ECO215u ENO53u 0, 1, 1, 0, 0, 0 ; ; (add SR63 via solred) ie6300 = 0 ; ; idoppler=1 -> generate doppler t,u,v for each emissions field except ; ECO215u and ENO53u. (ipltxyut type line plots only) idoppler = 1 ; ; The following fields are required on the history for e5577: ; if ie5577(1) > 0 -> need tn,o2,o,n2 ; if ie5577(2) > 0 -> need te,o2p,ne,o21d ; if ie5577(3) > 0 -> need tn,ht,o2,o,n2,o21d and call solred ; if ie5577(4) > 0 -> need tn,ht,o2,o,n2,o21d and call solred ; if ie5577(5) > 0 -> need tn,ht,o2,o,n2,o21d and call solred ; (if o21d is needed but is not available, will use 1.e-20) ; (if te is needed but it not available, will use te = tn) ; ; (o1 recomb) (o2+ recomb) (photoe) (airglow) (o2 ly-beta) ie5577 = 1, 0, 0, 0, 0 ; ; iyd,f107a,f107d needed only if ie5577(3 or 4) > 0, i.e., photoe or airglow ; (if not provided here, will use values from history header) ;iyd = 94080 ;f107d = 67. ;f107a = 72. ; ; ieohv = plot flags for 10 oh vibrational states (ieohv(1) is ground) ; (each state plotted as separate field if iehov(i) > 0 ; for plot types ipltutvert and/or ipltxyut (ht-integrations)) ; (fmnmxint and fscale not implemented for ieohv) ; ;ieohv = 0,1,1,1,1,1,1,1,1,1 ;ieohv = 0,1,0,0,0,0,0,0,0,0 ;ieohv = 0,1,0,0,0,1,0,0,0,0 ;ieohv = 0,0,0,0,0,0,0,0,0,0 ; ; ibohv = plot flags for oh-v bands (9-8 to 9-3, 8-7 to 8-3, etc) ; (these will be in kilo-Rayleighs). The following are valid bands ; (ibohv = 2-digit number giving high and low range, e.g. 98 for 9-8) ; ; 1-0 2-1 3-2 4-3 5-4 6-5 7-6 8-7 9-8 ; 2-0 3-1 4-2 5-3 6-4 7-5 8-6 9-7 ; 3-0 4-1 5-2 6-3 7-4 8-5 9-6 ; 4-0 5-1 6-2 7-3 8-4 9-5 ; 5-0 6-1 7-2 8-3 9-4 ; 6-0 7-1 8-2 9-3 ; ibohv = 83 ; ;outplt = 'cgm' outplt = 'cgm','ps' iden = 2 icolor = 1 multiplt = 0 ipltrowcol = 2,2 multiadvfr = 1 iwr_label = 1,1,1,0,0,0 ;------------------------------------------------------------------ ipltlon = 0 ;flons = 150. fslts =10. ;fslts = 6. ;flon_zprange = -999.,999. flon_htscale = 95.,160.,1. ilon_yaxright = 1 ilon_log10 = 0 amphase = 0 istream = 0 ;------------------------------------------------------------------ ipltlat = 0 flats = 2.5,17.5,42.5 ;flat_zprange = -999.,999. flat_htscale = 30.,110.,2. ilat_yaxright = 1 ilat_log10 = 1 ;------------------------------------------------------------------ ipltutvert = 0 utvert_locname = 'MOSCOW','SLOUGH','WALLOPS','BERMUDA', 'KOKUBUNJI','NORFOLK ISLAND','HOBART','PORT STANLEY' utvert_locs = 55.,37., 52.,-1., 39.,77., 35.,-65., 36.,139., -29.,168., -43.,147.,-52.,-58. utvert_htscale = 100.,400.,5. ; bot,top,delta for y-axis ht iutvert_log10 = 0 ; log10 of species ; ;---------------------------------------------------------------------- ipltxyut = 1 ; xyut_locname = 'MOSCOW','SLOUGH','WALLOPS','BERMUDA', 'KOKUBUNJI','NORFOLK ISLAND','HOBART','PORT STANLEY' xyut_locs = 55.,37., 52.,-1., 39.,77., 35.,-65., 36.,139., -29.,168., -43.,147., -52.,-58. ;xyut_zpht = 30.,40.,50.,60.,70.,80.,90.,100. xyut_zpht = 110.,'HMF2' ixyut_log10 = 0 ;---------------------------------------------------------------------- ;sendcgm = 'ouray.hao:/e/roble/henry/eqtran4n.sta.d1-365' ;sendps = 'ouray.hao:/e/roble/henry/eqtran4n.sta.d1-365ps' ;senddat = 'ouray.hao:/e/roble/mesopause/eqtran4n.sta.d1-365dat' ; ;sendcgm = 'vishnu.hao:/e/foster/tgcmproc/eqtran4n.sta.d1-365.cgm' ;sendps = 'vishnu.hao:/e/foster/tgcmproc/eqtran4n.sta.d1-365.ps' ;senddat = 'vishnu.hao:/e/foster/tgcmproc/eqtran4n.sta.d1-365.dat' ; ;sendcgm = 'vishnu.hao:/e/foster/tgcmproc/s93g.sta.d1-20.cgm' ;sendps = 'vishnu.hao:/e/foster/tgcmproc/s93g.sta.d1-20.ps' ;senddat = 'vishnu.hao:/e/foster/tgcmproc/s93g.sta.d1-20.dat' ;senddat = 'vishnu.hao:/e/foster/tgcmproc/s93g.sta.d1-90.dat' senddat = 'vishnu.hao:/e/foster/tgcmproc/s93g.sta.d91-180.dat' &end