CAM
eddy_diff Module Reference

Functions/Subroutines

subroutine, public init_eddy_diff (kind, pver, gravx, cpairx, rairx, zvirx, latvapx, laticex, ntop_eddy, nbot_eddy, vkx, eddy_lbulk_max, eddy_leng_max, eddy_max_bot_pressure, eddy_moist_entrain_a2l)
 
subroutine, public compute_eddy_diff (lchnk, pcols, pver, ncol, t, qv, ztodt, ql, qi, s, rpdel, cldn, qrl, wsedl, z, zi, pmid, pi, u, v, taux, tauy, shflx, qflx, wstarent, nturb, rrho, ustar, pblh, kvm_in, kvh_in, kvm_out, kvh_out, kvq, cgh, cgs, tpert, qpert, wpert, tke, bprod, sprod, sfi, kvinit, tauresx, tauresy, ksrftms, ipbl, kpblh, wstarPBL, tkes, went, turbtype, sm_aw)
 
subroutine sfdiag (pcols, pver, ncol, qt, ql, sl, pi, pm, zi, cld, sfi, sfuh, sflh, slslope, qtslope)
 
subroutine trbintd (pcols, pver, ncol, z, u, v, t, pmid, s2, n2, ri, zi, pi, cld, qt, qv, ql, qi, sfi, sfuh, sflh, sl, slv, slslope, qtslope, chs, chu, cms, cmu)
 
subroutine austausch_atm (pcols, pver, ncol, ri, s2, kvf)
 
subroutine caleddy (pcols, pver, ncol, sl, qt, ql, slv, u, v, pi, z, zi, qflx, shflx, slslope, qtslope, chu, chs, cmu, cms, sfuh, sflh, n2, s2, ri, rrho, pblh, ustar, kvh_in, kvm_in, kvh, kvm, tpert, qpert, qrlin, kvf, tke, wstarent, bprod, sprod, minpblh, wpert, tkes, went, turbtype, sm_aw, kbase_o, ktop_o, ncvfin_o, kbase_mg, ktop_mg, ncvfin_mg, kbase_f, ktop_f, ncvfin_f, wet_CL, web_CL, jtbu_CL, jbbu_CL, evhc_CL, jt2slv_CL, n2ht_CL, n2hb_CL, lwp_CL, opt_depth_CL, radinvfrac_CL, radf_CL, wstar_CL, wstar3fact_CL, ebrk, wbrk, lbrk, ricl, ghcl, shcl, smcl, gh_a, sh_a, sm_a, ri_a, leng, wcap, pblhp, cld, ipbl, kpblh, wsedl, wsed_CL)
 
subroutine exacol (pcols, pver, ncol, ri, bflxs, minpblh, zi, ktop, kbase, ncvfin)
 
subroutine zisocl (pcols, pver, long, z, zi, n2, s2, bprod, sprod, bflxs, tkes, ncvfin, kbase, ktop, belongcv, ricl, ghcl, shcl, smcl, lbrk, wbrk, ebrk, extend, extend_up, extend_dn)
 
real(r8) function compute_cubic (a, b, c)
 

Variables

