IndexRundeck: E6TomaF40Created: Fri May 17 03:30:39 EDT 2024

TRCHEM_SHINDELL_COM
File: TRCHEM_Shindell_COM.f
Summary: TRCHEM_Shindell_COM declares variables for tracer chemistry and sources.
Author : Drew Shindell (modelEifications by Greg Faluvegi)
Version:
Subroutines:
Global Variables:
im : used from resolution

jm : used from resolution

lm : used from resolution

dtsrc : used from model_com

itime : used from model_com

itimei : used from model_com

pi : used from constant

mair : used from constant

mwat : used from constant

radian : used from constant

byavog : used from constant

avog : used from constant

gasc : used from constant

ma : used from atm_com

byma : used from atm_com

pmid : used from atm_com

pk : used from atm_com

trm : used from tracer_com

ntm_chem : used from tracer_com

tr_mm : used from oldtracer_mod

rrmono : type(rrmono_index)

Used by: | :chemstep | :cloxfam | :set_rrate_index |
rrbi : type(rrbi_index)

Used by: | :broxfam | :chemstep | :cloxfam | :crates | :hoxfam | :noxfam | :oxfam | :set_rrate_index |
rrtri : type(rrtri_index)

Used by: | :broxfam | :chemstep | :cloxfam | :hoxfam | :jplrts | :noxfam | :oxfam | :set_rrate_index |
p_1 : integer, parameter
number of reactants or products per reaction
Initial Value = 2
Used by: | :calcls | :chem1 | :chem1prn | :fastj2_init | :guide |
n_rx : integer, parameter
maximum number of chemical reactions in JPLRX
Initial Value = n_bi+n_nst+n_tri+n_het
Used by: | :alloc_trchem_shindell_com | :chemstep | :jplrts | :rates | :reactn |
n_bi : integer, parameter
maximum number of bimolecular reactions in JPLRX
Initial Value = 96+n_bi_terp+n_bi_dCO
Used by: | :crates | :jplrts |
n_tri : integer, parameter
maximum number of trimolecular reactions in JPLRX
Initial Value = 11+n_tri_dCO
Used by: | :crates | :jplrts |
n_nst : integer, parameter
maximum number of monomolecular decompositions in JPLRX
Initial Value = 3
Used by: | :crates | :jplrts |
n_het : integer, parameter
maximum number of heterogeneous reactions in JPLRX
Initial Value = 5
Used by: | :crates | :jplrts | :rates |
numfam : integer, parameter
number of chemical families in JPLRX
Initial Value = 4
Used by: | :calcls | :chem1 | :chem1prn |
n_rj : integer, parameter
number of photolysis reactions in JPLPH
Initial Value = 28+n_rj_dCO
Used by: | :alloc_trchem_shindell_com | :chemstep | :fastj2_init | :rates | :reactn |
luselb : logical, parameter
Use reflective photolysis boundary treatment
Initial Value = .false.
zlbatm : real*8, parameter
Optical depth above which to set lower boundary
Initial Value = 4.d0
cmeq1 : real*8, parameter
?
Initial Value = 0.25d0
nc : integer, parameter
total number of molecules included (incl. O2 and N2)
Initial Value = ny+ntm_chem_extra
Used by: | :alloc_trchem_shindell_com | :calcls | :chem1 | :chem1prn | :cheminit | :guide | :lstnum | :printls |
ny : integer, parameter
number of chemically calculated gases (no O2 or N2)
Initial Value = ntm_chem+ntm_chem_nontransp
Used by: | :alloc_trchem_shindell_com | :calcls | :chem1 | :cheminit | :printls | :rates |
o3mult : real*8, parameter
=2.14d-2 This is the conversion from (atm*cm) units
Initial Value = 2.14d-2
Used by: | :tracer_ic |
cpd : real*8, parameter
conversion from molecules/cm3 to mole/m3
Initial Value = 1.d6*byavog
Used by: | :chemstep |
byo3mult : real*8, parameter
= 1/O3MULT
Initial Value = 1./O3MULT
Used by: | :tracer_ic |
pfix_h2 : real*8, parameter
fixed ratio of H2/M
Initial Value = 560.d-9
pfix_aldehyde : real*8, parameter
fixed ratio of Aldehyde/M for initial conditions
Initial Value = 2.d-9
mwabymww : real*8, parameter
ratio of molecular weights of air/water
Initial Value = mair/mwat
Used by: | :chemstep |
kboltj : real*8, parameter
Boltzmann constant in J K-1
Initial Value = gasc/avog
cboltz : real*8, parameter
1/(T*cboltz) would convert pressure in hPa to number
Initial Value = 1.d4*kboltJ
Used by: | :crates |
byradian : real*8, parameter
1/radian = conversion from radians to degrees
Initial Value = 1.d0/radian
Used by: | :get_sza |
lcoalt : integer, parameter
number of levels in the several tracer IC arrays
Initial Value = 23
Used by: | :alloc_trchem_shindell_com | :inittracergriddeddata | :interpolatealtitude | :laterinittracermetadata |
lch4alt : integer, parameter
number of levels in the CH4altIN array
Initial Value = 6
Used by: | :inittracergriddeddata | :laterinittracermetadata |
pcoalt : real*8, parameter, dimension(lcoalt)
pressures at LCOalt levels
Initial Value = (/ 0.9720D+03,0.9445D+03,0.9065D+03, 0.8515D+03,0.7645D+03,0.6400D+03,0.4975D+03,0.3695D+03, 0.2795D+03,0.2185D+03,0.1710D+03,0.1335D+03,0.1016D+03, 0.7120D+02,0.4390D+02,0.2470D+02,0.1390D+02,0.7315D+01, 0.3045D+01,0.9605D+00,0.3030D+00,0.8810D-01,0.1663D-01/)
Used by: | :inittracergriddeddata | :interpolatealtitude | :laterinittracermetadata |
pch4alt : real*8, parameter, dimension(lch4alt)
pressures at LCH4alt levels
Initial Value = (/569d0, 150d0, 100d0, 32d0, 3.2d0, 0.23d0/)
Used by: | :inittracergriddeddata | :laterinittracermetadata |
t_thresh : real*8, parameter
threshold temperature used in master chem
Initial Value = 200.d0
n2o_pppv : real*8, parameter
default N2O L=1 overwriting in pppv
Initial Value = 316.3d-9
cfc_pppv : real*8, parameter
default CFC L=1 overwriting in pppv
Initial Value = 1722.d-12
cfc_rad95 : real*8, parameter
the average L=1 radiation code CFC11+CFC12 value
Initial Value = 794.d-12
Used by: | :inittracergriddeddata | :laterinittracermetadata |
fact_cfc : real*8, parameter
ratio of our default CFC L=1 overwriting to the
Initial Value = cfc_pppv/cfc_rad95
Used by: | :tracer_3dsource |
psclats : real*8
SH latitude limit for PSCs
Initial Value = -50.d0
psclatn : real*8
NH latitude limit for PSCs
Initial Value = 50.d0
minkg : real*8, parameter
minimum kg for trm before we set to this after change
Initial Value = 0.d0
Used by: | :chemstep |
kbolt :
Boltzmann's constant in erg K-1 or (1d-7 J) K-1
boltavog8bypi :
kbolt*avog*8/pi derived quantity used in chemistry
rrhet : type(rrhet_index)

