FV3 Bundle
fv_mapz_adm.F90 File Reference

Go to the source code of this file.

Modules

module  fv_mapz_adm_mod
 

Functions/Subroutines

subroutine, public fv_mapz_adm_mod::lagrangian_to_eulerian_fwd (last_step, consv, ps, pe, delp, pkz, pk, mdt, pdt, km, is, ie, js, je, isd, ied, jsd, jed, nq, nwat, sphum, q_con, u, v, w, delz, pt, q, hs, r_vir, cp, akap, cappa, kord_mt, kord_wz, kord_tr, kord_tm, peln, te0_2d, ng, ua, va, omga, te, ws, fill, reproduce_sum, out_dt, dtdt, ptop, ak, bk, pfull, flagstruct, gridstruct, domain, do_sat_adj, hydrostatic, hybrid_z, do_omega, adiabatic, do_adiabatic_init, mfx, mfy, remap_option, kord_mt_pert, kord_wz_pert, kord_tr_pert, kord_tm_pert)
 
subroutine, public fv_mapz_adm_mod::lagrangian_to_eulerian_bwd (last_step, consv, ps, ps_ad, pe, pe_ad, delp, delp_ad, pkz, pkz_ad, pk, pk_ad, mdt, pdt, km, is, ie, js, je, isd, ied, jsd, jed, nq, nwat, sphum, q_con, u, u_ad, v, v_ad, w, w_ad, delz, delz_ad, pt, pt_ad, q, q_ad, hs, r_vir, cp, akap, cappa, kord_mt, kord_wz, kord_tr, kord_tm, peln, peln_ad, te0_2d, te0_2d_ad, ng, ua, ua_ad, va, omga, omga_ad, te, te_ad, ws, ws_ad, fill, reproduce_sum, out_dt, dtdt, ptop, ak, bk, pfull, flagstruct, gridstruct, domain, do_sat_adj, hydrostatic, hybrid_z, do_omega, adiabatic, do_adiabatic_init, mfx, mfy, remap_option, kord_mt_pert, kord_wz_pert, kord_tr_pert, kord_tm_pert)
 
subroutine, public fv_mapz_adm_mod::lagrangian_to_eulerian (last_step, consv, ps, pe, delp, pkz, pk, mdt, pdt, km, is, ie, js, je, isd, ied, jsd, jed, nq, nwat, sphum, q_con, u, v, w, delz, pt, q, hs, r_vir, cp, akap, cappa, kord_mt, kord_wz, kord_tr, kord_tm, peln, te0_2d, ng, ua, va, omga, te, ws, fill, reproduce_sum, out_dt, dtdt, ptop, ak, bk, pfull, flagstruct, gridstruct, domain, do_sat_adj, hydrostatic, hybrid_z, do_omega, adiabatic, do_adiabatic_init, mfx, mfy, remap_option, kord_mt_pert, kord_wz_pert, kord_tr_pert, kord_tm_pert)
 
subroutine, public fv_mapz_adm_mod::compute_total_energy_fwd (is, ie, js, je, isd, ied, jsd, jed, km, u, v, w, delz, pt, delp, q, qc, pe, peln, hs, rsin2_l, cosa_s_l, r_vir, cp, rg, hlv, te_2d, ua, va, teq, moist_phys, nwat, sphum, liq_wat, rainwat, ice_wat, snowwat, graupel, hydrostatic, id_te)
 
subroutine, public fv_mapz_adm_mod::compute_total_energy_bwd (is, ie, js, je, isd, ied, jsd, jed, km, u, u_ad, v, v_ad, w, w_ad, delz, delz_ad, pt, pt_ad, delp, delp_ad, q, q_ad, qc, qc_ad, pe, pe_ad, peln, peln_ad, hs, rsin2_l, cosa_s_l, r_vir, cp, rg, hlv, te_2d, te_2d_ad, ua, va, teq, teq_ad, moist_phys, nwat, sphum, liq_wat, rainwat, ice_wat, snowwat, graupel, hydrostatic, id_te)
 
subroutine, public fv_mapz_adm_mod::compute_total_energy (is, ie, js, je, isd, ied, jsd, jed, km, u, v, w, delz, pt, delp, q, qc, pe, peln, hs, rsin2_l, cosa_s_l, r_vir, cp, rg, hlv, te_2d, ua, va, teq, moist_phys, nwat, sphum, liq_wat, rainwat, ice_wat, snowwat, graupel, hydrostatic, id_te)
 
subroutine fv_mapz_adm_mod::pkez_fwd (km, ifirst, ilast, jfirst, jlast, j, pe, pk, akap, peln, pkz, ptop)
 
subroutine fv_mapz_adm_mod::pkez_bwd (km, ifirst, ilast, jfirst, jlast, j, pe, pk, pk_ad, akap, peln, peln_ad, pkz, pkz_ad, ptop)
 
