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

chemstep

Module:
File: TRCHEM_calc.f
Summary: chemstep Calculate new concentrations after photolysis & chemistry
Author : Drew Shindell (modelEifications by Greg Faluvegi)
Version:

Declaration:
Calls the following subroutines/functions:
rates
Module: Global File: TRCHEM_calc.f
rates calculate reaction rates with present concentrations
chem1
Module: Global File: TRCHEM_calc.f
chem1 calculate chemical destruction/production
chem1prn
Module: Global File: TRCHEM_calc.f
chem1prn for printing out the chemical reactions
Variables:
qmom : used from somtq_com

clim_interact_chem : used from rad_com

ls1 : used from resolution
Initial Value = >ls1_nominal
im : used from resolution

jm : used from resolution

lm : used from resolution

q : used from atm_com

grid : used from domain_decomp_atm

getdomainbounds : used from domain_decomp_atm

write_parallel : used from domain_decomp_atm

ma : used from atm_com

byma : used from atm_com

ltropo : used from atm_com

byaxyp : used from geom

axyp : used from geom

taijls : used from trdiag_com
Initial Value = >taijls_loc
jls_ohcon : used from trdiag_com

jls_day : used from trdiag_com

jls_oxpt : used from trdiag_com

jls_oxdt : used from trdiag_com

jls_oxp : used from trdiag_com

jls_oxd : used from trdiag_com

jls_cop : used from trdiag_com

jls_cod : used from trdiag_com

ijlt_ohvmr : used from trdiag_com

ijlt_ohconc : used from trdiag_com

ijlt_ho2 : used from trdiag_com

ijlt_cop : used from trdiag_com

ijlt_cod : used from trdiag_com

ijlt_oxd : used from trdiag_com

ijlt_oxp : used from trdiag_com

ijlt_ch4d : used from trdiag_com

ijlt_oxpro2 : used from trdiag_com

jls_clocon : used from trdiag_com

jls_h2ocon : used from trdiag_com

jls_h2ochem : used from trdiag_com

vol2mass : used from oldtracer_mod

mass2vol : used from oldtracer_mod

ntm_chem_beg : used from tracer_com

ntm_chem_end : used from tracer_com

ntm_chem : used from tracer_com

n_ch4 : used from tracer_com

n_paraffin : used from tracer_com

n_pan : used from tracer_com

n_isoprene : used from tracer_com

n_stratox : used from tracer_com

n_terpenes : used from tracer_com

n_alkylnit : used from tracer_com

n_alkenes : used from tracer_com

n_n2o5 : used from tracer_com

n_nox : used from tracer_com

n_ho2no2 : used from tracer_com

n_isopp1g : used from tracer_com

n_isopp1a : used from tracer_com

n_isopp2g : used from tracer_com

n_isopp2a : used from tracer_com

n_apinp1g : used from tracer_com

n_apinp1a : used from tracer_com

n_apinp2g : used from tracer_com

n_apinp2a : used from tracer_com

n_ox : used from tracer_com

n_hno3 : used from tracer_com

n_h2o2 : used from tracer_com

n_co : used from tracer_com

trm : used from tracer_com

ntm : used from tracer_com

n_n2o : used from tracer_com

n_clox : used from tracer_com

n_brox : used from tracer_com

n_hcl : used from tracer_com

n_hocl : used from tracer_com

n_clono2 : used from tracer_com

n_hbr : used from tracer_com

n_hobr : used from tracer_com

n_brono2 : used from tracer_com

n_cfc : used from tracer_com

tr_wd_type : used from oldtracer_mod

nwater : used from oldtracer_mod

tr_h2obych4 : used from oldtracer_mod

trmom : used from tracer_com

krate : used from tracer_com

n_n_d1 : used from tracer_com

n_n_d2 : used from tracer_com

n_n_d3 : used from tracer_com

chemrate : used from trchem_shindell_com

photrate : used from trchem_shindell_com

cpd : used from trchem_shindell_com

ych3o2 : used from trchem_shindell_com

yc2o3 : used from trchem_shindell_com

yxo2 : used from trchem_shindell_com