Used by: | :crates | :set_rrate_index |
n_bi_terp : integer, parameter
Initial Value = 3
ntm_shindell_nontransp : integer, parameter
Initial Value = 26
ntm_dco_nontransp : integer, parameter
Initial Value = 0
n_bi_dco : integer, parameter
Initial Value = 0
n_tri_dco : integer, parameter
Initial Value = 0
n_rj_dco : integer, parameter
Initial Value = 0
ntm_chem_nontransp : integer, parameter
Initial Value = ntm_shindell_nontransp+ntm_dCO_nontransp
ntm_chem_extra : integer, parameter
Initial Value = 2
nc2o3 : integer, parameter
Initial Value = 1+ntm_chem+ntm_dCO_nontransp
Used by: | :chemstep | :hoxfam | :noxfam |
nxo2 : integer, parameter
Initial Value = 2+ntm_chem+ntm_dCO_nontransp
Used by: | :chemstep | :hoxfam | :noxfam |
nxo2n : integer, parameter
Initial Value = 3+ntm_chem+ntm_dCO_nontransp
Used by: | :chemstep | :hoxfam |
nrxpar : integer, parameter
Initial Value = 4+ntm_chem+ntm_dCO_nontransp
Used by: | :chemstep |
nror : integer, parameter
Initial Value = 5+ntm_chem+ntm_dCO_nontransp
Used by: | :chemstep | :hoxfam |
naldehyde : integer, parameter
Initial Value = 6+ntm_chem+ntm_dCO_nontransp
Used by: | :chemstep | :hoxfam |
nh2o : integer, parameter
Initial Value = 7+ntm_chem+ntm_dCO_nontransp
Used by: | :chemstep | :crates | :hoxfam | :oxfam |
nch3o2 : integer, parameter
Initial Value = 8+ntm_chem+ntm_dCO_nontransp
Used by: | :chemstep | :cloxfam | :hoxfam | :noxfam |
nh2 : integer, parameter
Initial Value = 9+ntm_chem+ntm_dCO_nontransp
Used by: | :cloxfam | :hoxfam |
noh : integer, parameter
Initial Value = 10+ntm_chem+ntm_dCO_nontransp
Used by: | :broxfam | :chemstep | :cloxfam | :hoxfam |
nho2 : integer, parameter
Initial Value = 11+ntm_chem+ntm_dCO_nontransp
Used by: | :broxfam | :chemstep | :cloxfam | :hoxfam | :noxfam |
no3 : integer, parameter
Initial Value = 12+ntm_chem+ntm_dCO_nontransp
Used by: | :broxfam | :chemstep | :cloxfam | :hoxfam | :noxfam | :oxfam |
no : integer, parameter
Initial Value = 13+ntm_chem+ntm_dCO_nontransp
Used by: | :broxfam | :chemstep | :cloxfam | :hoxfam | :noxfam | :oxfam |
no1d : integer, parameter
Initial Value = 14+ntm_chem+ntm_dCO_nontransp
Used by: | :chemstep | :hoxfam | :oxfam |
nno : integer, parameter
Initial Value = 15+ntm_chem+ntm_dCO_nontransp
Used by: | :broxfam | :chemstep | :cloxfam | :hoxfam | :noxfam |
nno2 : integer, parameter
Initial Value = 16+ntm_chem+ntm_dCO_nontransp
Used by: | :broxfam | :chemstep | :cloxfam | :hoxfam | :noxfam |
nno3 : integer, parameter
Initial Value = 17+ntm_chem+ntm_dCO_nontransp
Used by: | :chemstep | :cloxfam | :noxfam |
nhono : integer, parameter
Initial Value = 18+ntm_chem+ntm_dCO_nontransp
Used by: | :noxfam |
ncl2o2 : integer, parameter
Initial Value = 19+ntm_chem+ntm_dCO_nontransp
Used by: | :cloxfam |
nclo : integer, parameter
Initial Value = 20+ntm_chem+ntm_dCO_nontransp
Used by: | :broxfam | :chemstep | :cloxfam | :hoxfam | :noxfam |
noclo : integer, parameter
Initial Value = 21+ntm_chem+ntm_dCO_nontransp
Used by: | :broxfam | :chemstep | :cloxfam | :hoxfam | :noxfam |
ncl2 : integer, parameter
Initial Value = 22+ntm_chem+ntm_dCO_nontransp
Used by: | :chemstep | :cloxfam |
ncl : integer, parameter
Initial Value = 23+ntm_chem+ntm_dCO_nontransp
Used by: | :chemstep | :cloxfam | :hoxfam |
nbrcl : integer, parameter
Initial Value = 24+ntm_chem+ntm_dCO_nontransp
nbro : integer, parameter
Initial Value = 25+ntm_chem+ntm_dCO_nontransp
Used by: | :broxfam | :chemstep | :cloxfam | :hoxfam | :noxfam |
nbr : integer, parameter
Initial Value = 26+ntm_chem+ntm_dCO_nontransp
Used by: | :broxfam | :chemstep | :cloxfam | :hoxfam |
no2 : integer, parameter
Initial Value = 1+ntm_chem+ntm_chem_nontransp
Used by: | :chemstep | :hoxfam | :oxfam |
nm : integer, parameter
Initial Value = 2+ntm_chem+ntm_chem_nontransp
Used by: | :chemstep | :cloxfam | :crates | :hoxfam | :oxfam |
broxaltin : real*8, parameter, dimension(lcoalt)
altitude dependence BrOx (unitless,LCOalt levels)
Initial Value = (/1.d-2,1.d-2,1.d-2,1.d-2,1.d-2,1.d-2,1.d-2, 1.d-2,1.d-2,1.d-2,1.d-2,0.12d0,0.12d0,0.12d0,0.12d0,0.06d0, 0.06d0,0.06d0,0.06d0,0.06d0,0.06d0,0.06d0,0.06d0/)
Used by: | :inittracergriddeddata | :interpolatealtitude | :laterinittracermetadata |
cloxaltin : real*8, parameter, dimension(lcoalt)
altitude dependence ClOx (unitless,LCOalt levels)
Initial Value = (/1.d0,1.d0,1.d0,1.d0,1.d0,1.d0,1.d0,1.d0,1.d0, 1.d0,1.d0,8.d0,8.d0,8.d0,8.d0,8.d1,8.d1,8.d1,8.d1,8.d0,8.d0, 8.d0,8.d0/)
Used by: | :inittracergriddeddata | :interpolatealtitude | :laterinittracermetadata |
clono2altin : real*8, parameter, dimension(lcoalt)
altitude dependence ClONO2 (unitless,LCOalt levels)
Initial Value = (/1.d0,1.d0,1.d0,1.d0,1.d0,1.d0,1.d0,1.d0, 1.d0,1.d0,1.d0,1.d0,1.d0,5.d1,5.d1,5.d1,5.d1,5.d1,5.d1,5.d1, 5.d1,5.d1,5.d1/)
Used by: | :inittracergriddeddata | :interpolatealtitude | :laterinittracermetadata |
hclaltin : real*8, parameter, dimension(lcoalt)
altitude dependence HCl (unitless,LCOalt levels)
Initial Value = (/1.d0,1.d0,1.d0,1.d0,1.d0,1.d0,1.d0,1.d0,1.d0, 1.d0,1.d0,2.5d1,4.0d1,9.0d1,1.7d2,1.9d2,2.5d2,2.5d2,2.5d2, 2.5d2,2.5d2,2.5d2,2.5d2/)
Used by: | :inittracergriddeddata | :interpolatealtitude | :laterinittracermetadata |
tpsc_offset_n : real*8
NH offset for the above T_thresh
Initial Value = -10.d0
Used by: | :laterinittracermetadata |
tpsc_offset_s : real*8
SH offset for the above T_thresh
Initial Value = -10.d0
Used by: | :laterinittracermetadata |
reg1power_sphero2andn2ocorr : real*8
first from surface region power of
Initial Value = 2.0d0
Used by: | :laterinittracermetadata |
reg2power_sphero2andn2ocorr : real*8
second from surface region power of
Initial Value = 2.0d0
Used by: | :laterinittracermetadata |
reg3power_sphero2andn2ocorr : real*8
third from surface region power of
Initial Value = 1.0d0
Used by: | :laterinittracermetadata |
reg4power_sphero2andn2ocorr : real*8
fourth and last from surface region power of
Initial Value = 0.5d0
Used by: | :laterinittracermetadata |
reg1toppres_sphero2andn2ocorr : real*8
pressure at top of first from surface region
Initial Value = 50.d0
Used by: | :laterinittracermetadata |
reg2toppres_sphero2andn2ocorr : real*8
pressure at top of second from surface region
Initial Value = 10.d0
Used by: | :laterinittracermetadata |
reg3toppres_sphero2andn2ocorr : real*8
pressure at top of third from surface region
Initial Value = 5.d0
Used by: | :laterinittracermetadata |
windowo2corr : real*8
linear correction to ss(rj%O2__O_O) O2 in window region (in addition to spherical)
Initial Value = 0.8d0
Used by: | :laterinittracermetadata |
windown2ocorr : real*8
linear correction to ss(rj%N2O__M_O1D) N2O in window region (in addition to spherical)
Initial Value = 0.8d0
Used by: | :laterinittracermetadata |
ch4_init_nh : real*8
initial methane conc. (ppmv)
Initial Value = 1.855d0
Used by: | :get_ch4_ic | :inittracergriddeddata |
ch4_init_sh : real*8
initial methane conc. (ppmv)
Initial Value = 1.750d0
Used by: | :get_ch4_ic | :inittracergriddeddata |
allowsomechemreinit : integer
(1=YES) to allow some chemistry variables
Initial Value = 1
Used by: | :cheminit | :laterinittracermetadata |
fix_ch4_chemistry : integer
(1=YES 0=NO) whether or not to used a fixed
Initial Value = 0
Used by: | :daily_tracer | :get_ch4_ic | :inittracergriddeddata | :laterinittracermetadata | :tracer_3dsource | :tracer_ic |
scale_ch4_ic_file : real*8
multiplicative factor of CH4 IC if
Initial Value = 1.d0
Used by: | :inittracergriddeddata | :laterinittracermetadata |
use_rad_ch4 : integer
=1 replaces CH4 surface sources with L=1
Initial Value = 0
Used by: | :inittracergriddeddata | :inittracermetadata | :setdefaultspec | :tracer_3dsource | :tracer_ic |
use_rad_n2o : integer
=1 as ch4 case above
Initial Value = 0
Used by: | :inittracergriddeddata | :laterinittracermetadata | :tracer_3dsource | :tracer_ic |
use_rad_cfc : integer
=1 as ch4 case above
Initial Value = 0
Used by: | :inittracergriddeddata | :laterinittracermetadata | :tracer_3dsource | :tracer_ic |
lmax_rad_o3 : integer
model levels to use tracer Ox in rad code (if on)
Initial Value = LM
Used by: | :inittracergriddeddata | :laterinittracermetadata | :radia |
lmax_rad_ch4 : integer
model levels to use tracer CH4 in rad code(if on)
Initial Value = LM
Used by: | :inittracergriddeddata | :laterinittracermetadata | :radia |
which_trop : integer
1=ls1-1 is tropopause, 0=LTROPO(I,J) is tropopause
Initial Value = 0
Used by: | :broxfam | :chemstep | :cloxfam | :crates | :hoxfam | :laterinittracermetadata | :noxfam |
pi_run : integer
used to turn on (1) and off (0) use of PI_ratio*
Initial Value = 0
Used by: | :laterinittracermetadata | :tracer_ic |
piratio_n : real*8
to scale NOx, HNO3, N2O5, HO2NO2
Initial Value = 0.667d0
Used by: | :laterinittracermetadata | :tracer_ic |
piratio_co_t : real*8
to scale tropospheric CO IC and overwrite
Initial Value = 0.667d0
Used by: | :laterinittracermetadata | :tracer_ic |
piratio_co_s : real*8
to scale stratospheric CO IC and overwrite
Initial Value = 0.500d0
Used by: | :laterinittracermetadata | :tracer_ic |
piratio_other : real*8
to scale PAN,Isoprene,AlkyNit,Alkenes,Paraffin
Initial Value = 0.500d0
Used by: | :laterinittracermetadata | :tracer_ic |
piratio_n2o : real*8
preindustrial ratio for N2O ICs and L=1 overwrite
Initial Value = 0.896d0
Used by: | :laterinittracermetadata | :tracer_ic |
piratio_cfc : real*8
preindustrial ratio for CFC ICs and L=1 overwrite
Initial Value = 0.000d0
Used by: | :laterinittracermetadata | :tracer_ic |
pltox : real*8
for pres<PltOx Ox, NOx, ClOx, and BrOx get overwritten
Initial Value = 0.000d0
Used by: | :laterinittracermetadata |
ch4altint : real*8, parameter, dimension(lch4alt)
tropical strat adjustments to CH4 (LCH4alt levels)
Initial Value = (/1.79d0, 1.75d0, 1.620d0,1.460d0,0.812d0,0.230d0/)
Used by: | :inittracergriddeddata | :laterinittracermetadata |
ch4altinx : real*8, parameter, dimension(lch4alt)
xtra-tropical strat adjustments to CH4 LCH4alt levels)
Initial Value = (/1.79d0, 1.75d0, 1.440d0,1.130d0,0.473d0,0.202d0/)
Used by: | :inittracergriddeddata | :laterinittracermetadata |
toplevelofchemistry : integer
the model level above which no chemistry is done
Used by: | :alloc_trchem_shindell_com | :cheminit | :crates | :diaga | :fastj2_init | :photo_acetone | :tracer_3dsource | :updatesulfate |
nn : integer, dimension(p_1, n_rx)
name of species that reacts, as defined in the MOLEC file. The
Used by: | :chemstep | :jplrts | :printls | :rates | :reactn |
nnr : integer, dimension(p_1, n_rx)
same as nn, for products
Used by: | :chemstep | :jplrts | :printls | :reactn |
nps : integer, dimension(p_1*n_rj)
reaction index for production as defined in JPLPH, given the
Used by: | :chemstep | :printls | :reactn |
nds : integer, dimension(p_1*n_rj)
same as nps for destruction
Used by: | :chemstep | :printls | :reactn |
npnr : integer, dimension(p_1*n_rx)
same as nps for thermal reactions in JPLRX
Used by: | :chemstep | :printls | :reactn |
ndnr : integer, dimension(p_1*n_rx)
same as npnr for destruction
Used by: | :chemstep | :printls | :reactn |
kps : integer, dimension(nc)
index of JPLPH reaction (production) per photodissociating
Used by: | :chemstep | :printls | :reactn |
kds : integer, dimension(nc)
same as kps for destruction
Used by: | :chemstep | :printls | :reactn |
kpnr : integer, dimension(nc)
same as kps for thermal reactions in JPLRX
Used by: | :chemstep | :printls | :reactn |
kdnr : integer, dimension(nc)
same as kpnr for destruction
Used by: | :chemstep | :printls | :reactn |
nst : integer, dimension(n_nst)
reverse reaction number for dissociation reactions
Used by: | :crates | :jplrts |
iprn : integer
l, j, and i point for chemistry debugging
Used by: | :cheminit | :chemstep | :fastj2_init |
jprn : integer
l, j, and i point for chemistry debugging
Used by: | :cheminit | :chemstep | :fastj2_init |
lprn : integer
l, j, and i point for chemistry debugging
Used by: | :chem1prn | :cheminit | :chemstep |
ay : character*8, dimension(nc)
name of gas being considered, as defined in MOLEC
Used by: | :chem1prn | :cheminit | :chemstep | :jplrts | :lstnum | :printls |
y : real*8, allocatable, dimension(:, :)
concentration of gas, 1st index=gas number, 2nd=verticle level
Used by: | :alloc_trchem_shindell_com | :broxfam | :chem1prn | :chemstep | :cloxfam | :crates | :hoxfam | :noxfam | :oxfam | :rates |
rr : real*8, allocatable, dimension(:, :)
rate constant of chemical reaction, first index - reaction
Used by: | :alloc_trchem_shindell_com | :broxfam | :chemstep | :cloxfam | :crates | :hoxfam | :noxfam | :oxfam | :rates |
ss : real*8, allocatable, dimension(:, :, :, :)
photodissociation coefficient, indicies; rxn #,L,I,J
Used by: | :alloc_trchem_shindell_com | :broxfam | :chemstep | :cloxfam | :hoxfam | :noxfam | :oxfam | :rates | :tracerio |
pe : real*8, dimension(n_bi+n_nst)
rate constant for bimolecular chemical reaction
Used by: | :crates | :jplrts |
ea : real*8, dimension(n_bi+n_nst)
activation energy constant for bimolecular chemical reactions
Used by: | :crates | :jplrts |
sb : real*8, dimension(n_tri)
rate parameters for trimolecular reactions
Used by: | :crates | :jplrts |
sn : real*8, dimension(n_tri)
rate parameters for trimolecular reactions
Used by: | :crates | :jplrts |
r1 : real*8, dimension(n_tri)
rate parameters for trimolecular reactions
Used by: | :crates | :jplrts |
ro : real*8, dimension(n_tri)
rate parameters for trimolecular reactions
Used by: | :crates | :jplrts |
conc :
concentration of optically important gases (O2 & O3), first
txl :
temperature profile
prnrts : logical
logical: print rate of each chemical reaction?
Used by: | :cheminit | :chemstep | :fastj2_init |
prnchg : logical
logical: print chemical changes?
Used by: | :cheminit | :chemstep |
prnls : logical
logical: print reaction lists by species?
Used by: | :calcls | :cheminit | :reactn |
yrxpar : real*8, allocatable, dimension(:, :, :)
?
Used by: | :alloc_trchem_shindell_com | :cheminit | :chemstep | :tracerio |
yxo2n : real*8, allocatable, dimension(:, :, :)
?
Used by: | :alloc_trchem_shindell_com | :cheminit | :chemstep | :tracerio |
yaldehyde : real*8, allocatable, dimension(:, :, :)
?
Used by: | :alloc_trchem_shindell_com | :cheminit | :chemstep | :tracerio |
yxo2 : real*8, allocatable, dimension(:, :, :)
?
Used by: | :alloc_trchem_shindell_com | :cheminit | :chemstep | :tracerio |
yror : real*8, allocatable, dimension(:, :, :)
?
Used by: | :alloc_trchem_shindell_com | :cheminit | :chemstep | :tracerio |
yc2o3 : real*8, allocatable, dimension(:, :, :)
?
Used by: | :alloc_trchem_shindell_com | :cheminit | :chemstep | :tracerio |
ych3o2 : real*8, allocatable, dimension(:, :, :)
?
Used by: | :alloc_trchem_shindell_com | :cheminit | :chemstep | :tracerio |
pox : real*8, allocatable, dimension(:, :, :)
?
Used by: | :alloc_trchem_shindell_com | :cheminit | :oxfam | :tracerio |
pnox : real*8, allocatable, dimension(:, :, :)
?
Used by: | :alloc_trchem_shindell_com | :cheminit | :get_dep_vel | :noxfam | :tracerio |
phox : real*8, allocatable, dimension(:, :, :)
?
Used by: | :alloc_trchem_shindell_com | :cheminit | :hoxfam | :tracerio |
yno3 : real*8, allocatable, dimension(:, :, :)
?
Used by: | :alloc_trchem_shindell_com | :cheminit | :hoxfam | :noxfam | :tracerio |
mno2 : real*8, allocatable, dimension(:, :, :)
3D vol mixing ratio of NO2 saved for subdaily diagnostics
Used by: | :alloc_trchem_shindell_com | :diaga |
ycl2o2 : real*8, allocatable, dimension(:, :, :)
3D arrays to remember some non-tracer species...
Used by: | :alloc_trchem_shindell_com | :cheminit | :chemstep | :cloxfam | :tracerio |
ycl2 : real*8, allocatable, dimension(:, :, :)
3D arrays to remember some non-tracer species...
Used by: | :alloc_trchem_shindell_com | :cheminit | :chemstep | :cloxfam | :tracerio |
ncfastj : integer
number of levels in the fastj atmosphere
miedx : integer
Type of aerosol scattering, currently 6 set up:
pfastj :
pressure sent to FASTJ
rayleigh :
parameters (effective cross-section) (cm2)
odtmp : real*8, allocatable, dimension(:)
Optical depth (temporary array)
Used by: | :alloc_trchem_shindell_com |
xltau : real*8
TTAU along the slant path
xl :
Slant path between points
nfam : integer, dimension(numfam+1)
number of beginning molecule of each chemical family
Initial Value = (/0,0,0,0,ny+1/)
Used by: | :calcls | :chem1 | :chem1prn | :cheminit |
salbfj :
surface albedo parameter from radiation to fastj
oxicin : real*8, allocatable, dimension(:, :, :)
Ox initial conditions (unit=PPPM,LCOalt levels)
Used by: | :alloc_trchem_shindell_com | :inittracergriddeddata | :laterinittracermetadata |
oxicinl : real*8, dimension(lcoalt)
column version of OxICIN
Used by: | :inittracergriddeddata | :laterinittracermetadata |
coicin : real*8, allocatable, dimension(:, :, :)
CO initial conditions (unit=PPPM,LCOalt levels)
Used by: | :alloc_trchem_shindell_com | :inittracergriddeddata | :laterinittracermetadata |
coicinl : real*8, dimension(lcoalt)
column version of OxICIN
Used by: | :inittracergriddeddata | :laterinittracermetadata |
n2oicin : real*8, allocatable, dimension(:, :, :)
N2O initial conditions (unit=PPPM,LCOalt levels)
Used by: | :alloc_trchem_shindell_com | :inittracergriddeddata | :laterinittracermetadata |
n2oicinl : real*8, dimension(lcoalt)
column version of N2OICIN
Used by: | :inittracergriddeddata | :laterinittracermetadata |
ch4icin : real*8, allocatable, dimension(:, :, :)
CH4 initial conditions (unit=PPPM,LCOalt levels)
Used by: | :alloc_trchem_shindell_com | :inittracergriddeddata | :laterinittracermetadata |
ch4icinl : real*8, dimension(lcoalt)
column version of CH4ICIN
Used by: | :inittracergriddeddata | :laterinittracermetadata |
cfcicin : real*8, allocatable, dimension(:, :, :)
CFC initial conditions (unit=PPPM,LCOalt levels)
Used by: | :alloc_trchem_shindell_com | :inittracergriddeddata | :laterinittracermetadata |
cfcicinl : real*8, dimension(lcoalt)
column version of CFCICIN
Used by: | :inittracergriddeddata | :laterinittracermetadata |
broxaltin : real*8, parameter, dimension(lcoalt)
altitude dependence BrOx (unitless,LCOalt levels)
Initial Value = (/1.d-2,1.d-2,1.d-2,1.d-2,1.d-2,1.d-2,1.d-2, 1.d-2,1.d-2,1.d-2,1.d-2,0.12d0,0.12d0,0.12d0,0.12d0,0.06d0, 0.06d0,0.06d0,0.06d0,0.06d0,0.06d0,0.06d0,0.06d0/)
Used by: | :inittracergriddeddata | :interpolatealtitude | :laterinittracermetadata |
cloxaltin : real*8, parameter, dimension(lcoalt)
altitude dependence ClOx (unitless,LCOalt levels)
Initial Value = (/1.d0,1.d0,1.d0,1.d0,1.d0,1.d0,1.d0,1.d0,1.d0, 1.d0,1.d0,8.d0,8.d0,8.d0,8.d0,8.d1,8.d1,8.d1,8.d1,8.d0,8.d0, 8.d0,8.d0/)
Used by: | :inittracergriddeddata | :interpolatealtitude | :laterinittracermetadata |
clono2altin : real*8, parameter, dimension(lcoalt)
altitude dependence ClONO2 (unitless,LCOalt levels)
Initial Value = (/1.d0,1.d0,1.d0,1.d0,1.d0,1.d0,1.d0,1.d0, 1.d0,1.d0,1.d0,1.d0,1.d0,5.d1,5.d1,5.d1,5.d1,5.d1,5.d1,5.d1, 5.d1,5.d1,5.d1/)
Used by: | :inittracergriddeddata | :interpolatealtitude | :laterinittracermetadata |
hclaltin : real*8, parameter, dimension(lcoalt)
altitude dependence HCl (unitless,LCOalt levels)
Initial Value = (/1.d0,1.d0,1.d0,1.d0,1.d0,1.d0,1.d0,1.d0,1.d0, 1.d0,1.d0,2.5d1,4.0d1,9.0d1,1.7d2,1.9d2,2.5d2,2.5d2,2.5d2, 2.5d2,2.5d2,2.5d2,2.5d2/)
Used by: | :inittracergriddeddata | :interpolatealtitude | :laterinittracermetadata |
ch4altint : real*8, parameter, dimension(lch4alt)
tropical strat adjustments to CH4 (LCH4alt levels)
Initial Value = (/1.79d0, 1.75d0, 1.620d0,1.460d0,0.812d0,0.230d0/)
Used by: | :inittracergriddeddata | :laterinittracermetadata |
ch4altinx : real*8, parameter, dimension(lch4alt)
xtra-tropical strat adjustments to CH4 LCH4alt levels)
Initial Value = (/1.79d0, 1.75d0, 1.440d0,1.130d0,0.473d0,0.202d0/)
Used by: | :inittracergriddeddata | :laterinittracermetadata |
oxic : real*8, allocatable, dimension(:, :, :)
Ox initial conditions (unit=KG,LM levels)
Used by: | :alloc_trchem_shindell_com | :inittracergriddeddata | :laterinittracermetadata | :tracer_ic |
oxicl : real*8, dimension(lm)
column version of OxIC
Used by: | :inittracergriddeddata | :laterinittracermetadata |
coic : real*8, allocatable, dimension(:, :, :)
CO initial conditions (unit=KG,LM levels)
Used by: | :alloc_trchem_shindell_com | :inittracergriddeddata | :laterinittracermetadata | :tracer_ic |
coicl : real*8, dimension(lm)
column version of COIC
Used by: | :inittracergriddeddata | :laterinittracermetadata |
n2oicx : real*8, allocatable, dimension(:, :, :)
N2O initial conditions (unit=KG,LM levels) X=not Jean's
Used by: | :alloc_trchem_shindell_com | :inittracergriddeddata | :laterinittracermetadata | :tracer_ic |
n2oicl : real*8, dimension(lm)
column version of N2OICX
Used by: | :inittracergriddeddata | :laterinittracermetadata |
ch4icx : real*8, allocatable, dimension(:, :, :)
CH4 initial conditions (unit=KG,LM levels) X=not Jean's
Used by: | :alloc_trchem_shindell_com | :inittracergriddeddata | :laterinittracermetadata | :tracer_ic |
ch4icl : real*8, dimension(lm)
column version of CH4ICX
Used by: | :inittracergriddeddata | :laterinittracermetadata |
cfcic : real*8, allocatable, dimension(:, :, :)
CFC initial conditions (unit=KG,LM levels)
Used by: | :alloc_trchem_shindell_com | :inittracergriddeddata | :laterinittracermetadata | :tracer_ic |
cfcicl : real*8, dimension(lm)
column version of CFCIC
Used by: | :inittracergriddeddata | :laterinittracermetadata |
broxalt : real*8, dimension(lm)
altitude dependence BrOx (unitless,LM levels)
Used by: | :inittracergriddeddata | :interpolatealtitude | :laterinittracermetadata | :tracer_ic |
cloxalt : real*8, dimension(lm)
altitude dependence ClOx (unitless,LM levels)
Used by: | :inittracergriddeddata | :interpolatealtitude | :laterinittracermetadata | :tracer_ic |
clono2alt : real*8, dimension(lm)
altitude dependence ClONO2 (unitless,LM levels)
Used by: | :inittracergriddeddata | :interpolatealtitude | :laterinittracermetadata | :tracer_ic |
hclalt : real*8, dimension(lm)
altitude dependence HCl (unitless,LM levels)
Used by: | :inittracergriddeddata | :interpolatealtitude | :laterinittracermetadata | :tracer_ic |
ch4altt : real*8, dimension(lm)
tropical strat adjustments to CH4 (unitless, LM levels)
Used by: | :get_ch4_ic | :inittracergriddeddata | :laterinittracermetadata |
ch4altx : real*8, dimension(lm)
xtra-tropical strat adjustments to CH4 (LM levels)
Used by: | :get_ch4_ic | :inittracergriddeddata | :laterinittracermetadata |
byfjm : real*8
= 1/JM
tx : real*8, allocatable, dimension(:, :, :)
temperature variable for master chem
Used by: | :alloc_trchem_shindell_com |
ta : real*8, allocatable, dimension(:)
local array to hold temperature
Used by: | :alloc_trchem_shindell_com | :chemstep | :cloxfam | :crates | :hoxfam | :noxfam |
rh : real*8, allocatable, dimension(:)
local array to hold relative humidity
Used by: | :alloc_trchem_shindell_com | :crates |
fastjlon : real*8
latitude & LONGITUDE (degrees) for use in fastj
fastjlat : real*8
latitude & LONGITUDE (degrees) for use in fastj
sulfate : real*8, allocatable, dimension(:, :, :)
N2O5 sulfate sink (formerly SRC(I,J,L,20) variable)
Used by: | :alloc_trchem_shindell_com | :crates | :daily_tracer | :tracerio | :updatesulfate |
dms_offline : real*8, allocatable, dimension(:, :, :)
DMS concentration for HOx sink reactions
Used by: | :alloc_trchem_shindell_com | :daily_tracer |
so2_offline : real*8, allocatable, dimension(:, :, :)
SO2 concentration for HOx conversion reactions
Used by: | :alloc_trchem_shindell_com | :daily_tracer |
prod_sulfate :
N2O5 change by sulfate reactions in mass units
dt2 : real*8
variable chemical time step, set in masterchem
Used by: | :chemstep | :cloxfam | :crates | :hoxfam | :rates |
rnodenom : real*8
variables for nitrogen
Used by: | :chemstep |
rnofrac : real*8
variables for nitrogen
Used by: | :chemstep |
rno2frac : real*8
variables for nitrogen
Used by: | :chemstep |
ration2 : real*8
variables for nitrogen
Used by: | :chemstep |
rations : real*8
variables for nitrogen
Used by: | :chemstep |
chemrate : real*8, allocatable, dimension(:, :)
reaction rate per layer
Used by: | :alloc_trchem_shindell_com | :chemstep | :rates |
photrate : real*8, allocatable, dimension(:, :)
photolysis rate per layer
Used by: | :alloc_trchem_shindell_com | :chemstep | :rates |
l75p : integer
first model level above nominal 75 hPa
l75m : integer
first model level below nominal 75 hPa
f75p : real*8
interpolation coeff. of higher altitude value (units ln(P))
f75m : real*8
interpolation coeff. of lower altitude value (units ln(P))
l569p : integer
first model level above nominal 569 hPa
l569m : integer
first model level below nominal 569 hPa
f569p : real*8
interpolation coeff. of higher altitude value (units ln(P))
f569m : real*8
interpolation coeff. of lower altitude value (units ln(P))
du_o3 : real*8, allocatable, dimension(:)
total column ozone in latitude band
Used by: | :alloc_trchem_shindell_com |
sf3 : real*8, allocatable, dimension(:, :, :)
is H2O photolysis in Schumann-Runge Bands
Used by: | :alloc_trchem_shindell_com | :chemstep | :hoxfam | :tracerio |
sf2 : real*8, allocatable, dimension(:, :, :)
is NO photolysis in Schumann-Runge Bands
Used by: | :alloc_trchem_shindell_com | :chemstep | :tracerio |
jacet : real*8, allocatable, dimension(:)
photolysis rate for acetone (not done through fastj)
Used by: | :alloc_trchem_shindell_com | :chemstep | :photo_acetone |
acetone : real*8, allocatable, dimension(:)
acetone column mixing ratio for the curren I,J (static for now)
Used by: | :alloc_trchem_shindell_com | :chemstep |
pscx : logical, allocatable, dimension(:)
column logical for the existance of polar strat clouds(PSCs)
Used by: | :alloc_trchem_shindell_com | :crates |
save_no2column : real*8, allocatable, dimension(:, :)
instantaneous NO2 column (for SUBDD exporting)
Used by: | :alloc_trchem_shindell_com |
rgammasulf : real*8
N2O5-->HNO3 conversion on aerosols?
Used by: | :crates |
changel : real*8, allocatable, dimension(:, :)
2D array holds the local change due to chem until
Used by: | :alloc_trchem_shindell_com | :chemstep |
bythick : real*8, allocatable, dimension(:)
recipricol thickness of each layer (1/m) saved on
Used by: | :alloc_trchem_shindell_com | :crates |
clox_old : real*8, allocatable, dimension(:)
total ClOx at start of chemical timestep
Used by: | :alloc_trchem_shindell_com | :cloxfam |
mostrecentnonzeroalbedo : real*8, allocatable, dimension(:, :)
remembers last time that ALB(I,J,1) was non-zer
Used by: | :alloc_trchem_shindell_com | :cheminit | :tracerio |
yso2 : real*8, allocatable, dimension(:, :, :)

