IndexRundeck: E6TomaF40Created: Wed Jun 26 03:30:36 EDT 2024

OLDTRACER_MOD

File: OldTracer_mod.F90
Summary:
Author :
Version:

Subroutines:
conc_from_fw

conc_from_fw_all

conc_from_fw_m

conc_from_fw_s

do_aircraft

do_aircraft_all

do_aircraft_m

do_aircraft_s

do_fire

do_fire_all

do_fire_m

do_fire_s

dodrydep

dodrydep_all

dodrydep_m

dodrydep_s

dowetdep

dowetdep_all

dowetdep_m

dowetdep_s

emisperfirebyvegtype

emisperfirebyvegtype_s

f0

f0_all

f0_m

f0_s

findtracer

first_aircraft

first_aircraft_all

first_aircraft_m

first_aircraft_s

fq_aer

fq_aer_all

fq_aer_m

fq_aer_s

has_chemistry

has_chemistry_all

has_chemistry_m

has_chemistry_s

hstar

hstar_all

hstar_m

hstar_s

idefaultspec

imptable

imptable_all

imptable_m

imptable_s

initializeoldtracers

is_dco_tracer

is_dco_tracer_all

is_dco_tracer_m

is_dco_tracer_s

is_vbs_tracer

is_vbs_tracer_all

is_vbs_tracer_m

is_vbs_tracer_s

isdust

isdust_all

isdust_m

isdust_s

iso_index

iso_index_all

iso_index_m

iso_index_s

itime_tr0

itime_tr0_all

itime_tr0_m

itime_tr0_s

mass2vol

mass2vol_all

mass2vol_m

mass2vol_s

nbbsources

nbbsources_all

nbbsources_m

nbbsources_s

needtrs

needtrs_all

needtrs_m

needtrs_s

ntm_power

ntm_power_all

ntm_power_m

ntm_power_s

ntrocn

ntrocn_all

ntrocn_m

ntrocn_s

oldaddtracer

om2oc

om2oc_all

om2oc_m

om2oc_s

pm10fact

pm10fact_all

pm10fact_m

pm10fact_s

pm2p5fact

pm2p5fact_all

pm2p5fact_m

pm2p5fact_s

rc_washt

rc_washt_all

rc_washt_m

rc_washt_s

set_conc_from_fw

set_do_aircraft

set_do_fire

set_dodrydep

set_dowetdep

set_emisperfirebyvegtype

set_f0

set_first_aircraft

set_fq_aer

set_has_chemistry

set_hstar

set_imptable

set_is_dco_tracer

set_is_vbs_tracer

set_isdust

set_iso_index

set_itime_tr0

set_mass2vol

set_nbbsources

set_needtrs

set_ntm_power

set_ntrocn

set_om2oc

set_pm10fact

set_pm2p5fact

set_rc_washt

set_src_dist_base

set_src_dist_index

set_t_qlimit

set_tcscale

set_to_conc

set_to_volume_mixrat

set_tr_dhd

set_tr_h2obych4

set_tr_mm

set_tr_rkd

set_tr_wd_type

set_trdecay

set_trglac

set_trli0

set_trpdens

set_trradius

set_trsi0

set_trw0

set_vol2mass

src_dist_base

src_dist_base_all

src_dist_base_m

src_dist_base_s

src_dist_index

src_dist_index_all

src_dist_index_m

src_dist_index_s

t_qlimit

t_qlimit_all

t_qlimit_m

t_qlimit_s

tcscale

tcscale_all

tcscale_m

tcscale_s

to_conc

to_conc_all

to_conc_m

to_conc_s

to_volume_mixrat

to_volume_mixrat_all

to_volume_mixrat_m

to_volume_mixrat_s

tr_dhd

tr_dhd_all

tr_dhd_m

tr_dhd_s

tr_h2obych4

tr_h2obych4_all

tr_h2obych4_m

tr_h2obych4_s

tr_mm

tr_mm_all

tr_mm_m

tr_mm_s

tr_rkd

tr_rkd_all

tr_rkd_m

tr_rkd_s

tr_wd_type

tr_wd_type_all