yxo2n : used from trchem_shindell_com

yrxpar : used from trchem_shindell_com

yaldehyde : used from trchem_shindell_com

yror : used from trchem_shindell_com

nch3o2 : used from trchem_shindell_com

nc2o3 : used from trchem_shindell_com

nxo2 : used from trchem_shindell_com

nxo2n : used from trchem_shindell_com

nrxpar : used from trchem_shindell_com

naldehyde : used from trchem_shindell_com

nror : used from trchem_shindell_com

nn : used from trchem_shindell_com

dt2 : used from trchem_shindell_com

dest : used from trchem_shindell_com

prod : used from trchem_shindell_com

rr : used from trchem_shindell_com

no1d : used from trchem_shindell_com

noh : used from trchem_shindell_com

nno : used from trchem_shindell_com

nho2 : used from trchem_shindell_com

ta : used from trchem_shindell_com

nm : used from trchem_shindell_com

ss : used from trchem_shindell_com

no3 : used from trchem_shindell_com

nno2 : used from trchem_shindell_com

nno3 : used from trchem_shindell_com

prnrts : used from trchem_shindell_com

jprn : used from trchem_shindell_com

iprn : used from trchem_shindell_com

lprn : used from trchem_shindell_com

ay : used from trchem_shindell_com

prnchg : used from trchem_shindell_com

y : used from trchem_shindell_com

nps : used from trchem_shindell_com

kps : used from trchem_shindell_com

nds : used from trchem_shindell_com

kds : used from trchem_shindell_com

n_rx : used from trchem_shindell_com

n_rj : used from trchem_shindell_com

npnr : used from trchem_shindell_com

nnr : used from trchem_shindell_com

ndnr : used from trchem_shindell_com

kpnr : used from trchem_shindell_com

kdnr : used from trchem_shindell_com

nh2o : used from trchem_shindell_com

which_trop : used from trchem_shindell_com

jacet : used from trchem_shindell_com

acetone : used from trchem_shindell_com

minkg : used from trchem_shindell_com

rrmono : used from trchem_shindell_com

rrbi : used from trchem_shindell_com

rrtri : used from trchem_shindell_com

sf3 : used from trchem_shindell_com

rations : used from trchem_shindell_com

ration2 : used from trchem_shindell_com

rno2frac : used from trchem_shindell_com

no : used from trchem_shindell_com

nclo : used from trchem_shindell_com

nbro : used from trchem_shindell_com

rnofrac : used from trchem_shindell_com

rnodenom : used from trchem_shindell_com

noclo : used from trchem_shindell_com

ncl : used from trchem_shindell_com

nbr : used from trchem_shindell_com

oxlossbyh : used from trchem_shindell_com

ncl2 : used from trchem_shindell_com

ycl2 : used from trchem_shindell_com

sf2 : used from trchem_shindell_com

no2 : used from trchem_shindell_com

mwabymww : used from trchem_shindell_com

ycl2o2 : used from trchem_shindell_com

changel : used from trchem_shindell_com
change due to chemistry (kg)
apartmolar : used from tracers_soa

whichsoa : used from tracers_soa

soa_apart : used from tracers_soa

lm_soa : used from tracers_soa

ftype : used from diag_com

ntype : used from diag_com

pmidl00 : used from atm_com

nn_ch4 : used from tracer_com

nn_n2o : used from tracer_com

nn_ox : used from tracer_com

nn_nox : used from tracer_com

nn_n2o5 : used from tracer_com

nn_hno3 : used from tracer_com

nn_h2o2 : used from tracer_com

nn_ch3ooh : used from tracer_com

nn_hcho : used from tracer_com

nn_ho2no2 : used from tracer_com

nn_co : used from tracer_com

nn_pan : used from tracer_com

nn_h2o17 : used from tracer_com

nn_isoprene : used from tracer_com

nn_alkylnit : used from tracer_com

nn_alkenes : used from tracer_com

nn_paraffin : used from tracer_com

nn_stratox : used from tracer_com

nn_terpenes : used from tracer_com

nn_isopp1g : used from tracer_com

nn_isopp1a : used from tracer_com

