IndexRundeck: P1SoM40Created: Mon May 20 03:30:15 EDT 2024

ENT_CONST

File: ent_const.f
Summary: have the GCM/EWB constants substituted in for coupled runs.
Author : N.Kiang
Version:

Subroutines:

Global Variables:
pi : real*8, parameter
pi
Initial Value = 3.1415926535897932d0
t_sub : integer, parameter
Initial Value = 12
zero : real*8, parameter
Initial Value = 0.d0
stbo : real*8, parameter
Initial Value = 5.67051d-8
lhe0 : real*8, parameter
Initial Value = 2.5008d6
lhew : real*8, parameter
Initial Value = 2.260d6
shv100 : real*8, parameter
Initial Value = 2080.d0
shw25 : real*8, parameter
Initial Value = 4181.3d0
shw20 : real*8, parameter
Initial Value = 4185.d0
rhow : real*8, parameter
Initial Value = 1d3
tfrz : real*8, parameter
Initial Value = 273.15d0
kelvin : real*8, parameter
Initial Value = tfrz
gasc : real*8, parameter
Initial Value = 8.314510d0
avogadro : real*8, parameter
Initial Value = 6.023d23
shw : real*8, parameter
heat capacity of water (at 20 C) (4185 J/kg C)
Initial Value = 4185.
cp : real*8, parameter
Initial Value = 1012.
mwat : real*8, parameter
molecular weight of water vapour
Initial Value = 18.015d0
mair : real*8, parameter
molecular weight of dry air (28.9655 g/mol)
Initial Value = 28.9655d0
mrat : real*8, parameter
mass ratio of air to water vapour (0.62197)
Initial Value = mwat/mair
rvap : real*8, parameter
gas constant for water vapour (461.5 J/K kg)
Initial Value = 1d3 * gasc / mwat
tf : real*8, parameter
freezing point of water at 1 atm (273.16 K)
Initial Value = tfrz
undef : real*8, parameter
Initial Value = -1.d30
teeny : real*8, parameter
Initial Value = 1.d-30
eps : real*8, parameter
Initial Value = 1.d-8
eps2 : real*8, parameter
Initial Value = 1.d-12
f_area : real, parameter
Initial Value = .01
btol : real, parameter
Initial Value = .00001
ntol : real, parameter
Initial Value = .001
patch_dynamics : integer, parameter
Initial Value = 0
secpy : real*8, parameter
Initial Value = 31536000.d0
n_depth : integer, parameter
Initial Value = 6
Used by: | ENT_MOD |
n_bands : integer, parameter
Initial Value = 6
Used by: | ENT_MOD |
n_dist_types : integer, parameter
Initial Value = 2
n_pft : integer, parameter
Initial Value = 8
Used by: | ENT_MOD | FARQUHARBBPSPAR |
n_other : integer, parameter
Initial Value = 2
Used by: | ENT_MOD |
cover_sand : integer, parameter
Initial Value = 1
Used by: | ENT_MOD |
cover_dirt : integer, parameter
Initial Value = 10
broadleaf : integer, parameter
Initial Value = 1
needleleaf : integer, parameter
Initial Value = 2
monocot : integer, parameter
Initial Value = 3
evergreen : integer, parameter
Initial Value = 1
colddecid : integer, parameter
Initial Value = 2
droughtdecid : integer, parameter
Initial Value = 3
colddroughtdecid : integer, parameter
Initial Value = 4
annual : integer, parameter
Initial Value = 5
n_soilcov : integer, parameter
Initial Value = 2
n_covertypes : integer, parameter
Initial Value = N_PFT + N_SOILCOV + N_OTHER
Used by: | ENT_MOD | ENT_PRESCRIBED_DRV:init_ent_hdata | ENT_PRESCRIBED_DRV:init_ent_laidata | ENT_PRESCRIBED_DRV:prescr_get_height | ENT_PRESCRIBED_DRV:prescr_get_laidata |
n_bpools : integer, parameter
Initial Value = 7
Used by: | ENT_MOD |
fol : integer, parameter
Initial Value = 1
sw : integer, parameter
Initial Value = 2
hw : integer, parameter
Initial Value = 3
labile : integer, parameter
Initial Value = 4
fr : integer, parameter
Initial Value = 5
cr : integer, parameter
Initial Value = 6
rp : integer, parameter
Initial Value = 7
n_soil_textures : integer, parameter
Initial Value = 5
Used by: | ENT_MOD |
nlive : integer, parameter
Initial Value = 3
Used by: | ENT_MOD |
ndead : integer, parameter
Initial Value = 9
npools : integer, parameter
Initial Value = NLIVE + NDEAD
Used by: | ENT_MOD |
n_casa_layers : integer, parameter
Initial Value = 1
Used by: | ENT_MOD |
ptrace : integer, parameter
Initial Value = 2
Used by: | ENT_MOD |
carbon : integer, parameter
Initial Value = 1
Used by: | ENT_MOD |
nitrogen : integer, parameter
Initial Value = 2
nresp_pools : integer, parameter
Initial Value = 14
q10 : real*8, parameter
Initial Value = 2.d0
leaf : integer, parameter
Initial Value = 1
froot : integer, parameter
Initial Value = 2
wood : integer, parameter
Initial Value = 3
surfmet : integer, parameter
Initial Value = 4
surfstr : integer, parameter
Initial Value = 5
soilmet : integer, parameter
Initial Value = 6
soilstr : integer, parameter
Initial Value = 7
cwd : integer, parameter
Initial Value = 8
surfmic : integer, parameter
Initial Value = 9
soilmic : integer, parameter
Initial Value = 10
slow : integer, parameter
Initial Value = 11
passive : integer, parameter
Initial Value = 12
cnratio : real*8, dimension(NPOOLS)

annk : real*8, dimension(n_pft, npools)

solubfract : real*8, dimension(n_pft)

structurallignin : real*8, dimension(n_pft)

lignineffect : real*8, dimension(n_pft)

woodligninfract : real*8, parameter
Initial Value = 0.40

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

Contact GISS NASA Privacy PolicyAccessibility