tr_wd_type_m

tr_wd_type_s

trdecay

trdecay_all

trdecay_m

trdecay_s

trglac

trglac_all

trglac_m

trglac_s

trli0

trli0_all

trli0_m

trli0_s

trname

trname_all

trname_s

trpdens

trpdens_all

trpdens_m

trpdens_s

trradius

trradius_all

trradius_m

trradius_s

trsi0

trsi0_all

trsi0_m

trsi0_s

trw0

trw0_all

trw0_m

trw0_s

vol2mass

vol2mass_all

vol2mass_m

vol2mass_s


Global Variables:
ngas : integer, parameter
index for wetdep tracer type = gas
Initial Value = 1
npart : integer, parameter
index for wetdep tracer type = particle/aerosol
Initial Value = 2
nwater : integer, parameter
index for wetdep tracer type = water
Initial Value = 3
max_len_name : integer, parameter
Initial Value = 20
tr_mm :
: !@var TR_MM: molecular mass of each tracer (g/mole)
ntm_power :
: Power of 10 associated with each tracer (for printing)
t_qlimit :
: if t_qlimit=.true. tracer is maintained as positive
needtrs :
: true if surface tracer value from PBL is required
trdecay :
: radioactive decay constant (1/s) (=0 for stable tracers)
itime_tr0 :
: start time for each tracer (hours)
trsi0 :
: conc. in sea ice (kg/m^2)
trw0 :
: concentration in water (kg/kg)
mass2vol :
: mass to volume ratio = mair/tr_mm
vol2mass :
: volume to mass ratio = tr_mm/mair
dodrydep :
: true if tracer should undergo dry deposition
f0 :
: reactivity factor for oxidation of biological substances
hstar :
: Henry's Law const for tracer dry deposition. mole/(L atm)
do_fire :
: true if tracer should have emissions via flammability
do_aircraft :
: true if tracer should have emissions via aircraft
first_aircraft :
: false once tracer timestream opened for aircraft
is_dco_tracer :
: !@var true if the tracer belongs to TRACERS_dCO
is_vbs_tracer :
: !@var true if the tracer belongs to TRACERS_VBS
has_chemistry :
: !@var true if the tracer is affected by chemistry
nbbsources :
: number of sources attributed to biomass burning
emisperfirebyvegtype :
: emisPerFireByVegType tracer emissions per fire count as a
trpdens :
: tracer particle density (kg/m^3)
trradius :
: tracer effective radius (m) (=0 for non particle tracers)
tr_wd_type :
: tracer wet dep type (gas, particle, water)
tr_rkd :
: Henry's Law coefficient (in mole/Joule please !)
tr_dhd :
: coefficient of temperature-dependence term of Henry's
fq_aer :
: fraction of aerosol that condenses
rc_washt :
: aerosol washout rate
isdust :
: index array for testing if tracer is a dust type
tr_h2obych4 :
: conc. of tracer in water from methane oxidation
dowetdep :
: true if tracer has some form of wet deposition
ntrocn :
: scaling power factor for ocean/ice tracer concentrations
conc_from_fw :
: true if ocean conc is defined using fresh water
trglac :
: tracer ratio in glacial runoff to ocean (kg/kg)
iso_index :
: indexing taking actual tracer number to isotope
om2oc :
: ratio of organic matter to organic carbon
pm2p5fact :
: amount of mass tracer that is PM2.5
pm10fact :
: amount of mass tracer that is PM10
to_volume_mixrat :
: =0: print tracer conc. by vol mix ratio; =1:mass mixing ratio
to_conc :
: =0: print 3D tracer conc. by to_volume_MixRat; =1: kg/m3
trli0 :
: default tracer conc. for land ice (kg/kg)
imptable :
: tracer index in scale tables
tcscale :
: Scale factor for frequency tables
src_dist_base :
: source distribution base
src_dist_index :
: source distribution index
numtracers : integer, save
Initial Value = 0
internaltracers : type(oldtracer_type), allocatable, dimension(:)

tracerreference : type(tracerbundle), pointer
Initial Value = > null()

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

Contact GISS NASA Privacy PolicyAccessibility