CAM
|
Functions/Subroutines | |
subroutine, public | advance_xp2_xpyp (tau_zm, wm_zm, rtm, wprtp, thlm, wpthlp, wpthvp, um, vm, wp2, wp2_zt, wp3, upwp, vpwp, sigma_sqd_w, Skw_zm, Kh_zt, rtp2_forcing, thlp2_forcing, rtpthlp_forcing, rho_ds_zm, rho_ds_zt, invrs_rho_ds_zm, thv_ds_zm, Lscale, wp3_on_wp2, wp3_on_wp2_zt, l_iter, dt, sclrm, wpsclrp, rtp2, thlp2, rtpthlp, up2, vp2, err_code, sclrp2, sclrprtp, sclrpthlp) |
subroutine, private | xp2_xpyp_lhs (dt, l_iter, wp3_on_wp2_zt, wp3_on_wp2, a1, a1_zt, tau_zm, wm_zm, Kw, rho_ds_zt, rho_ds_zm, invrs_rho_ds_zm, Cn, nu, beta, lhs) |
subroutine, private | xp2_xpyp_solve (solve_type, nrhs, rhs, lhs, xapxbp, err_code) |
subroutine, private | xp2_xpyp_implicit_stats (solve_type, xapxbp) |
subroutine, private | xp2_xpyp_uv_rhs (solve_type, dt, l_iter, a1, a1_zt, wp2, wp2_zt, wpthvp, Lscale, wp3_on_wp2_zt, wp3_on_wp2, C4_C14_1d, tau_zm, xam, xbm, wpxap, wpxap_zt, wpxbp, wpxbp_zt, xap2, xbp2, rho_ds_zt, invrs_rho_ds_zm, rho_ds_zm, thv_ds_zm, C4, C5, C14, beta, rhs) |
subroutine, private | xp2_xpyp_rhs (solve_type, dt, l_iter, a1, a1_zt, wp2_zt, wpxap, wpxap_zt, wp3_on_wp2, wp3_on_wp2_zt, wpxbp, wpxbp_zt, xam, xbm, xapxbp, xapxbp_forcing, rho_ds_zm, rho_ds_zt, invrs_rho_ds_zm, Cn, tau_zm, threshold, beta, rhs) |
pure real(kind=core_rknd) function, dimension(3), private | term_ta_lhs (wp3_on_wp2_ztp1, wp3_on_wp2_zt, rho_ds_ztp1, rho_ds_zt, invrs_rho_ds_zm, a1_ztp1, a1, a1_zt, invrs_dzm, beta, level) |
pure real(kind=core_rknd) function, dimension(3), private | term_ta_lhs_upwind (a1_zm, a1_zm_p1, a1_zm_m1, wp3_on_wp2_p1, wp3_on_wp2, wp3_on_wp2_m1, invrs_dzt, invrs_dzt_p1, invrs_rho_ds_zm, rho_ds_zm_p1, rho_ds_zm, rho_ds_zm_m1, beta) |
pure real(kind=core_rknd) function, private | term_ta_rhs (wp2_ztp1, wp2_zt, wp3_on_wp2_ztp1, wp3_on_wp2_zt, rho_ds_ztp1, rho_ds_zt, invrs_rho_ds_zm, a1_ztp1, a1, a1_zt, wpxbp_ztp1, wpxbp_zt, wpxap_ztp1, wpxap_zt, invrs_dzm, beta) |
pure real(kind=core_rknd) function, private | term_tp (xamp1, xam, xbmp1, xbm, wpxbp, wpxap, invrs_dzm) |
pure real(kind=core_rknd) function, private | term_dp1_lhs (Cn, tau_zm) |
pure real(kind=core_rknd) function, private | term_dp1_rhs (Cn, tau_zm, threshold) |
pure real(kind=core_rknd) function, private | term_pr1 (C4, C14, xbp2, wp2, tau_zm) |
real(kind=core_rknd) function, private | term_pr2 (C5, thv_ds_zm, wpthvp, upwp, vpwp, um, vm, invrs_dzm, kp1, k, Lscalep1, Lscale, wp2_ztp1, wp2_zt) |
subroutine | find_endpts_for_vert_avg_winds (vert_avg_depth, k, um, vm, zt_high, um_high, vm_high, zt_low, um_low, vm_low) |
subroutine | pos_definite_variances (solve_type, dt, tolerance, rho_ds_zm, rho_ds_zt, xp2_np1) |
subroutine, public | update_xp2_mc (nz, dt, cloud_frac, rcm, rvm, thlm, wm, exner, rrm_evap, pdf_params, rtp2_mc, thlp2_mc, wprtp_mc, wpthlp_mc, rtpthlp_mc) |
Variables | |
integer, parameter, private | xp2_xpyp_rtp2 = 1 |
integer, parameter, private | xp2_xpyp_thlp2 = 2 |
integer, parameter, private | xp2_xpyp_rtpthlp = 3 |
integer, parameter, private | xp2_xpyp_up2_vp2 = 4 |
integer, parameter, private | xp2_xpyp_up2 = 5 |
integer, parameter, private | xp2_xpyp_vp2 = 6 |
integer, parameter, private | xp2_xpyp_scalars = 7 |
integer, parameter, private | xp2_xpyp_sclrp2 = 8 |
integer, parameter, private | xp2_xpyp_sclrprtp = 9 |
integer, parameter, private | xp2_xpyp_sclrpthlp = 10 |
subroutine, public advance_xp2_xpyp_module::advance_xp2_xpyp | ( | real( kind = core_rknd ), dimension(gr%nz), intent(in) | tau_zm, |
real( kind = core_rknd ), dimension(gr%nz), intent(in) | wm_zm, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | rtm, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | wprtp, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | thlm, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | wpthlp, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | wpthvp, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | um, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | vm, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | wp2, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | wp2_zt, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | wp3, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | upwp, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | vpwp, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | sigma_sqd_w, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | Skw_zm, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | Kh_zt, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | rtp2_forcing, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | thlp2_forcing, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | rtpthlp_forcing, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | rho_ds_zm, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | rho_ds_zt, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | invrs_rho_ds_zm, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | thv_ds_zm, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | Lscale, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | wp3_on_wp2, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | wp3_on_wp2_zt, | ||
logical, intent(in) | l_iter, | ||
real( kind = core_rknd ), intent(in) | dt, | ||
real( kind = core_rknd ), dimension(gr%nz, sclr_dim), intent(in) | sclrm, | ||
real( kind = core_rknd ), dimension(gr%nz, sclr_dim), intent(in) | wpsclrp, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(inout) | rtp2, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(inout) | thlp2, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(inout) | rtpthlp, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(inout) | up2, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(inout) | vp2, | ||
integer, intent(inout) | err_code, | ||
real( kind = core_rknd ), dimension(gr%nz, sclr_dim), intent(inout) | sclrp2, | ||
real( kind = core_rknd ), dimension(gr%nz, sclr_dim), intent(inout) | sclrprtp, | ||
real( kind = core_rknd ), dimension(gr%nz, sclr_dim), intent(inout) | sclrpthlp | ||
) |
subroutine advance_xp2_xpyp_module::find_endpts_for_vert_avg_winds | ( | real( kind = core_rknd ), intent(in) | vert_avg_depth, |
integer, intent(in) | k, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | um, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | vm, | ||
real( kind = core_rknd ), intent(out) | zt_high, | ||
real( kind = core_rknd ), intent(out) | um_high, | ||
real( kind = core_rknd ), intent(out) | vm_high, | ||
real( kind = core_rknd ), intent(out) | zt_low, | ||
real( kind = core_rknd ), intent(out) | um_low, | ||
real( kind = core_rknd ), intent(out) | vm_low | ||
) |
subroutine advance_xp2_xpyp_module::pos_definite_variances | ( | integer, intent(in) | solve_type, |
real( kind = core_rknd ), intent(in) | dt, | ||
real( kind = core_rknd ), intent(in) | tolerance, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | rho_ds_zm, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(in) | rho_ds_zt, | ||
real( kind = core_rknd ), dimension(gr%nz), intent(inout) | xp2_np1 | ||
) |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
subroutine, public advance_xp2_xpyp_module::update_xp2_mc | ( | integer, intent(in) | nz, |
real( kind = core_rknd ), intent(in) | dt, | ||
real( kind = core_rknd ), dimension(nz), intent(in) | cloud_frac, | ||
real( kind = core_rknd ), dimension(nz), intent(in) | rcm, | ||
real( kind = core_rknd ), dimension(nz), intent(in) | rvm, | ||
real( kind = core_rknd ), dimension(nz), intent(in) | thlm, | ||
real( kind = core_rknd ), dimension(nz), intent(in) | wm, | ||
real( kind = core_rknd ), dimension(nz), intent(in) | exner, | ||
real( kind = core_rknd ), dimension(nz), intent(in) | rrm_evap, | ||
type(pdf_parameter), dimension(nz), intent(in) | pdf_params, | ||
real( kind = core_rknd ), dimension(nz), intent(inout) | rtp2_mc, | ||
real( kind = core_rknd ), dimension(nz), intent(inout) | thlp2_mc, | ||
real( kind = core_rknd ), dimension(nz), intent(inout) | wprtp_mc, | ||
real( kind = core_rknd ), dimension(nz), intent(inout) | wpthlp_mc, | ||
real( kind = core_rknd ), dimension(nz), intent(inout) | rtpthlp_mc | ||
) |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |