The module 'fv_sg' performs FV sub-grid mixing. More...
Functions/Subroutines | |
subroutine, public | fv_subgrid_z (isd, ied, jsd, jed, is, ie, js, je, km, nq, dt, tau, nwat, delp, pe, peln, pkz, ta, qa, ua, va, hydrostatic, w, delz, u_dt, v_dt, t_dt, q_dt, k_bot) |
subroutine | qsmith_init |
subroutine, public | qsmith (im, km, k1, t, p, q, qs, dqdt) |
subroutine | qs_table (n, table) |
subroutine | qs_table_m (n, table) |
subroutine, public | neg_adj3 (is, ie, js, je, ng, kbot, hydrostatic, peln, delz, pt, dp, qv, ql, qr, qi, qs, qg, qa, check_negative) |
subroutine, public | neg_adj2 (is, ie, js, je, ng, kbot, hydrostatic, peln, delz, pt, dp, qv, ql, qr, qi, qs, qa, check_negative) |
subroutine | fillq (im, km, q, dp) |
subroutine | prt_negative (qname, q, is, ie, js, je, n_g, km, threshold) |
Variables | |
real, parameter | esl = 0.621971831 |
real, parameter | tice = 273.16 |
real, parameter | c_ice = 1972. |
-15 C More... | |
real, parameter | c_liq = 4.1855e+3 |
GFS. More... | |
real, parameter | cv_vap = cp_vapor - rvgas |
1384.5 More... | |
real, parameter | c_con = c_ice |
real, parameter | dc_vap = cv_vap - c_liq |
= -2368. More... | |
real, parameter | dc_ice = c_liq - c_ice |
= 2112. More... | |
real, parameter | hlv0 = 2.5e6 |
real, parameter | hlf0 = 3.3358e5 |
real, parameter | t_ice = 273.16 |
real, parameter | ri_max = 1. |
real, parameter | ri_min = 0.25 |
real, parameter | t1_min = 160. |
real, parameter | t2_min = 165. |
real, parameter | t2_max = 315. |
real, parameter | t3_max = 325. |
real, parameter | lv0 = hlv0 - dc_vap*t_ice |
= 3.147782e6 More... | |
real, parameter | li0 = hlf0 - dc_ice*t_ice |
= -2.431928e5 More... | |
real, parameter | zvir = rvgas/rdgas - 1. |
= 0.607789855 More... | |
real, dimension(:), allocatable | table |
real, dimension(:), allocatable | des |
real | lv00 |
real | d0_vap |
The module 'fv_sg' performs FV sub-grid mixing.
|
private |
subroutine, public fv_sg_mod::fv_subgrid_z | ( | integer, intent(in) | isd, |
integer, intent(in) | ied, | ||
integer, intent(in) | jsd, | ||
integer, intent(in) | jed, | ||
integer, intent(in) | is, | ||
integer, intent(in) | ie, | ||
integer, intent(in) | js, | ||
integer, intent(in) | je, | ||
integer, intent(in) | km, | ||
integer, intent(in) | nq, | ||
real, intent(in) | dt, | ||
integer, intent(in) | tau, | ||
integer, intent(in) | nwat, | ||
real, dimension(isd:ied,jsd:jed,km), intent(in) | delp, | ||
real, dimension(is-1:ie+1,km+1,js-1:je+1), intent(in) | pe, | ||
real, dimension(is :ie, km+1,js :je), intent(in) | peln, | ||
real, dimension(is:ie,js:je,km), intent(in) | pkz, | ||
real, dimension(isd:ied,jsd:jed,km), intent(inout) | ta, | ||
real, dimension(isd:ied,jsd:jed,km,nq), intent(inout) | qa, | ||
real, dimension(isd:ied,jsd:jed,km), intent(inout) | ua, | ||
real, dimension(isd:ied,jsd:jed,km), intent(inout) | va, | ||
logical, intent(in) | hydrostatic, | ||
real, dimension(isd:,jsd:,1:), intent(inout) | w, | ||
real, dimension(isd:,jsd:,1:), intent(in) | delz, | ||
real, dimension(isd:ied,jsd:jed,km), intent(inout) | u_dt, | ||
real, dimension(isd:ied,jsd:jed,km), intent(inout) | v_dt, | ||
real, dimension(is:ie,js:je,km), intent(inout) | t_dt, | ||
real, dimension(is:ie,js:je,km,nq), intent(inout) | q_dt, | ||
integer, intent(in), optional | k_bot | ||
) |
subroutine, public fv_sg_mod::neg_adj2 | ( | integer, intent(in) | is, |
integer, intent(in) | ie, | ||
integer, intent(in) | js, | ||
integer, intent(in) | je, | ||
integer, intent(in) | ng, | ||
integer, intent(in) | kbot, | ||
logical, intent(in) | hydrostatic, | ||
real, dimension(is:ie,kbot+1,js:je), intent(in) | peln, | ||
real, dimension(is-ng:,js-ng:,1:), intent(in) | delz, | ||
real, dimension(is-ng:ie+ng,js-ng:je+ng,kbot), intent(inout) | pt, | ||
real, dimension(is-ng:ie+ng,js-ng:je+ng,kbot), intent(in) | dp, | ||
real, dimension(is-ng:ie+ng,js-ng:je+ng,kbot), intent(inout) | qv, | ||
real, dimension(is-ng:ie+ng,js-ng:je+ng,kbot), intent(inout) | ql, | ||
real, dimension(is-ng:ie+ng,js-ng:je+ng,kbot), intent(inout) | qr, | ||
real, dimension(is-ng:ie+ng,js-ng:je+ng,kbot), intent(inout) | qi, | ||
real, dimension(is-ng:ie+ng,js-ng:je+ng,kbot), intent(inout) | qs, | ||
real, dimension(is-ng:ie+ng,js-ng:je+ng,kbot), intent(inout), optional | qa, | ||
logical, intent(in), optional | check_negative | ||
) |
subroutine, public fv_sg_mod::neg_adj3 | ( | integer, intent(in) | is, |
integer, intent(in) | ie, | ||
integer, intent(in) | js, | ||
integer, intent(in) | je, | ||
integer, intent(in) | ng, | ||
integer, intent(in) | kbot, | ||
logical, intent(in) | hydrostatic, | ||
real, dimension(is:ie,kbot+1,js:je), intent(in) | peln, | ||
real, dimension(is-ng:,js-ng:,1:), intent(in) | delz, | ||
real, dimension(is-ng:ie+ng,js-ng:je+ng,kbot), intent(inout) | pt, | ||
real, dimension(is-ng:ie+ng,js-ng:je+ng,kbot), intent(in) | dp, | ||
real, dimension(is-ng:ie+ng,js-ng:je+ng,kbot), intent(inout) | qv, | ||
real, dimension(is-ng:ie+ng,js-ng:je+ng,kbot), intent(inout) | ql, | ||
real, dimension(is-ng:ie+ng,js-ng:je+ng,kbot), intent(inout) | qr, | ||
real, dimension(is-ng:ie+ng,js-ng:je+ng,kbot), intent(inout) | qi, | ||
real, dimension(is-ng:ie+ng,js-ng:je+ng,kbot), intent(inout) | qs, | ||
real, dimension(is-ng:ie+ng,js-ng:je+ng,kbot), intent(inout) | qg, | ||
real, dimension(is-ng:ie+ng,js-ng:je+ng,kbot), intent(inout), optional | qa, | ||
logical, intent(in), optional | check_negative | ||
) |
|
private |
|
private |
|
private |
subroutine, public fv_sg_mod::qsmith | ( | integer, intent(in) | im, |
integer, intent(in) | km, | ||
integer, intent(in) | k1, | ||
real, dimension(im,km), intent(in) | t, | ||
real, dimension(im,km), intent(in) | p, | ||
real, dimension(im,km), intent(in) | q, | ||
real, dimension(im,km), intent(out) | qs, | ||
real, dimension(im,km), intent(out), optional | dqdt | ||
) |
|
private |