advance_xm_wpxp_module.F90 File Reference

Modules
module	advance_xm_wpxp_module

Functions/Subroutines
subroutine, public	advance_xm_wpxp_module::advance_xm_wpxp (dt, sigma_sqd_w, wm_zm, wm_zt, wp2, Lscale, wp3_on_wp2, wp3_on_wp2_zt, Kh_zt, Kh_zm, tau_C6_zm, Skw_zm, rtpthvp, rtm_forcing, wprtp_forcing, rtm_ref, thlpthvp, thlm_forcing, wpthlp_forcing, thlm_ref, rho_ds_zm, rho_ds_zt, invrs_rho_ds_zm, invrs_rho_ds_zt, thv_ds_zm, rtp2, thlp2, w_1_zm, w_2_zm, varnce_w_1_zm, varnce_w_2_zm, mixt_frac_zm, l_implemented, em, sclrpthvp, sclrm_forcing, sclrp2, rtm, wprtp, thlm, wpthlp, err_code, sclrm, wpsclrp)
subroutine, private	advance_xm_wpxp_module::xm_wpxp_lhs (l_iter, dt, Kh_zm, wpxp, a1, a1_zt, wm_zm, wm_zt, wp2, wp3_on_wp2, wp3_on_wp2_zt, Kw6, tau_C6_zm, C7_Skw_fnc, C6x_Skw_fnc, rho_ds_zm, rho_ds_zt, invrs_rho_ds_zm, invrs_rho_ds_zt, wpxp_upper_lim, wpxp_lower_lim, l_implemented, em, Lscale, thlm, lhs)
subroutine, private	advance_xm_wpxp_module::xm_wpxp_rhs (solve_type, l_iter, dt, xm, wpxp, xm_forcing, wpxp_forcing, C7_Skw_fnc, xpthvp, C6x_Skw_fnc, tau_C6_zm, a1, a1_zt, wp3_on_wp2, wp3_on_wp2_zt, rho_ds_zt, rho_ds_zm, invrs_rho_ds_zm, thv_ds_zm, wpxp_upper_lim, wpxp_lower_lim, rhs)
subroutine, private	advance_xm_wpxp_module::xm_wpxp_solve (nrhs, lhs, rhs, solution, err_code, rcond)
subroutine, private	advance_xm_wpxp_module::xm_wpxp_clipping_and_stats (solve_type, dt, wp2, xp2, wm_zt, xm_forcing, rho_ds_zm, rho_ds_zt, invrs_rho_ds_zm, invrs_rho_ds_zt, xp2_threshold, xm_threshold, rcond, low_lev_effect, high_lev_effect, l_implemented, solution, xm, xm_tol, wpxp, err_code)
pure real(kind=core_rknd) function, dimension(2), private	advance_xm_wpxp_module::xm_term_ta_lhs (rho_ds_zm, rho_ds_zmm1, invrs_rho_ds_zt, invrs_dzt)
pure real(kind=core_rknd) function, dimension(3), private	advance_xm_wpxp_module::wpxp_term_ta_lhs (wp3_on_wp2_ztp1, wp3_on_wp2_zt, a1_ztp1, a1_zt, rho_ds_ztp1, rho_ds_zt, invrs_rho_ds_zm, invrs_dzm, level)
pure real(kind=core_rknd) function, dimension(3)	advance_xm_wpxp_module::wpxp_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_dztkp1, invrs_rho_ds_zm, rho_ds_zmp1, rho_ds_zm, rho_ds_zmm1)
pure real(kind=core_rknd) function, dimension(2), private	advance_xm_wpxp_module::wpxp_term_tp_lhs (wp2, invrs_dzm)
pure real(kind=core_rknd) function, private	advance_xm_wpxp_module::wpxp_terms_ac_pr2_lhs (C7_Skw_fnc, wm_ztp1, wm_zt, invrs_dzm)
pure real(kind=core_rknd) function, private	advance_xm_wpxp_module::wpxp_term_pr1_lhs (C6x_Skw_fnc, tau_C6_zm)
pure real(kind=core_rknd) function, private	advance_xm_wpxp_module::wpxp_terms_bp_pr3_rhs (C7_Skw_fnc, thv_ds_zm, xpthvp)
subroutine, private	advance_xm_wpxp_module::xm_correction_wpxp_cl (solve_type, dt, wpxp_chnge, invrs_dzt, xm)
pure real(kind=core_rknd) function, dimension(gr%nz), private	advance_xm_wpxp_module::damp_coefficient (coefficient, Cx_Skw_fnc, max_coeff_value, threshold, Lscale)

Variables
integer, parameter, private	advance_xm_wpxp_module::nsub = 2
integer, parameter, private	advance_xm_wpxp_module::nsup = 2
integer, parameter, private	advance_xm_wpxp_module::xm_wpxp_thlm = 1
integer, parameter, private	advance_xm_wpxp_module::xm_wpxp_rtm = 2
integer, parameter, private	advance_xm_wpxp_module::xm_wpxp_scalar = 3