Used by: | :alloc_trchem_shindell_com | :hoxfam | :tracerio |
ydms : real*8, allocatable, dimension(:, :, :)

Used by: | :alloc_trchem_shindell_com | :hoxfam | :tracerio |
pno3 : real*8, allocatable, dimension(:, :, :)

Used by: | :alloc_trchem_shindell_com | :cheminit | :noxfam | :tracerio |
pclox : real*8, allocatable, dimension(:, :, :)

Used by: | :alloc_trchem_shindell_com | :cheminit | :cloxfam | :tracerio |
pclx : real*8, allocatable, dimension(:, :, :)

Used by: | :alloc_trchem_shindell_com | :cheminit | :cloxfam | :tracerio |
poclox : real*8, allocatable, dimension(:, :, :)

Used by: | :alloc_trchem_shindell_com | :cheminit | :cloxfam | :tracerio |
pbrox : real*8, allocatable, dimension(:, :, :)

Used by: | :alloc_trchem_shindell_com | :broxfam | :cheminit | :tracerio |
dest : real*8, allocatable, dimension(:, :)

Used by: | :alloc_trchem_shindell_com | :chemstep | :rates |
prod : real*8, allocatable, dimension(:, :)

Used by: | :alloc_trchem_shindell_com | :chemstep | :rates |
oxlossbyh : real*8, allocatable, dimension(:)

Used by: | :alloc_trchem_shindell_com | :chemstep | :hoxfam |
tune_nox : real*8
Factor to multiply NOx emissions with
Initial Value = 1.d0
Used by: | :daily_tracer | :laterinittracermetadata |
tune_bvoc : real*8
Factor to multiply biogenic VOC emissions with
Initial Value = 1.d0
Used by: | :daily_tracer | :laterinittracermetadata |
nox_yr : integer
Year of NOx emissions to use
Initial Value = 0
Used by: | :daily_tracer | :laterinittracermetadata |
co_yr : integer
Year of CO emissions to use
Initial Value = 0
Used by: | :daily_tracer | :laterinittracermetadata |
voc_yr : integer
Year of anthropogenic VOC emissions to use
Initial Value = 0
Used by: | :daily_tracer | :laterinittracermetadata |

Simplex Website Curator: Igor Aleinov — NASA Official: Gavin A. Schmidt

Contact GISS — NASA Privacy Policy — Accessibility