type(vdiff_selectorfieldlist_wet
 
type(vdiff_selectorfieldlist_molec
 
integer, parameter r8 = selected_real_kind(12)
 
integer, parameter i4 = selected_int_kind( 6)
 
character, parameter sftype = 'l'
 
character(len=4), parameter choice_evhc = 'maxi'
 
character(len=6), parameter choice_radf = 'maxi'
 
character(len=6), parameter choice_srcl = 'nonamb'
 
character(len=6), parameter choice_tunl = 'rampcl'
 
real(r8), parameter ctunl = 2._r8
 
character(len=6), parameter choice_leng = 'origin'
 
real(r8), parameter cleng = 3._r8
 
character(len=6), parameter choice_tkes = 'ibprod'
 
real(r8lbulk_max = 40.e3_r8
 
real(r8), dimension(pver) leng_max = 40.e3_r8
 
logical, parameter id_sedfact = .false.
 
real(r8), parameter ased = 9._r8
 
real(r8), parameter a1l = 0.10_r8
 
real(r8), parameter a1i = 0.2_r8
 
real(r8), parameter ccrit = 0.5_r8
 
real(r8), parameter wstar3factcrit = 0.5_r8
 
real(r8a2l
 
real(r8), parameter a3l = 0.8_r8
 
real(r8), parameter jbumin = .001_r8
 
real(r8), parameter evhcmax = 10._r8
 
real(r8), parameter onet = 1._r8/3._r8
 
integer, parameter ncvmax = pver
 
real(r8), parameter qmin = 1.e-5_r8
 
real(r8), parameter ntzero = 1.e-12_r8
 
real(r8), parameter b1 = 5.8_r8
 
real(r8b123
 
real(r8), parameter tunl = 0.085_r8
 
real(r8), parameter alph1 = 0.5562_r8
 
real(r8), parameter alph2 = -4.3640_r8
 
real(r8), parameter alph3 = -34.6764_r8
 
real(r8), parameter alph4 = -6.1272_r8
 
real(r8), parameter alph5 = 0.6986_r8
 
real(r8), parameter ricrit = 0.19_r8
 
real(r8), parameter ae = 1._r8
 
real(r8), parameter rinc = -0.04_r8
 
real(r8), parameter wpertmin = 1.e-6_r8
 
real(r8), parameter wfac = 1._r8
 
real(r8), parameter tfac = 1._r8
 
real(r8), parameter fak = 8.5_r8
 
real(r8), parameter rcapmin = 0.1_r8
 
real(r8), parameter rcapmax = 2.0_r8
 
real(r8), parameter tkemax = 20._r8
 
real(r8), parameter lambda = 0.5_r8
 
logical, parameter use_kvf = .false.
 
logical, parameter use_dw_surf = .true.
 
logical, parameter set_qrlzero = .false.
 
real(r8), parameter pblmaxp = 4.e4_r8
 
real(r8), parameter zkmin = 0.01_r8
 
real(r8), parameter betam = 15.0_r8
 
real(r8), parameter betas = 5.0_r8
 
real(r8), parameter betah = 15.0_r8
 
real(r8), parameter fakn = 7.2_r8
 
real(r8), parameter ricr = 0.3_r8
 
real(r8), parameter sffrac = 0.1_r8
 
real(r8), parameter binm = betam*sffrac
 
real(r8), parameter binh = betah*sffrac
 
real(r8cpair
 
real(r8rair
 
real(r8zvir
 
real(r8latvap
 
real(r8latice
 
real(r8latsub
 
real(r8g
 
real(r8vk
 
real(r8ccon
 
integer ntop_turb
 
integer nbot_turb
 
real(r8), dimension(:), allocatable ml2
 

Function/Subroutine Documentation

◆ austausch_atm()

subroutine eddy_diff::austausch_atm ( integer, intent(in)  pcols,
integer, intent(in)  pver,
integer, intent(in)  ncol,
real(r8), dimension(pcols,pver), intent(in)  ri,
real(r8), dimension(pcols,pver), intent(in)  s2,
real(r8), dimension(pcols,pver+1), intent(out)  kvf 
)
private
Here is the caller graph for this function:

◆ caleddy()

subroutine eddy_diff::caleddy ( integer, intent(in)  pcols,
integer, intent(in)  pver,
integer, intent(in)  ncol,
real(r8), dimension(pcols,pver), intent(in)  sl,
real(r8), dimension(pcols,pver), intent(in)  qt,
real(r8), dimension(pcols,pver), intent(in)  ql,
real(r8), dimension(pcols,pver), intent(in)  slv,
real(r8), dimension(pcols,pver), intent(in)  u,
real(r8), dimension(pcols,pver), intent(in)  v,
real(r8), dimension(pcols,pver+1), intent(in)  pi,
real(r8), dimension(pcols,pver), intent(in)  z,
real(r8), dimension(pcols,pver+1), intent(in)  zi,
real(r8), dimension(pcols), intent(in)  qflx,
real(r8), dimension(pcols), intent(in)  shflx,
real(r8), dimension(pcols,pver), intent(in)  slslope,
real(r8), dimension(pcols,pver), intent(in)  qtslope,
real(r8), dimension(pcols,pver+1), intent(in)  chu,
real(r8), dimension(pcols,pver+1), intent(in)  chs,
real(r8), dimension(pcols,pver+1), intent(in)  cmu,
real(r8), dimension(pcols,pver+1), intent(in)  cms,
real(r8), dimension(pcols,pver), intent(in)  sfuh,
real(r8), dimension(pcols,pver), intent(in)  sflh,
real(r8), dimension(pcols,pver), intent(in)  n2,
real(r8), dimension(pcols,pver), intent(in)  s2,
real(r8), dimension(pcols,pver), intent(in)  ri,
real(r8), dimension(pcols), intent(in)  rrho,
real(r8), dimension(pcols), intent(out)  pblh,
real(r8), dimension(pcols), intent(in)  ustar,
real(r8), dimension(pcols,pver+1), intent(in)  kvh_in,
real(r8), dimension(pcols,pver+1), intent(in)  kvm_in,
real(r8), dimension(pcols,pver+1), intent(out)  kvh,
real(r8), dimension(pcols,pver+1), intent(out)  kvm,
real(r8), dimension(pcols), intent(out)  tpert,
real(r8), dimension(pcols), intent(out)  qpert,
real(r8), dimension(pcols,pver), intent(in)  qrlin,
real(r8), dimension(pcols,pver+1), intent(in)  kvf,
real(r8), dimension(pcols,pver+1), intent(out)  tke,
logical, intent(in)  wstarent,
real(r8), dimension(pcols,pver+1), intent(out)  bprod,
real(r8), dimension(pcols,pver+1), intent(out)  sprod,
real(r8), dimension(pcols), intent(in)  minpblh,
real(r8), dimension(pcols), intent(out)  wpert,
real(r8), dimension(pcols), intent(out)  tkes,
real(r8), dimension(pcols), intent(out)  went,
integer(i4), dimension(pcols,pver+1), intent(out)  turbtype,
real(r8), dimension(pcols,pver+1), intent(out)  sm_aw,
real(r8), dimension(pcols,ncvmax kbase_o,
real(r8), dimension(pcols,ncvmax ktop_o,
real(r8), dimension(pcols)  ncvfin_o,
real(r8), dimension(pcols,ncvmax kbase_mg,
real(r8), dimension(pcols,ncvmax ktop_mg,
real(r8), dimension(pcols)  ncvfin_mg,
real(r8), dimension(pcols,ncvmax kbase_f,
real(r8), dimension(pcols,ncvmax ktop_f,
real(r8), dimension(pcols)  ncvfin_f,
real(r8), dimension(pcols,ncvmax wet_CL,
real(r8), dimension(pcols,ncvmax web_CL,
real(r8), dimension(pcols,ncvmax jtbu_CL,
real(r8), dimension(pcols,ncvmax jbbu_CL,
real(r8), dimension(pcols,ncvmax evhc_CL,
real(r8), dimension(pcols,ncvmax jt2slv_CL,
real(r8), dimension(pcols,ncvmax n2ht_CL,
real(r8), dimension(pcols,ncvmax n2hb_CL,
real(r8), dimension(pcols,ncvmax lwp_CL,
real(r8), dimension(pcols,ncvmax opt_depth_CL,
real(r8), dimension(pcols,ncvmax radinvfrac_CL,
real(r8), dimension(pcols,ncvmax radf_CL,
real(r8), dimension(pcols,ncvmax wstar_CL,
real(r8), dimension(pcols,ncvmax wstar3fact_CL,
real(r8), dimension(pcols,ncvmax ebrk,
real(r8), dimension(pcols,ncvmax wbrk,
real(r8), dimension(pcols,ncvmax lbrk,
real(r8), dimension(pcols,ncvmax ricl,
real(r8), dimension(pcols,ncvmax ghcl,
real(r8), dimension(pcols,ncvmax shcl,
real(r8), dimension(pcols,ncvmax smcl,
real(r8), dimension(pcols,pver+1)  gh_a,
real(r8), dimension(pcols,pver+1)  sh_a,
real(r8), dimension(pcols,pver+1)  sm_a,
real(r8), dimension(pcols,pver+1)  ri_a,
real(r8), dimension(pcols,pver+1)  leng,
real(r8), dimension(pcols,pver+1)  wcap,
real(r8), dimension(pcols), intent(out)  pblhp,
real(r8), dimension(pcols,pver), intent(in)  cld,
integer(i4), dimension(pcols), intent(out)  ipbl,
integer(i4), dimension(pcols), intent(out)  kpblh,
real(r8), dimension(pcols,pver), intent(in)  wsedl,
real(r8), dimension(pcols,ncvmax), intent(out)  wsed_CL 
)
private
Here is the call graph for this function:
Here is the caller graph for this function:

◆ compute_cubic()

real(r8) function eddy_diff::compute_cubic ( real(r8), intent(in)  a,
real(r8), intent(in)  b,
real(r8), intent(in)  c 
)
private
Here is the caller graph for this function:

◆ compute_eddy_diff()

subroutine, public eddy_diff::compute_eddy_diff ( integer, intent(in)  lchnk,
integer, intent(in)  pcols,
integer, intent(in)  pver,
integer, intent(in)  ncol,
real(r8), dimension(pcols,pver), intent(in)  t,
real(r8), dimension(pcols,pver), intent(in)  qv,
real(r8), intent(in)  ztodt,
real(r8), dimension(pcols,pver), intent(in)  ql,
real(r8), dimension(pcols,pver), intent(in)  qi,
real(r8), dimension(pcols,pver), intent(in)  s,
real(r8), dimension(pcols,pver), intent(in)  rpdel,
real(r8), dimension(pcols,pver), intent(in)  cldn,
real(r8), dimension(pcols,pver), intent(in)  qrl,
real(r8), dimension(pcols,pver), intent(in)  wsedl,
real(r8), dimension(pcols,pver), intent(in)  z,
real(r8), dimension(pcols,pver+1), intent(in)  zi,
real(r8), dimension(pcols,pver), intent(in)  pmid,
real(r8), dimension(pcols,pver+1), intent(in)  pi,
real(r8), dimension(pcols,pver), intent(in)  u,
real(r8), dimension(pcols,pver), intent(in)  v,
real(r8), dimension(pcols), intent(in)  taux,
real(r8), dimension(pcols), intent(in)  tauy,
real(r8), dimension(pcols), intent(in)  shflx,
real(r8), dimension(pcols), intent(in)  qflx,
logical, intent(in)  wstarent,
integer, intent(in)  nturb,
real(r8), dimension(pcols), intent(out)  rrho,
real(r8), dimension(pcols), intent(out)  ustar,
real(r8), dimension(pcols), intent(out)  pblh,
real(r8), dimension(pcols,pver+1), intent(in)  kvm_in,
real(r8), dimension(pcols,pver+1), intent(in)  kvh_in,
real(r8), dimension(pcols,pver+1), intent(out)  kvm_out,
real(r8), dimension(pcols,pver+1), intent(out)  kvh_out,
real(r8), dimension(pcols,pver+1), intent(out)  kvq,
real(r8), dimension(pcols,pver+1), intent(out)  cgh,
real(r8), dimension(pcols,pver+1), intent(out)  cgs,
real(r8), dimension(pcols), intent(out)  tpert,
real(r8), dimension(pcols), intent(out)  qpert,
real(r8), dimension(pcols), intent(out)  wpert,
real(r8), dimension(pcols,pver+1), intent(out)  tke,
real(r8), dimension(pcols,pver+1), intent(out)  bprod,
real(r8), dimension(pcols,pver+1), intent(out)  sprod,
real(r8), dimension(pcols,pver+1), intent(out)  sfi,
logical, intent(in)  kvinit,
real(r8), dimension(pcols), intent(inout)  tauresx,
real(r8), dimension(pcols), intent(inout)  tauresy,
real(r8), dimension(pcols), intent(in)  ksrftms,
integer(i4), dimension(pcols), intent(out)  ipbl,
integer(i4), dimension(pcols), intent(out)  kpblh,
real(r8), dimension(pcols), intent(out)  wstarPBL,
real(r8), dimension(pcols), intent(out)  tkes,
real(r8), dimension(pcols), intent(out)  went,
integer(i4), dimension(pcols,pver+1), intent(out)  turbtype,
real(r8), dimension(pcols,pver+1), intent(out)  sm_aw 
)
Here is the call graph for this function:
Here is the caller graph for this function:

◆ exacol()

subroutine eddy_diff::exacol ( integer, intent(in)  pcols,
integer, intent(in)  pver,
integer, intent(in)  ncol,
real(r8), dimension(pcols,pver), intent(in)  ri,
real(r8), dimension(pcols), intent(in)  bflxs,
real(r8), dimension(pcols), intent(in)  minpblh,
real(r8), dimension(pcols,pver+1), intent(in)  zi,
integer, dimension(pcols,ncvmax), intent(out)  ktop,
integer, dimension(pcols,ncvmax), intent(out)  kbase,
integer, dimension(pcols), intent(out)  ncvfin 
)
private
Here is the caller graph for this function:

◆ init_eddy_diff()

subroutine, public eddy_diff::init_eddy_diff ( integer, intent(in)  kind,
integer, intent(in)  pver,
real(r8), intent(in)  gravx,
real(r8), intent(in)  cpairx,
real(r8), intent(in)  rairx,
real(r8), intent(in)  zvirx,
real(r8), intent(in)  latvapx,
real(r8), intent(in)  laticex,
integer, intent(in)  ntop_eddy,
integer, intent(in)  nbot_eddy,
real(r8), intent(in)  vkx,
real(r8), intent(in)  eddy_lbulk_max,
real(r8), intent(in)  eddy_leng_max,
real(r8), intent(in)  eddy_max_bot_pressure,
real(r8), intent(in)  eddy_moist_entrain_a2l 
)
Here is the call graph for this function:
Here is the caller graph for this function:

◆ sfdiag()

subroutine eddy_diff::sfdiag ( integer, intent(in)  pcols,
integer, intent(in)  pver,
integer, intent(in)  ncol,
real(r8), dimension(pcols,pver), intent(in)  qt,
real(r8), dimension(pcols,pver), intent(in)  ql,
real(r8), dimension(pcols,pver), intent(in)  sl,
real(r8), dimension(pcols,pver+1), intent(in)  pi,
real(r8), dimension(pcols,pver), intent(in)  pm,
real(r8), dimension(pcols,pver+1), intent(in)  zi,
real(r8), dimension(pcols,pver), intent(in)  cld,
real(r8), dimension(pcols,pver+1), intent(out)  sfi,
real(r8), dimension(pcols,pver), intent(out)  sfuh,
real(r8), dimension(pcols,pver), intent(out)  sflh,
real(r8), dimension(pcols,pver), intent(in)  slslope,
real(r8), dimension(pcols,pver), intent(in)  qtslope 
)
Here is the call graph for this function:
Here is the caller graph for this function:

◆ trbintd()

subroutine eddy_diff::trbintd ( integer, intent(in)  pcols,
integer, intent(in)  pver,
integer, intent(in)  ncol,
real(r8), dimension(pcols,pver), intent(in)  z,
real(r8), dimension(pcols,pver), intent(in)  u,
real(r8), dimension(pcols,pver), intent(in)  v,
real(r8), dimension(pcols,pver), intent(in)  t,
real(r8), dimension(pcols,pver), intent(in)  pmid,
real(r8), dimension(pcols,pver), intent(out)  s2,
real(r8), dimension(pcols,pver), intent(out)  n2,
real(r8), dimension(pcols,pver), intent(out)  ri,
real(r8), dimension(pcols,pver+1), intent(in)  zi,
real(r8), dimension(pcols,pver+1), intent(in)  pi,
real(r8), dimension(pcols,pver), intent(in)  cld,
real(r8), dimension(pcols,pver), intent(out)  qt,
real(r8), dimension(pcols,pver), intent(in)  qv,
real(r8), dimension(pcols,pver), intent(in)  ql,
real(r8), dimension(pcols,pver), intent(in)  qi,
real(r8), dimension(pcols,pver+1), intent(out)  sfi,
real(r8), dimension(pcols,pver), intent(out)  sfuh,
real(r8), dimension(pcols,pver), intent(out)  sflh,
real(r8), dimension(pcols,pver), intent(out)  sl,
real(r8), dimension(pcols,pver), intent(out)  slv,
real(r8), dimension(pcols,pver), intent(out)  slslope,
real(r8), dimension(pcols,pver), intent(out)  qtslope,
real(r8), dimension(pcols,pver+1), intent(out)  chs,
real(r8), dimension(pcols,pver+1), intent(out)  chu,
real(r8), dimension(pcols,pver+1), intent(out)  cms,
real(r8), dimension(pcols,pver+1), intent(out)  cmu 
)
private
Here is the call graph for this function:
Here is the caller graph for this function:

◆ zisocl()

subroutine eddy_diff::zisocl ( integer, intent(in)  pcols,
integer, intent(in)  pver,
integer, intent(in)  long,
real(r8), dimension(pcols, pver), intent(in)  z,
real(r8), dimension(pcols, pver+1), intent(in)  zi,
real(r8), dimension(pcols, pver), intent(in)  n2,
real(r8), dimension(pcols, pver), intent(in)  s2,
real(r8), dimension(pcols,pver+1), intent(in)  bprod,
real(r8), dimension(pcols,pver+1), intent(in)  sprod,
real(r8), dimension(pcols), intent(in)  bflxs,
real(r8), dimension(pcols), intent(in)  tkes,
integer, dimension(pcols), intent(inout)  ncvfin,
integer, dimension(pcols,ncvmax), intent(inout)  kbase,
integer, dimension(pcols,ncvmax), intent(inout)  ktop,
logical, dimension(pcols,pver+1), intent(out)  belongcv,
real(r8), dimension(pcols,ncvmax), intent(out)  ricl,
real(r8), dimension(pcols,ncvmax), intent(out)  ghcl,
real(r8), dimension(pcols,ncvmax), intent(out)  shcl,
real(r8), dimension(pcols,ncvmax), intent(out)  smcl,
real(r8), dimension(pcols,ncvmax), intent(out)  lbrk,
real(r8), dimension(pcols,ncvmax), intent(out)  wbrk,
real(r8), dimension(pcols,ncvmax), intent(out)  ebrk,
logical  extend,
logical  extend_up,
logical  extend_dn 
)
private
Here is the caller graph for this function:

Variable Documentation

◆ a1i

real(r8), parameter eddy_diff::a1i = 0.2_r8
private

◆ a1l

real(r8), parameter eddy_diff::a1l = 0.10_r8
private

◆ a2l

real(r8) eddy_diff::a2l
private

◆ a3l

real(r8), parameter eddy_diff::a3l = 0.8_r8
private

◆ ae

real(r8), parameter eddy_diff::ae = 1._r8
private

◆ alph1

real(r8), parameter eddy_diff::alph1 = 0.5562_r8
private

◆ alph2

real(r8), parameter eddy_diff::alph2 = -4.3640_r8
private

◆ alph3

real(r8), parameter eddy_diff::alph3 = -34.6764_r8
private

◆ alph4

real(r8), parameter eddy_diff::alph4 = -6.1272_r8
private

◆ alph5

real(r8), parameter eddy_diff::alph5 = 0.6986_r8
private

◆ ased

real(r8), parameter eddy_diff::ased = 9._r8
private

◆ b1

real(r8), parameter eddy_diff::b1 = 5.8_r8
private

◆ b123

real(r8) eddy_diff::b123
private

◆ betah

real(r8), parameter eddy_diff::betah = 15.0_r8
private

◆ betam

real(r8), parameter eddy_diff::betam = 15.0_r8
private

◆ betas

real(r8), parameter eddy_diff::betas = 5.0_r8
private

◆ binh

real(r8), parameter eddy_diff::binh = betah*sffrac
private

◆ binm

real(r8), parameter eddy_diff::binm = betam*sffrac
private

◆ ccon

real(r8) eddy_diff::ccon
private

◆ ccrit

real(r8), parameter eddy_diff::ccrit = 0.5_r8
private

◆ choice_evhc

character(len=4), parameter eddy_diff::choice_evhc = 'maxi'
private

◆ choice_leng

character(len=6), parameter eddy_diff::choice_leng = 'origin'
private

◆ choice_radf

character(len=6), parameter eddy_diff::choice_radf = 'maxi'
private

◆ choice_srcl

character(len=6), parameter eddy_diff::choice_srcl = 'nonamb'
private

◆ choice_tkes

character(len=6), parameter eddy_diff::choice_tkes = 'ibprod'
private

◆ choice_tunl

character(len=6), parameter eddy_diff::choice_tunl = 'rampcl'
private

◆ cleng

real(r8), parameter eddy_diff::cleng = 3._r8
private

◆ cpair

real(r8) eddy_diff::cpair
private

◆ ctunl

real(r8), parameter eddy_diff::ctunl = 2._r8
private

◆ evhcmax

real(r8), parameter eddy_diff::evhcmax = 10._r8
private

◆ fak

real(r8), parameter eddy_diff::fak = 8.5_r8
private

◆ fakn

real(r8), parameter eddy_diff::fakn = 7.2_r8
private

◆ fieldlist_molec

type(vdiff_selector) eddy_diff::fieldlist_molec
private

◆ fieldlist_wet

type(vdiff_selector) eddy_diff::fieldlist_wet
private

◆ g

real(r8) eddy_diff::g
private

◆ i4

integer, parameter eddy_diff::i4 = selected_int_kind( 6)
private

◆ id_sedfact

logical, parameter eddy_diff::id_sedfact = .false.
private

◆ jbumin

real(r8), parameter eddy_diff::jbumin = .001_r8
private

◆ lambda

real(r8), parameter eddy_diff::lambda = 0.5_r8
private

◆ latice

real(r8) eddy_diff::latice
private

◆ latsub

real(r8) eddy_diff::latsub
private

◆ latvap

real(r8) eddy_diff::latvap
private

◆ lbulk_max

real(r8) eddy_diff::lbulk_max = 40.e3_r8
private

◆ leng_max

real(r8), dimension(pver) eddy_diff::leng_max = 40.e3_r8
private

◆ ml2

real(r8), dimension(:), allocatable eddy_diff::ml2
private

◆ nbot_turb

integer eddy_diff::nbot_turb
private

◆ ncvmax

integer, parameter eddy_diff::ncvmax = pver
private

◆ ntop_turb

integer eddy_diff::ntop_turb
private

◆ ntzero

real(r8), parameter eddy_diff::ntzero = 1.e-12_r8
private

◆ onet

real(r8), parameter eddy_diff::onet = 1._r8/3._r8
private

◆ pblmaxp

real(r8), parameter eddy_diff::pblmaxp = 4.e4_r8
private

◆ qmin

real(r8), parameter eddy_diff::qmin = 1.e-5_r8
private

◆ r8

integer, parameter eddy_diff::r8 = selected_real_kind(12)
private

◆ rair

real(r8) eddy_diff::rair
private

◆ rcapmax

real(r8), parameter eddy_diff::rcapmax = 2.0_r8
private

◆ rcapmin

real(r8), parameter eddy_diff::rcapmin = 0.1_r8
private

◆ ricr

real(r8), parameter eddy_diff::ricr = 0.3_r8
private

◆ ricrit

real(r8), parameter eddy_diff::ricrit = 0.19_r8
private

◆ rinc

real(r8), parameter eddy_diff::rinc = -0.04_r8
private

◆ set_qrlzero

logical, parameter eddy_diff::set_qrlzero = .false.
private

◆ sffrac

real(r8), parameter eddy_diff::sffrac = 0.1_r8
private

◆ sftype

character, parameter eddy_diff::sftype = 'l'
private

◆ tfac

real(r8), parameter eddy_diff::tfac = 1._r8
private

◆ tkemax

real(r8), parameter eddy_diff::tkemax = 20._r8
private

◆ tunl

real(r8), parameter eddy_diff::tunl = 0.085_r8
private

◆ use_dw_surf

logical, parameter eddy_diff::use_dw_surf = .true.
private

◆ use_kvf

logical, parameter eddy_diff::use_kvf = .false.
private

◆ vk

real(r8) eddy_diff::vk
private

◆ wfac

real(r8), parameter eddy_diff::wfac = 1._r8
private

◆ wpertmin

real(r8), parameter eddy_diff::wpertmin = 1.e-6_r8
private

◆ wstar3factcrit

real(r8), parameter eddy_diff::wstar3factcrit = 0.5_r8
private

◆ zkmin

real(r8), parameter eddy_diff::zkmin = 0.01_r8
private

◆ zvir

real(r8) eddy_diff::zvir
private