clm_varcon Module


Uses


Variables

Type Visibility Attributes Name Initial
real(kind=r8), public :: rpi = SHR_CONST_PI
real(kind=r8), public, parameter :: n_melt = 0.7
real(kind=r8), public, parameter :: e_ice = 6.0
real(kind=r8), public, parameter :: pc = 0.4
real(kind=r8), public, parameter :: mu = 0.13889
real(kind=r8), public, parameter :: secsphr = 3600._r8
integer, public, parameter :: isecsphr = int(secsphr)
integer, public, parameter :: isecspmin = 60
real(kind=r8), public :: grav = SHR_CONST_G
real(kind=r8), public :: sb = SHR_CONST_STEBOL
real(kind=r8), public :: vkc = SHR_CONST_KARMAN
real(kind=r8), public :: rwat = SHR_CONST_RWV
real(kind=r8), public :: rair = SHR_CONST_RDAIR
real(kind=r8), public :: roverg = SHR_CONST_RWV/SHR_CONST_G*1000._r8
real(kind=r8), public :: cpliq = SHR_CONST_CPFW
real(kind=r8), public :: cpice = SHR_CONST_CPICE
real(kind=r8), public :: cpair = SHR_CONST_CPDAIR
real(kind=r8), public :: hvap = SHR_CONST_LATVAP
real(kind=r8), public :: hsub = SHR_CONST_LATSUB
real(kind=r8), public :: hfus = SHR_CONST_LATICE
real(kind=r8), public :: denh2o = SHR_CONST_RHOFW
real(kind=r8), public :: denice = SHR_CONST_RHOICE
real(kind=r8), public :: rgas = SHR_CONST_RGAS
real(kind=r8), public :: pstd = SHR_CONST_PSTD
real(kind=r8), public, parameter :: wv_to_dair_weight_ratio = SHR_CONST_MWWV/SHR_CONST_MWDAIR
real(kind=r8), public :: tkair = 0.023_r8
real(kind=r8), public :: tkice = 2.290_r8
real(kind=r8), public :: tkwat = 0.57_r8
real(kind=r8), public, parameter :: tfrz = SHR_CONST_TKFRZ
real(kind=r8), public, parameter :: tcrit = 2.5_r8
real(kind=r8), public :: o2_molar_const = 0.209_r8
real(kind=r8), public :: oneatm = 1.01325e5_r8
real(kind=r8), public :: bdsno = 250._r8
real(kind=r8), public :: alpha_aero = 1.0_r8
real(kind=r8), public :: tlsai_crit = 2.0_r8
real(kind=r8), public :: watmin = 0.01_r8
real(kind=r8), public :: re = SHR_CONST_REARTH*0.001_r8
real(kind=r8), public, parameter :: degpsec = 15._r8/3600.0_r8
real(kind=r8), public, parameter :: secspday = SHR_CONST_CDAY
integer, public, parameter :: isecspday = secspday
integer, public, parameter :: fun_period = 1
real(kind=r8), public, parameter :: smallValue = 1.e-12_r8
real(kind=r8), public, parameter :: spval = 1.e36_r8
integer, public, parameter :: ispval = -9999
real(kind=r8), public :: zlnd = 0.01_r8
real(kind=r8), public :: zsno = 0.0024_r8
real(kind=r8), public :: csoilc = 0.004_r8
real(kind=r8), public :: capr = 0.34_r8
real(kind=r8), public :: cnfac = 0.5_r8
real(kind=r8), public :: ssi = 0.033_r8
real(kind=r8), public :: wimp = 0.05_r8
real(kind=r8), public :: pondmx = 0.0_r8
real(kind=r8), public :: pondmx_urban = 1.0_r8
real(kind=r8), public :: thk_bedrock = 3.0_r8
real(kind=r8), public :: csol_bedrock = 2.0e6_r8
real(kind=r8), public, parameter :: zmin_bedrock = 0.4_r8
real(kind=r8), public, parameter :: aquifer_water_baseline = 5000._r8