nn_isopp2g : used from tracer_com

nn_isopp2a : used from tracer_com

nn_apinp1g : used from tracer_com

nn_apinp1a : used from tracer_com

nn_apinp2g : used from tracer_com

nn_apinp2a : used from tracer_com

nn_clox : used from tracer_com

nn_brox : used from tracer_com

nn_hcl : used from tracer_com

nn_hocl : used from tracer_com

nn_clono2 : used from tracer_com

nn_hbr : used from tracer_com

nn_hobr : used from tracer_com

nn_brono2 : used from tracer_com

nn_cfc : used from tracer_com

nn_glt : used from tracer_com

j_h2och4 : used from diag_com_rad

rj : used from photolysis

ks : used from photolysis

kss : used from photolysis

changel : used from trchem_shindell_com
change due to chemistry (kg)
j : integer, intent(in)
passed horizontal spatial indicies
i : integer, intent(in)
passed horizontal spatial indicies
lz : integer
dummy loop variable
iter : integer
dummy loop variable
l : integer
dummy loop variable
maxl : integer, intent(in)
highest level with chemistry, maxT top of troposphere
maxt : integer
top of troposphere (or highest layer of chemistry in the
maxl : integer, intent(in)
highest level with chemistry, maxT top of troposphere
c2o3prod : real*8
,
ch3o2loss : real*8
,
qqqch3o2 : real*8
,
suma : real*8
variables for O3 catalytic diags
sumo : real*8
variables for O3 catalytic diags
sumb : real*8
variables for O3 catalytic diags
sumh : real*8
variables for O3 catalytic diags
sumc : real*8
variables for O3 catalytic diags
sumn : real*8
variables for O3 catalytic diags
tempiter : real*8
temp var for equilibrium calc iterations
changex : real*8
temporary variable for equil calcs
rmabym : real*8, allocatable, dimension(:)
is airmass over air concentration
dxbym2v : real*8
is axyp over mass2volume
sv_changen2o : real*8, allocatable, dimension(:)
N2O change without portion making N2 (for N cons)
vbrono2 : real*8
temporary vars within N conservation
vclono2 : real*8
temporary vars within N conservation
changeh2o : real*8, allocatable, dimension(:)
chemical change in H2O
oxcorr :
account for Ox change from within NOx partitioning
rnoprod : real*8
to acct for dOx from NOx partitioning
rno2prod : real*8
to acct for dOx from NOx partitioning
rno3prod : real*8
to acct for dOx from NOx partitioning
pres : real*8, dimension(lm)
local nominal pressure for regional Ox tracers
igas : integer

it : integer

n : integer

j_0 : integer

j_1 : integer

out_line : character(len=300)

jay : logical

dq : real*8, allocatable, dimension(:)

dqm : real*8, allocatable, dimension(:)

fraq2 : real*8, allocatable, dimension(:)

c2ml : real*8, allocatable, dimension(:)

conoh : real*8, allocatable, dimension(:)

conclo : real*8, allocatable, dimension(:)

conh2o : real*8, allocatable, dimension(:)

nprodox_pos : real*8, allocatable, dimension(:)

nprodox_neg : real*8, allocatable, dimension(:)

chemtiny : real*8, parameter
Initial Value = 1.d-12
c2o3dest : real*8

xo2prod : real*8

xo2dest : real*8

xo2nprod : real*8

xo2ndest : real*8

rxparprod : real*8

rxpardest : real*8

aldehydeprod : real*8

aldehydedest : real*8

rorprod : real*8

rordest : real*8

total : real*8

rnewval : real*8

dnox : real*8

ratio : real*8

sumd : real*8

newd : real*8

ratiod : real*8

newp : real*8

ratiop : real*8

changea : real*8

sump : real*8

conc2mass : real*8

changealdehyde : real*8

rxnn2 : real*8

rxnn3 : real*8

rxnn4 : real*8

nprodox : real*8

nlossnox : real*8

byta : real*8

diffch3o2 : real*8

tempacet : real*8

prodch3o2 : real*8

dqmsum : real*8

idx : integer

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

Contact GISS NASA Privacy PolicyAccessibility