FV3 Bundle
|
Functions/Subroutines | |
subroutine, public | c_sw_tlm (delpc, delpc_tl, delp, delp_tl, ptc, ptc_tl, pt, pt_tl, u, u_tl, v, v_tl, w, w_tl, uc, uc_tl, vc, vc_tl, ua, ua_tl, va, va_tl, wc, wc_tl, ut, ut_tl, vt, vt_tl, divg_d, divg_d_tl, nord, dt2, hydrostatic, dord4, bd, gridstruct, flagstruct) |
subroutine, public | c_sw (delpc, delp, ptc, pt, u, v, w, uc, vc, ua, va, wc, ut, vt, divg_d, nord, dt2, hydrostatic, dord4, bd, gridstruct, flagstruct) |
subroutine, public | d_sw_tlm (delpc, delpc_tl, delp, delp_tl, ptc, ptc_tl, pt, pt_tl, u, u_tl, v, v_tl, w, w_tl, uc, uc_tl, vc, vc_tl, ua, ua_tl, va, va_tl, divg_d, divg_d_tl, xflux, xflux_tl, yflux, yflux_tl, cx, cx_tl, cy, cy_tl, crx_adv, crx_adv_tl, cry_adv, cry_adv_tl, xfx_adv, xfx_adv_tl, yfx_adv, yfx_adv_tl, q_con, z_rat, z_rat_tl, kgb, heat_source, heat_source_tl, dpx, dpx_tl, zvir, sphum, nq, q, q_tl, k, km, inline_q, dt, hord_tr, hord_mt, hord_vt, hord_tm, hord_dp, nord, nord_v, nord_w, nord_t, dddmp, d2_bg, d4_bg, damp_v, damp_w, damp_t, d_con, hydrostatic, gridstruct, flagstruct, bd, hord_tr_pert, hord_mt_pert, hord_vt_pert, hord_tm_pert, hord_dp_pert, split_damp, nord_pert, nord_v_pert, nord_w_pert, nord_t_pert, dddmp_pert, d2_bg_pert, d4_bg_pert, damp_v_pert, damp_w_pert, damp_t_pert) |
subroutine, public | d_sw (delpc, delp, ptc, pt, u, v, w, uc, vc, ua, va, divg_d, xflux, yflux, cx, cy, crx_adv, cry_adv, xfx_adv, yfx_adv, q_con, z_rat, kgb, heat_source, dpx, zvir, sphum, nq, q, k, km, inline_q, dt, hord_tr, hord_mt, hord_vt, hord_tm, hord_dp, nord, nord_v, nord_w, nord_t, dddmp, d2_bg, d4_bg, damp_v, damp_w, damp_t, d_con, hydrostatic, gridstruct, flagstruct, bd, hord_tr_pert, hord_mt_pert, hord_vt_pert, hord_tm_pert, hord_dp_pert, split_damp, nord_pert, nord_v_pert, nord_w_pert, nord_t_pert, dddmp_pert, d2_bg_pert, d4_bg_pert, damp_v_pert, damp_w_pert, damp_t_pert) |
subroutine, public | del6_vt_flux_tlm (nord, npx, npy, damp, q, q_tl, d2, d2_tl, fx2, fx2_tl, fy2, fy2_tl, gridstruct, bd) |
subroutine, public | del6_vt_flux (nord, npx, npy, damp, q, d2, fx2, fy2, gridstruct, bd) |
subroutine, public | divergence_corner_tlm (u, u_tl, v, v_tl, ua, ua_tl, va, va_tl, divg_d, divg_d_tl, gridstruct, flagstruct, bd) |
subroutine, public | divergence_corner (u, v, ua, va, divg_d, gridstruct, flagstruct, bd) |
subroutine, public | divergence_corner_nest_tlm (u, u_tl, v, v_tl, ua, ua_tl, va, va_tl, divg_d, divg_d_tl, gridstruct, flagstruct, bd) |
subroutine, public | divergence_corner_nest (u, v, ua, va, divg_d, gridstruct, flagstruct, bd) |
subroutine | xtp_u (is, ie, js, je, isd, ied, jsd, jed, c, u, v, flux, iord, dx, rdx, npx, npy, grid_type, nested) |
subroutine | ytp_v (is, ie, js, je, isd, ied, jsd, jed, c, u, v, flux, jord, dy, rdy, npx, npy, grid_type, nested) |
subroutine, public | d2a2c_vect_tlm (u, u_tl, v, v_tl, ua, ua_tl, va, va_tl, uc, uc_tl, vc, vc_tl, ut, ut_tl, vt, vt_tl, dord4, gridstruct, bd, npx, npy, nested, grid_type) |
subroutine, public | d2a2c_vect (u, v, ua, va, uc, vc, ut, vt, dord4, gridstruct, bd, npx, npy, nested, grid_type) |
real function | edge_interpolate4_tlm (ua, ua_tl, dxa, edge_interpolate4) |
real function | edge_interpolate4 (ua, dxa) |
subroutine | fill3_4corners (q1, q2, q3, dir, bd, npx, npy, sw_corner, se_corner, ne_corner, nw_corner) |
subroutine | fill2_4corners_tlm (q1, q1_tl, q2, q2_tl, dir, bd, npx, npy, sw_corner, se_corner, ne_corner, nw_corner) |
subroutine | fill2_4corners (q1, q2, dir, bd, npx, npy, sw_corner, se_corner, ne_corner, nw_corner) |
subroutine, public | fill_4corners_tlm (q, q_tl, dir, bd, npx, npy, sw_corner, se_corner, ne_corner, nw_corner) |
subroutine, public | fill_4corners (q, dir, bd, npx, npy, sw_corner, se_corner, ne_corner, nw_corner) |
subroutine | xtp_u_tlm (is, ie, js, je, isd, ied, jsd, jed, c, c_tl, u, u_tl, v, flux, flux_tl, iord, dx, rdx, npx, npy, grid_type, nested) |
subroutine | ytp_v_tlm (is, ie, js, je, isd, ied, jsd, jed, c, c_tl, u, v, v_tl, flux, flux_tl, jord, dy, rdy, npx, npy, grid_type, nested) |
subroutine | compute_divergence_damping (nord, d2_bg, d4_bg, dddmp, dt, vort, ptc, delpc, ke, u, v, uc, vc, ua, va, divg_d, wk, gridstruct, flagstruct, bd) |
subroutine | smag_corner (dt, u, v, ua, va, smag_c, bd, npx, npy, gridstruct, ng) |
subroutine | compute_divergence_damping_tlm (nord, d2_bg, d4_bg, dddmp, dt, vort, vort_tl, ptc, ptc_tl, delpc, delpc_tl, ke, ke_tl, u, u_tl, v, v_tl, uc, uc_tl, vc, vc_tl, ua, ua_tl, va, va_tl, divg_d, divg_d_tl, wk, wk_tl, gridstruct, flagstruct, bd) |
subroutine | smag_corner_tlm (dt, u, u_tl, v, v_tl, ua, va, smag_c, smag_c_tl, bd, npx, npy, gridstruct, ng) |
Variables | |
real, parameter | r3 = 1./3. |
real, parameter | t11 =27./28. |
real, parameter | t12 =-13./28. |
real, parameter | t13 =3./7. |
real, parameter | t14 =6./7. |
real, parameter | t15 =3./28. |
real, parameter | s11 =11./14. |
real, parameter | s13 =-13./14. |
real, parameter | s14 =4./7. |
real, parameter | s15 =3./14. |
real, parameter | near_zero = 1.E-9 |
real, parameter | big_number = 1.E30 |
real, parameter | p1 = 7./12. |
real, parameter | p2 = -1./12. |
real, parameter | a1 = 0.5625 |
real, parameter | a2 = -0.0625 |
real, parameter | c1 = -2./14. |
real, parameter | c2 = 11./14. |
real, parameter | c3 = 5./14. |
real, parameter | b1 = 1./30. |
real, parameter | b2 = -13./60. |
real, parameter | b3 = -13./60. |
real, parameter | b4 = 0.45 |
real, parameter | b5 = -0.05 |
subroutine, public sw_core_tlm_mod::c_sw | ( | real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | delpc, |
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | delp, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | ptc, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | pt, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(inout) | u, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(inout) | v, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | w, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(inout) | uc, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(inout) | vc, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | ua, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | va, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | wc, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | ut, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | vt, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(out) | divg_d, | ||
integer, intent(in) | nord, | ||
real, intent(in) | dt2, | ||
logical, intent(in) | hydrostatic, | ||
logical, intent(in) | dord4, | ||
type(fv_grid_bounds_type), intent(in) | bd, | ||
type(fv_grid_type), intent(in), target | gridstruct, | ||
type(fv_flags_type), intent(in), target | flagstruct | ||
) |
subroutine, public sw_core_tlm_mod::c_sw_tlm | ( | real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | delpc, |
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | delpc_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | delp, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | delp_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | ptc, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | ptc_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | pt, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | pt_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(inout) | u, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(inout) | u_tl, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(inout) | v, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(inout) | v_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | w, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | w_tl, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(inout) | uc, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(inout) | uc_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(inout) | vc, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(inout) | vc_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | ua, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | ua_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | va, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | va_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | wc, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | wc_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | ut, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | ut_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | vt, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | vt_tl, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(out) | divg_d, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(out) | divg_d_tl, | ||
integer, intent(in) | nord, | ||
real, intent(in) | dt2, | ||
logical, intent(in) | hydrostatic, | ||
logical, intent(in) | dord4, | ||
type(fv_grid_bounds_type), intent(in) | bd, | ||
type(fv_grid_type), intent(in), target | gridstruct, | ||
type(fv_flags_type), intent(in), target | flagstruct | ||
) |
Definition at line 91 of file sw_core_tlm.F90.
|
private |
Definition at line 7763 of file sw_core_tlm.F90.
|
private |
Definition at line 8182 of file sw_core_tlm.F90.
subroutine, public sw_core_tlm_mod::d2a2c_vect | ( | real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(in) | u, |
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(in) | v, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | ua, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | va, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(out) | uc, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(out) | vc, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | ut, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | vt, | ||
logical, intent(in) | dord4, | ||
type(fv_grid_type), intent(in), target | gridstruct, | ||
type(fv_grid_bounds_type), intent(in) | bd, | ||
integer, intent(in) | npx, | ||
integer, intent(in) | npy, | ||
logical, intent(in) | nested, | ||
integer, intent(in) | grid_type | ||
) |
Definition at line 6401 of file sw_core_tlm.F90.
subroutine, public sw_core_tlm_mod::d2a2c_vect_tlm | ( | real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(in) | u, |
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(in) | u_tl, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(in) | v, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(in) | v_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | ua, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | ua_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | va, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | va_tl, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(out) | uc, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(out) | uc_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(out) | vc, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(out) | vc_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | ut, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | ut_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | vt, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | vt_tl, | ||
logical, intent(in) | dord4, | ||
type(fv_grid_type), intent(in), target | gridstruct, | ||
type(fv_grid_bounds_type), intent(in) | bd, | ||
integer, intent(in) | npx, | ||
integer, intent(in) | npy, | ||
logical, intent(in) | nested, | ||
integer, intent(in) | grid_type | ||
) |
Definition at line 5877 of file sw_core_tlm.F90.
subroutine, public sw_core_tlm_mod::d_sw | ( | real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | delpc, |
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | delp, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | ptc, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | pt, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(inout) | u, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(inout) | v, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | w, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(inout) | uc, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(inout) | vc, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | ua, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | va, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(inout) | divg_d, | ||
real, dimension(bd%is:bd%ie+1, bd%js:bd%je), intent(inout) | xflux, | ||
real, dimension(bd%is:bd%ie, bd%js:bd%je+1), intent(inout) | yflux, | ||
real, dimension(bd%is:bd%ie+1, bd%jsd:bd%jed), intent(inout) | cx, | ||
real, dimension(bd%isd:bd%ied, bd%js:bd%je+1), intent(inout) | cy, | ||
real, dimension(bd%is:bd%ie+1, bd%jsd:bd%jed), intent(out) | crx_adv, | ||
real, dimension(bd%isd:bd%ied, bd%js:bd%je+1), intent(out) | cry_adv, | ||
real, dimension(bd%is:bd%ie+1, bd%jsd:bd%jed), intent(out) | xfx_adv, | ||
real, dimension(bd%isd:bd%ied, bd%js:bd%je+1), intent(out) | yfx_adv, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | q_con, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in) | z_rat, | ||
real, intent(in) | kgb, | ||
real, dimension(bd%is:bd%ie, bd%js:bd%je), intent(out) | heat_source, | ||
real(kind=8), dimension(bd%is:bd%ie, bd%js:bd%je), intent(inout) | dpx, | ||
real, intent(in) | zvir, | ||
integer, intent(in) | sphum, | ||
integer, intent(in) | nq, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed, km, nq), intent(inout) | q, | ||
integer, intent(in) | k, | ||
integer, intent(in) | km, | ||
logical, intent(in) | inline_q, | ||
real, intent(in) | dt, | ||
integer, intent(in) | hord_tr, | ||
integer, intent(in) | hord_mt, | ||
integer, intent(in) | hord_vt, | ||
integer, intent(in) | hord_tm, | ||
integer, intent(in) | hord_dp, | ||
integer, intent(in) | nord, | ||
integer, intent(in) | nord_v, | ||
integer, intent(in) | nord_w, | ||
integer, intent(in) | nord_t, | ||
real, intent(in) | dddmp, | ||
real, intent(in) | d2_bg, | ||
real, intent(in) | d4_bg, | ||
real, intent(in) | damp_v, | ||
real, intent(in) | damp_w, | ||
real, intent(in) | damp_t, | ||
real, intent(in) | d_con, | ||
logical, intent(in) | hydrostatic, | ||
type(fv_grid_type), intent(in), target | gridstruct, | ||
type(fv_flags_type), intent(in), target | flagstruct, | ||
type(fv_grid_bounds_type), intent(in) | bd, | ||
integer, intent(in) | hord_tr_pert, | ||
integer, intent(in) | hord_mt_pert, | ||
integer, intent(in) | hord_vt_pert, | ||
integer, intent(in) | hord_tm_pert, | ||
integer, intent(in) | hord_dp_pert, | ||
logical, intent(in) | split_damp, | ||
integer, intent(in) | nord_pert, | ||
integer, intent(in) | nord_v_pert, | ||
integer, intent(in) | nord_w_pert, | ||
integer, intent(in) | nord_t_pert, | ||
real, intent(in) | dddmp_pert, | ||
real, intent(in) | d2_bg_pert, | ||
real, intent(in) | d4_bg_pert, | ||
real, intent(in) | damp_v_pert, | ||
real, intent(in) | damp_w_pert, | ||
real, intent(in) | damp_t_pert | ||
) |
subroutine, public sw_core_tlm_mod::d_sw_tlm | ( | real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | delpc, |
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | delpc_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | delp, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | delp_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | ptc, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | ptc_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | pt, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | pt_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(inout) | u, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(inout) | u_tl, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(inout) | v, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(inout) | v_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | w, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | w_tl, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(inout) | uc, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(inout) | uc_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(inout) | vc, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(inout) | vc_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | ua, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | ua_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | va, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | va_tl, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(inout) | divg_d, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(inout) | divg_d_tl, | ||
real, dimension(bd%is:bd%ie+1, bd%js:bd%je), intent(inout) | xflux, | ||
real, dimension(bd%is:bd%ie+1, bd%js:bd%je), intent(inout) | xflux_tl, | ||
real, dimension(bd%is:bd%ie, bd%js:bd%je+1), intent(inout) | yflux, | ||
real, dimension(bd%is:bd%ie, bd%js:bd%je+1), intent(inout) | yflux_tl, | ||
real, dimension(bd%is:bd%ie+1, bd%jsd:bd%jed), intent(inout) | cx, | ||
real, dimension(bd%is:bd%ie+1, bd%jsd:bd%jed), intent(inout) | cx_tl, | ||
real, dimension(bd%isd:bd%ied, bd%js:bd%je+1), intent(inout) | cy, | ||
real, dimension(bd%isd:bd%ied, bd%js:bd%je+1), intent(inout) | cy_tl, | ||
real, dimension(bd%is:bd%ie+1, bd%jsd:bd%jed), intent(out) | crx_adv, | ||
real, dimension(bd%is:bd%ie+1, bd%jsd:bd%jed), intent(out) | crx_adv_tl, | ||
real, dimension(bd%isd:bd%ied, bd%js:bd%je+1), intent(out) | cry_adv, | ||
real, dimension(bd%isd:bd%ied, bd%js:bd%je+1), intent(out) | cry_adv_tl, | ||
real, dimension(bd%is:bd%ie+1, bd%jsd:bd%jed), intent(out) | xfx_adv, | ||
real, dimension(bd%is:bd%ie+1, bd%jsd:bd%jed), intent(out) | xfx_adv_tl, | ||
real, dimension(bd%isd:bd%ied, bd%js:bd%je+1), intent(out) | yfx_adv, | ||
real, dimension(bd%isd:bd%ied, bd%js:bd%je+1), intent(out) | yfx_adv_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | q_con, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in) | z_rat, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in) | z_rat_tl, | ||
real, intent(in) | kgb, | ||
real, dimension(bd%is:bd%ie, bd%js:bd%je), intent(out) | heat_source, | ||
real, dimension(bd%is:bd%ie, bd%js:bd%je), intent(out) | heat_source_tl, | ||
real(kind=8), dimension(bd%is:bd%ie, bd%js:bd%je), intent(inout) | dpx, | ||
real(kind=8), dimension(bd%is:bd%ie, bd%js:bd%je), intent(inout) | dpx_tl, | ||
real, intent(in) | zvir, | ||
integer, intent(in) | sphum, | ||
integer, intent(in) | nq, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed, km, nq), intent(inout) | q, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed, km, nq), intent(inout) | q_tl, | ||
integer, intent(in) | k, | ||
integer, intent(in) | km, | ||
logical, intent(in) | inline_q, | ||
real, intent(in) | dt, | ||
integer, intent(in) | hord_tr, | ||
integer, intent(in) | hord_mt, | ||
integer, intent(in) | hord_vt, | ||
integer, intent(in) | hord_tm, | ||
integer, intent(in) | hord_dp, | ||
integer, intent(in) | nord, | ||
integer, intent(in) | nord_v, | ||
integer, intent(in) | nord_w, | ||
integer, intent(in) | nord_t, | ||
real, intent(in) | dddmp, | ||
real, intent(in) | d2_bg, | ||
real, intent(in) | d4_bg, | ||
real, intent(in) | damp_v, | ||
real, intent(in) | damp_w, | ||
real, intent(in) | damp_t, | ||
real, intent(in) | d_con, | ||
logical, intent(in) | hydrostatic, | ||
type(fv_grid_type), intent(in), target | gridstruct, | ||
type(fv_flags_type), intent(in), target | flagstruct, | ||
type(fv_grid_bounds_type), intent(in) | bd, | ||
integer, intent(in) | hord_tr_pert, | ||
integer, intent(in) | hord_mt_pert, | ||
integer, intent(in) | hord_vt_pert, | ||
integer, intent(in) | hord_tm_pert, | ||
integer, intent(in) | hord_dp_pert, | ||
logical, intent(in) | split_damp, | ||
integer, intent(in) | nord_pert, | ||
integer, intent(in) | nord_v_pert, | ||
integer, intent(in) | nord_w_pert, | ||
integer, intent(in) | nord_t_pert, | ||
real, intent(in) | dddmp_pert, | ||
real, intent(in) | d2_bg_pert, | ||
real, intent(in) | d4_bg_pert, | ||
real, intent(in) | damp_v_pert, | ||
real, intent(in) | damp_w_pert, | ||
real, intent(in) | damp_t_pert | ||
) |
Definition at line 1059 of file sw_core_tlm.F90.
subroutine, public sw_core_tlm_mod::del6_vt_flux | ( | integer, intent(in) | nord, |
integer, intent(in) | npx, | ||
integer, intent(in) | npy, | ||
real, intent(in) | damp, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | q, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | d2, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(out) | fx2, | ||
real, dimension(bd%isd :bd%ied, bd%jsd:bd%jed+1), intent(out) | fy2, | ||
type(fv_grid_type), intent(in), target | gridstruct, | ||
type(fv_grid_bounds_type), intent(in) | bd | ||
) |
subroutine, public sw_core_tlm_mod::del6_vt_flux_tlm | ( | integer, intent(in) | nord, |
integer, intent(in) | npx, | ||
integer, intent(in) | npy, | ||
real, intent(in) | damp, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | q, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | q_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | d2, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out) | d2_tl, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(out) | fx2, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(out) | fx2_tl, | ||
real, dimension(bd%isd :bd%ied, bd%jsd:bd%jed+1), intent(out) | fy2, | ||
real, dimension( bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(out) | fy2_tl, | ||
type(fv_grid_type), intent(in), target | gridstruct, | ||
type(fv_grid_bounds_type), intent(in) | bd | ||
) |
Definition at line 3623 of file sw_core_tlm.F90.
subroutine, public sw_core_tlm_mod::divergence_corner | ( | real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(in) | u, |
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(in) | v, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in) | ua, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in) | va, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(out) | divg_d, | ||
type(fv_grid_type), intent(in), target | gridstruct, | ||
type(fv_flags_type), intent(in), target | flagstruct, | ||
type(fv_grid_bounds_type), intent(in) | bd | ||
) |
subroutine, public sw_core_tlm_mod::divergence_corner_nest | ( | real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(in) | u, |
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(in) | v, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in) | ua, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in) | va, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(out) | divg_d, | ||
type(fv_grid_type), intent(in), target | gridstruct, | ||
type(fv_flags_type), intent(in), target | flagstruct, | ||
type(fv_grid_bounds_type), intent(in) | bd | ||
) |
subroutine, public sw_core_tlm_mod::divergence_corner_nest_tlm | ( | real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(in) | u, |
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(in) | u_tl, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(in) | v, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(in) | v_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in) | ua, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in) | ua_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in) | va, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in) | va_tl, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(out) | divg_d, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(out) | divg_d_tl, | ||
type(fv_grid_type), intent(in), target | gridstruct, | ||
type(fv_flags_type), intent(in), target | flagstruct, | ||
type(fv_grid_bounds_type), intent(in) | bd | ||
) |
subroutine, public sw_core_tlm_mod::divergence_corner_tlm | ( | real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(in) | u, |
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(in) | u_tl, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(in) | v, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(in) | v_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in) | ua, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in) | ua_tl, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in) | va, | ||
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in) | va_tl, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(out) | divg_d, | ||
real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(out) | divg_d_tl, | ||
type(fv_grid_type), intent(in), target | gridstruct, | ||
type(fv_flags_type), intent(in), target | flagstruct, | ||
type(fv_grid_bounds_type), intent(in) | bd | ||
) |
|
private |
Definition at line 6811 of file sw_core_tlm.F90.
|
private |
|
private |
|
private |
Definition at line 6836 of file sw_core_tlm.F90.
subroutine, public sw_core_tlm_mod::fill_4corners | ( | real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | q, |
integer, intent(in) | dir, | ||
type(fv_grid_bounds_type), intent(in) | bd, | ||
integer, intent(in) | npx, | ||
integer, intent(in) | npy, | ||
logical, intent(in) | sw_corner, | ||
logical, intent(in) | se_corner, | ||
logical, intent(in) | ne_corner, | ||
logical, intent(in) | nw_corner | ||
) |
subroutine, public sw_core_tlm_mod::fill_4corners_tlm | ( | real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | q, |
real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout) | q_tl, | ||
integer, intent(in) | dir, | ||
type(fv_grid_bounds_type), intent(in) | bd, | ||
integer, intent(in) | npx, | ||
integer, intent(in) | npy, | ||
logical, intent(in) | sw_corner, | ||
logical, intent(in) | se_corner, | ||
logical, intent(in) | ne_corner, | ||
logical, intent(in) | nw_corner | ||
) |
|
private |
|
private |
Definition at line 8604 of file sw_core_tlm.F90.
|
private |
|
private |
|
private |
|
private |
real, parameter sw_core_tlm_mod::a1 = 0.5625 |
Definition at line 56 of file sw_core_tlm.F90.
real, parameter sw_core_tlm_mod::a2 = -0.0625 |
Definition at line 57 of file sw_core_tlm.F90.
real, parameter sw_core_tlm_mod::b1 = 1./30. |
Definition at line 69 of file sw_core_tlm.F90.
real, parameter sw_core_tlm_mod::b2 = -13./60. |
Definition at line 70 of file sw_core_tlm.F90.
real, parameter sw_core_tlm_mod::b3 = -13./60. |
Definition at line 71 of file sw_core_tlm.F90.
real, parameter sw_core_tlm_mod::b4 = 0.45 |
Definition at line 72 of file sw_core_tlm.F90.
real, parameter sw_core_tlm_mod::b5 = -0.05 |
Definition at line 73 of file sw_core_tlm.F90.
real, parameter sw_core_tlm_mod::big_number = 1.E30 |
Definition at line 46 of file sw_core_tlm.F90.
real, parameter sw_core_tlm_mod::c1 = -2./14. |
Definition at line 60 of file sw_core_tlm.F90.
real, parameter sw_core_tlm_mod::c2 = 11./14. |
Definition at line 61 of file sw_core_tlm.F90.
real, parameter sw_core_tlm_mod::c3 = 5./14. |
Definition at line 62 of file sw_core_tlm.F90.
real, parameter sw_core_tlm_mod::near_zero = 1.E-9 |
Definition at line 42 of file sw_core_tlm.F90.
real, parameter sw_core_tlm_mod::p1 = 7./12. |
Definition at line 51 of file sw_core_tlm.F90.
real, parameter sw_core_tlm_mod::p2 = -1./12. |
Definition at line 52 of file sw_core_tlm.F90.
real, parameter sw_core_tlm_mod::r3 = 1./3. |
Definition at line 39 of file sw_core_tlm.F90.
real, parameter sw_core_tlm_mod::s11 =11./14. |
Definition at line 41 of file sw_core_tlm.F90.
real, parameter sw_core_tlm_mod::s13 =-13./14. |
Definition at line 41 of file sw_core_tlm.F90.
real, parameter sw_core_tlm_mod::s14 =4./7. |
Definition at line 41 of file sw_core_tlm.F90.
real, parameter sw_core_tlm_mod::s15 =3./14. |
Definition at line 41 of file sw_core_tlm.F90.
real, parameter sw_core_tlm_mod::t11 =27./28. |
Definition at line 40 of file sw_core_tlm.F90.
real, parameter sw_core_tlm_mod::t12 =-13./28. |
Definition at line 40 of file sw_core_tlm.F90.
real, parameter sw_core_tlm_mod::t13 =3./7. |
Definition at line 40 of file sw_core_tlm.F90.
real, parameter sw_core_tlm_mod::t14 =6./7. |
Definition at line 40 of file sw_core_tlm.F90.
real, parameter sw_core_tlm_mod::t15 =3./28. |
Definition at line 40 of file sw_core_tlm.F90.