CAM
|
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_selector) | fieldlist_wet |
type(vdiff_selector) | fieldlist_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(r8) | lbulk_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(r8) | a2l |
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(r8) | b123 |
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(r8) | cpair |
real(r8) | rair |
real(r8) | zvir |
real(r8) | latvap |
real(r8) | latice |
real(r8) | latsub |
real(r8) | g |
real(r8) | vk |
real(r8) | ccon |
integer | ntop_turb |
integer | nbot_turb |
real(r8), dimension(:), allocatable | ml2 |
|
private |
|
private |
|
private |
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 | ||
) |
|
private |
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 | ||
) |
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 | ||
) |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |