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

get_cond_factor

Module:
File: TRACERS_DRV.f
Summary: GET_COND_FACTOR calculation of condensate fraction for tracers within or below convective or large-scale clouds. Gas condensation uses Henry's Law if not freezing.
Author : Dorothy Koch (modelEifications by Greg Faluvegi)
Version:

Declaration:
Variables:
bygasc : used from constant

mair : used from constant

teeny : used from constant

lhe : used from constant

tf : used from constant

by3 : used from constant

aero_count : used from tracer_com

water_count : used from tracer_com

hlaw_count : used from tracer_com

aero_list : used from tracer_com

water_list : used from tracer_com

hlaw_list : used from tracer_com

tr_rkd : used from oldtracer_mod

tr_dhd : used from oldtracer_mod

tr_wd_type : used from oldtracer_mod

nwater : used from oldtracer_mod

ngas : used from oldtracer_mod

npart : used from oldtracer_mod

trname : used from oldtracer_mod

t_qlimit : used from oldtracer_mod

fq_aer : used from oldtracer_mod

trpdens : used from oldtracer_mod

ntm : used from tracer_com

n_so2 : used from tracer_com

n_h2o2 : used from tracer_com

n_h2o2_s : used from tracer_com

trm : used from tracer_com

n_so4_d1 : used from tracer_com

n_so4_d2 : used from tracer_com

n_so4_d3 : used from tracer_com

n_so4 : 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

n_no3p : used from tracer_com

n_clay : used from tracer_com

n_silt1 : used from tracer_com

n_silt2 : used from tracer_com

dtsrc : used from model_com

set_fq_aer : used from oldtracer_mod

by298k : real*8, parameter
unknown meaning for now (assumed= 1./298K)
Initial Value = 3.3557D-3
ppas : real*8
pressure at current altitude (in Pascal=kg/s2/m)
tfac : real*8
exponential coeffiecient of tracer condensation temperature
fcloud : real*8, intent(in)
fraction of cloud available for tracer condensation
ssfac : real*8, dimension(NTM)
dummy variable (assumed units= kg water?)
fq : real*8, intent(out), dimension(NTM)
fraction of tracer that goes into condensate
fq0 : real*8, intent(in)
default fraction of water tracer that goes into condensate
l :
index for altitude loop
n : integer
index for tracer number loop
wmxtr : real*8, intent(in)
mixing ratio of water available for tracer condensation?
supsat : real*8
super-saturation ratio for cloud droplets
lhx : real*8, intent(in)
latent heat flag for whether condensation is to ice or water
rkd : real*8
dummy variable (= tr_RKD*EXP[ ])
cldinc : real*8

trlef : real*8

temp : real*8, intent(in)

temp0 : real*8, intent(in)

tr_lef : real*8, intent(in), dimension(NTM)

pl : real*8, intent(in)

cldsavt : real*8, intent(in)

trwml : real*8, intent(in), dimension(ntm)

tm : real*8, intent(in), dimension(ntm)

thlaw : real*8, intent(out), dimension(NTM)

ntx : integer, intent(in)

ntix : integer, intent(in), dimension(NTM)

tr_conv : logical

fq0fac : real*8

ssfac0 : real*8

ihlaw : integer

iaero : integer

iwat : integer

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

Contact GISS NASA Privacy PolicyAccessibility