subroutine fv_mapz_adm_mod::pkez (km, ifirst, ilast, jfirst, jlast, j, pe, pk, akap, peln, pkz, ptop)
 
subroutine fv_mapz_adm_mod::remap_z (km, pe1, q1, kn, pe2, q2, i1, i2, iv, kord)
 
subroutine fv_mapz_adm_mod::map_scalar_adm (km, pe1, pe1_ad, qs, kn, pe2, pe2_ad, q2, q2_ad, i1, i2, j, ibeg, iend, jbeg, jend, iv, kord, q_min)
 
subroutine fv_mapz_adm_mod::map_scalar (km, pe1, qs, kn, pe2, q2, i1, i2, j, ibeg, iend, jbeg, jend, iv, kord, q_min)
 
subroutine fv_mapz_adm_mod::map1_ppm_adm (km, pe1, pe1_ad, qs, qs_ad, kn, pe2, pe2_ad, q2, q2_ad, i1, i2, j, ibeg, iend, jbeg, jend, iv, kord)
 
subroutine fv_mapz_adm_mod::map1_ppm (km, pe1, qs, kn, pe2, q2, i1, i2, j, ibeg, iend, jbeg, jend, iv, kord)
 
subroutine fv_mapz_adm_mod::mapn_tracer_adm (nq, km, pe1, pe1_ad, pe2, pe2_ad, q1, q1_ad, dp2, dp2_ad, kord, j, i1, i2, isd, ied, jsd, jed, q_min, fill)
 
subroutine fv_mapz_adm_mod::mapn_tracer (nq, km, pe1, pe2, q1, dp2, kord, j, i1, i2, isd, ied, jsd, jed, q_min, fill)
 
subroutine fv_mapz_adm_mod::map1_q2_adm (km, pe1, pe1_ad, q1, q1_ad, kn, pe2, pe2_ad, q2, q2_ad, dp2, dp2_ad, i1, i2, iv, kord, j, ibeg, iend, jbeg, jend, q_min)
 
subroutine, public fv_mapz_adm_mod::map1_q2 (km, pe1, q1, kn, pe2, q2, dp2, i1, i2, iv, kord, j, ibeg, iend, jbeg, jend, q_min)
 
subroutine fv_mapz_adm_mod::scalar_profile_adm (qs, a4, a4_ad, delp, delp_ad, km, i1, i2, iv, kord, qmin)
 
subroutine fv_mapz_adm_mod::scalar_profile (qs, a4, delp, km, i1, i2, iv, kord, qmin)
 
subroutine fv_mapz_adm_mod::cs_profile_adm (qs, qs_ad, a4, a4_ad, delp, delp_ad, km, i1, i2, iv, kord)
 
subroutine fv_mapz_adm_mod::cs_profile (qs, a4, delp, km, i1, i2, iv, kord)
 
subroutine fv_mapz_adm_mod::cs_limiters_fwd (im, extm, a4, iv)
 
subroutine fv_mapz_adm_mod::cs_limiters_bwd (im, extm, a4, a4_ad, iv)
 
subroutine fv_mapz_adm_mod::cs_limiters (im, extm, a4, iv)
 
subroutine fv_mapz_adm_mod::ppm_profile_fwd (a4, delp, km, i1, i2, iv, kord)
 
subroutine fv_mapz_adm_mod::ppm_profile_bwd (a4, a4_ad, delp, delp_ad, km, i1, i2, iv, kord)
 
subroutine fv_mapz_adm_mod::ppm_limiters_fwd (dm, a4, itot, lmt)
 
subroutine fv_mapz_adm_mod::ppm_limiters_bwd (dm, dm_ad, a4, a4_ad, itot, lmt)
 
subroutine fv_mapz_adm_mod::steepz (i1, i2, km, a4, df2, dm, dq, dp, d4)
 
subroutine, public fv_mapz_adm_mod::rst_remap (km, kn, is, ie, js, je, isd, ied, jsd, jed, nq, ntp, delp_r, u_r, v_r, w_r, delz_r, pt_r, q_r, qdiag_r, delp, u, v, w, delz, pt, q, qdiag, ak_r, bk_r, ptop, ak, bk, hydrostatic, make_nh, domain, square_domain)
 
subroutine fv_mapz_adm_mod::remap_2d (km, pe1, q1, kn, pe2, q2, i1, i2, iv, kord)
 
subroutine, public fv_mapz_adm_mod::mappm (km, pe1, q1, kn, pe2, q2, i1, i2, iv, kord, ptop)
 
subroutine fv_mapz_adm_mod::ppm_profile (a4, delp, km, i1, i2, iv, kord)
 
subroutine fv_mapz_adm_mod::ppm_limiters (dm, a4, itot, lmt)
 
