Index

Rundeck: E6TomaF40

Created: Fri May 17 03:30:39 EDT 2024

crates

Module:

File: TRCHEM_master.f

Summary: Crates calculate chemical reaction rates for each altitude, using JPL 00. Includes special calculations for pressure dependent reactions. Specifically: rrbi%CO_OH__HO2_O2, #15 HO2+HO2->H2O2+O2, #16 OH+HNO3->H2O+NO3, and reactions #29, and #42.
Author : Drew Shindell (modelEifications by Greg Faluvegi)
Version:

---

Declaration:

subroutine crates(i, j)

Variables:

lm : used from resolution

itime : used from model_com

itimei : used from model_com

coupled_chem : used from tracer_com

trm : used from tracer_com

nn_n2o5 : used from tracer_com

n_n2o5 : used from tracer_com

n_so4 : used from tracer_com

n_clono2 : used from tracer_com

n_hocl : used from tracer_com

jls_n2o5sulf : used from trdiag_com

vol2mass : used from oldtracer_mod

tr_mm : used from oldtracer_mod

rad_to_chem : used from rad_com

pi : used from constant

pn2 : used from constant

ma : used from atm_com

pmidl00 : used from atm_com

n_bi : used from trchem_shindell_com

n_tri : used from trchem_shindell_com

n_nst : used from trchem_shindell_com

n_het : used from trchem_shindell_com

ta : used from trchem_shindell_com

ea : used from trchem_shindell_com

rr : used from trchem_shindell_com

pe : used from trchem_shindell_com

cboltz : used from trchem_shindell_com

r1 : used from trchem_shindell_com

sb : used from trchem_shindell_com

nst : used from trchem_shindell_com

y : used from trchem_shindell_com

nm : used from trchem_shindell_com

nh2o : used from trchem_shindell_com

ro : used from trchem_shindell_com

sn : used from trchem_shindell_com

which_trop : used from trchem_shindell_com

sulfate : used from trchem_shindell_com

dt2 : used from trchem_shindell_com

rgammasulf : used from trchem_shindell_com

pscx : used from trchem_shindell_com

toplevelofchemistry : used from trchem_shindell_com

rh : used from trchem_shindell_com

bythick : used from trchem_shindell_com

rrbi : used from trchem_shindell_com

rrhet : used from trchem_shindell_com

n_isopp1a : used from tracer_com

n_isopp2a : used from tracer_com

n_apinp1a : used from tracer_com

n_apinp2a : used from tracer_com

n_so4 : used from tracer_com

kpcalc : used from tracers_soa

kpart : used from tracers_soa

kpart_ref : used from tracers_soa

kpart_temp_ref : used from tracers_soa

whichsoa : used from tracers_soa

dh_isoprene : used from tracers_soa

dh_apinene : used from tracers_soa

lat2d_dg : used from geom

byaxyp : used from geom

axyp : used from geom

j : integer, intent(in)

passed horizontal position indicies

i : integer, intent(in)

passed horizontal position indicies

temp : real*8

dummy "working" variables

rrrr : real*8

dummy "working" variables

nb : integer

dummy "working" variables

rk3m : real*8

dummy "working" variables

rk2 : real*8

dummy "working" variables

rkp : real*8

dummy "working" variables

fw : real*8

dummy "working" variables

pp : real*8

dummy "working" variables

dd : real*8

dummy "working" variables

jj : integer

dummy loop variables

l : integer

dummy loop variables

byta : real*8

reciprocal of the local temperature

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

aerosol extinction from SAGE obs

pscex : real*8

NAT PSC surface conc per unit volume (cm^2/cm^3)

beta : real*8

branching ratio for (HO2+NO) reactions

pcon : real*8

variable for some pressure conversions

wprod_sulf : real*8

N2O5 change by sulfate reactions in molecules/cm3/timestep

waterppmv : real*8

associationreaction : real*8

activationreaction : real*8

pfactor : real*8

k0t : real*8

k0tm : real*8

kinft : real*8

kinftbym : real*8

rveln2o5 : real*8

rvelclono2 : real*8

rvelhocl : real*8

mean_molecular_speed : real*8

pres : real*8, dimension(lm)

local nominal pressure

laxb : integer

lowest and highest levels to have nonzero

laxt : integer

lowest and highest levels to have nonzero