! C13
real(kind=r8), public, parameter :: preind_atm_del13c = -6.0
real(kind=r8), public, parameter :: preind_atm_ratio = SHR_CONST_PDB+(preind_atm_del13c*SHR_CONST_PDB)/1000.0
real(kind=r8), public :: c13ratio = preind_atm_ratio/(1.0+preind_atm_ratio)
real(kind=r8), public, parameter :: c3_del13c = -28._r8
real(kind=r8), public, parameter :: c4_del13c = -13._r8
real(kind=r8), public, parameter :: c3_r1 = SHR_CONST_PDB+((c3_del13c*SHR_CONST_PDB)/1000._r8)
real(kind=r8), public, parameter :: c3_r2 = c3_r1/(1._r8+c3_r1)
real(kind=r8), public, parameter :: c4_r1 = SHR_CONST_PDB+((c4_del13c*SHR_CONST_PDB)/1000._r8)
real(kind=r8), public, parameter :: c4_r2 = c4_r1/(1._r8+c4_r1)

! C14
real(kind=r8), public :: c14ratio = 1.e-12_r8
real(kind=r8), public :: ht_wasteheat_factor = 0.2_r8
real(kind=r8), public :: ac_wasteheat_factor = 0.6_r8
real(kind=r8), public :: em_roof_int = 0.9_r8
real(kind=r8), public :: em_sunw_int = 0.9_r8
real(kind=r8), public :: em_shdw_int = 0.9_r8
real(kind=r8), public :: em_floor_int = 0.9_r8
real(kind=r8), public :: hcv_roof = 0.948_r8
real(kind=r8), public :: hcv_roof_enhanced = 4.040_r8
real(kind=r8), public :: hcv_floor = 0.948_r8
real(kind=r8), public :: hcv_floor_enhanced = 4.040_r8
real(kind=r8), public :: hcv_sunw = 3.076_r8
real(kind=r8), public :: hcv_shdw = 3.076_r8
real(kind=r8), public :: dz_floor = 0.1_r8
real(kind=r8), public, parameter :: dens_floor = 2.35e3_r8
real(kind=r8), public, parameter :: sh_floor = 880._r8
real(kind=r8), public :: cp_floor = dens_floor*sh_floor
real(kind=r8), public :: vent_ach = 0.3
real(kind=r8), public :: wasteheat_limit = 100._r8
real(kind=r8), public :: h2osno_max = -999.0_r8
real(kind=r8), public :: int_snow_max = -999.0_r8
real(kind=r8), public :: n_melt_glcmec = -999.0_r8
real(kind=r8), public, parameter :: nitrif_n2o_loss_frac = 6.e-4_r8
real(kind=r8), public, parameter :: frac_minrlztn_to_no3 = 0.2_r8
character(len=16), public, parameter :: grlnd = 'lndgrid'
character(len=16), public, parameter :: namea = 'gridcellatm'
character(len=16), public, parameter :: nameg = 'gridcell'
character(len=16), public, parameter :: namel = 'landunit'
character(len=16), public, parameter :: namec = 'column'
character(len=16), public, parameter :: namep = 'pft'
character(len=16), public, parameter :: nameCohort = 'cohort'
real(kind=r8), public :: betads = 0.5_r8
real(kind=r8), public :: betais = 0.5_r8
real(kind=r8), public :: omegas(numrad)
real(kind=r8), public, allocatable :: zlak(:)
real(kind=r8), public, allocatable :: dzlak(:)
real(kind=r8), public, allocatable :: zsoi(:)
real(kind=r8), public, allocatable :: dzsoi(:)
real(kind=r8), public, allocatable :: zisoi(:)
real(kind=r8), public, allocatable :: dzsoi_decomp(:)
integer, public, allocatable :: nlvic(:)
real(kind=r8), public, allocatable :: dzvic(:)
real(kind=r8), public, allocatable :: zsoifl(:)
real(kind=r8), public, allocatable :: zisoifl(:)
real(kind=r8), public, allocatable :: dzsoifl(:)
real(kind=r8), public, parameter :: catomw = 12.011_r8
real(kind=r8), public :: s_con(ngases,4)
real(kind=r8), public :: d_con_w(ngases,3)
real(kind=r8), public :: d_con_g(ngases,2)
real(kind=r8), public :: c_h_inv(ngases)
real(kind=r8), public :: kh_theta(ngases)
real(kind=r8), public :: kh_tbase = 298._r8

Subroutines

public subroutine clm_varcon_init(is_simple_buildtemp)

Arguments

Type IntentOptional Attributes Name
logical, intent(in) :: is_simple_buildtemp