subroutine, public fv_mapz_adm_mod::moist_cv (is, ie, isd, ied, jsd, jed, km, j, k, nwat, sphum, liq_wat, rainwat, ice_wat, snowwat, graupel, q, qd, cvm, t1)
 
subroutine, public fv_mapz_adm_mod::moist_cp (is, ie, isd, ied, jsd, jed, km, j, k, nwat, sphum, liq_wat, rainwat, ice_wat, snowwat, graupel, q, qd, cpm, t1)
 
subroutine fv_mapz_adm_mod::map1_cubic_fwd (km, pe1, kn, pe2, q2, i1, i2, j, ibeg, iend, jbeg, jend, akap, t_var, conserv)
 
subroutine fv_mapz_adm_mod::map1_cubic_bwd (km, pe1, pe1_ad, kn, pe2, pe2_ad, q2, q2_ad, i1, i2, j, ibeg, iend, jbeg, jend, akap, t_var, conserv)
 
subroutine fv_mapz_adm_mod::map1_cubic (km, pe1, kn, pe2, q2, i1, i2, j, ibeg, iend, jbeg, jend, akap, t_var, conserv)
 
subroutine fv_mapz_adm_mod::map_scalar_fwd (km, pe1, qs, kn, pe2, q2, i1, i2, j, ibeg, iend, jbeg, jend, iv, kord, q_min)
 
subroutine fv_mapz_adm_mod::map_scalar_bwd (km, pe1, pe1_ad, qs, kn, pe2, pe2_ad, q2, q2_ad, i1, i2, j, ibeg, iend, jbeg, jend, iv, kord, q_min)
 
subroutine fv_mapz_adm_mod::map1_ppm_fwd (km, pe1, qs, kn, pe2, q2, i1, i2, j, ibeg, iend, jbeg, jend, iv, kord)
 
subroutine fv_mapz_adm_mod::map1_ppm_bwd (km, pe1, pe1_ad, qs, qs_ad, kn, pe2, pe2_ad, q2, q2_ad, i1, i2, j, ibeg, iend, jbeg, jend, iv, kord)
 
subroutine fv_mapz_adm_mod::mapn_tracer_fwd (nq, km, pe1, pe2, q1, dp2, kord, j, i1, i2, isd, ied, jsd, jed, q_min, fill)
 
subroutine fv_mapz_adm_mod::mapn_tracer_bwd (nq, km, pe1, pe1_ad, pe2, pe2_ad, q1, q1_ad, dp2, dp2_ad, kord, j, i1, i2, isd, ied, jsd, jed, q_min, fill)
 
subroutine, public fv_mapz_adm_mod::map1_q2_fwd (km, pe1, q1, kn, pe2, q2, dp2, i1, i2, iv, kord, j, ibeg, iend, jbeg, jend, q_min)
 
subroutine, public fv_mapz_adm_mod::map1_q2_bwd (km, pe1, pe1_ad, q1, q1_ad, kn, pe2, pe2_ad, q2, q2_ad, dp2, dp2_ad, i1, i2, iv, kord, j, ibeg, iend, jbeg, jend, q_min)
 
subroutine fv_mapz_adm_mod::scalar_profile_fwd (qs, a4, delp, km, i1, i2, iv, kord, qmin)
 
subroutine fv_mapz_adm_mod::scalar_profile_bwd (qs, a4, a4_ad, delp, delp_ad, km, i1, i2, iv, kord, qmin)
 
subroutine fv_mapz_adm_mod::cs_profile_fwd (qs, a4, delp, km, i1, i2, iv, kord)
 
subroutine fv_mapz_adm_mod::cs_profile_bwd (qs, qs_ad, a4, a4_ad, delp, delp_ad, km, i1, i2, iv, kord)
 

Variables

real, parameter fv_mapz_adm_mod::consv_min = 0.001
 
real, parameter fv_mapz_adm_mod::t_min = 184.
 
real, parameter fv_mapz_adm_mod::r2 =1./2.
 
real, parameter fv_mapz_adm_mod::r0 =0.0
 
real, parameter fv_mapz_adm_mod::r3 = 1./3.
 
real, parameter fv_mapz_adm_mod::r23 = 2./3.
 
real, parameter fv_mapz_adm_mod::r12 = 1./12.
 
real, parameter fv_mapz_adm_mod::cv_vap = 3.*rvgas
 
real, parameter fv_mapz_adm_mod::cv_air = cp_air - rdgas
 
real, parameter fv_mapz_adm_mod::c_ice = 1972.
 
real, parameter fv_mapz_adm_mod::c_liq = 4.1855e+3
 
real, parameter fv_mapz_adm_mod::cp_vap = cp_vapor
 
real, parameter fv_mapz_adm_mod::tice = 273.16
 
real, public fv_mapz_adm_mod::e_flux = 0.