FV3 Bundle
gw_drag_d.F90 File Reference

Go to the source code of this file.

Modules

module  gw_drag_d
 

Functions/Subroutines

subroutine, public gw_drag_d::gw_main_d (pcols, pver, dt, pgwv, effgworo_dev, effgwbkg_dev, pint_dev, t_dev, u_dev, u_devd, v_dev, v_devd, sgh_dev, pref_dev, pmid_dev, pdel_dev, rpdel_dev, lnpint_dev, zm_dev, qvt_dev, rog, mapl_vireps_, rlat_dev)
 
subroutine gw_drag_d::gw_intr_d (i, pcols, pver, dt, pgwv, effgworo_dev, effgwbkg_dev, pint_dev, t_dev, u_dev, u_devd, v_dev, v_devd, sgh_dev, pref_dev, pmid_dev, pdel_dev, rpdel_dev, lnpint_dev, zm_dev, rlat_dev, dudt_gwd_dev, dudt_gwd_devd, dvdt_gwd_dev, dvdt_gwd_devd, dtdt_gwd_dev, dudt_org_dev, dvdt_org_dev, dtdt_org_dev, taugwdx_dev, taugwdy_dev, tauox_dev, tauoy_dev, feo_dev, taubkgx_dev, taubkgy_dev, taubx_dev, tauby_dev, feb_dev, fepo_dev, fepb_dev, utbsrc_dev, vtbsrc_dev, ttbsrc_dev)
 
subroutine gw_drag_d::gw_intr (i, pcols, pver, dt, pgwv, effgworo_dev, effgwbkg_dev, pint_dev, t_dev, u_dev, v_dev, sgh_dev, pref_dev, pmid_dev, pdel_dev, rpdel_dev, lnpint_dev, zm_dev, rlat_dev, dudt_gwd_dev, dvdt_gwd_dev, dtdt_gwd_dev, dudt_org_dev, dvdt_org_dev, dtdt_org_dev, taugwdx_dev, taugwdy_dev, tauox_dev, tauoy_dev, feo_dev, taubkgx_dev, taubkgy_dev, taubx_dev, tauby_dev, feb_dev, fepo_dev, fepb_dev, utbsrc_dev, vtbsrc_dev, ttbsrc_dev)
 
subroutine gw_drag_d::gw_prof (i, k, pcols, pver, u, v, t, pm, pi, rhoi, ni, ti, nm)
 
subroutine gw_drag_d::gw_oro_d (i, pcols, pver, pgwv, u, ud, v, vd, t, sgh, pm, pi, dpm, zm, nm, kldv, kldvmn, ksrc, ksrcmn, rdpldv, tau, taud, ubi, ubid, ubm, ubmd, xv, xvd, yv, yvd, kbot, rlat)
 
subroutine gw_drag_d::gw_oro (i, pcols, pver, pgwv, u, v, t, sgh, pm, pi, dpm, zm, nm, kldv, kldvmn, ksrc, ksrcmn, rdpldv, tau, ubi, ubm, xv, yv, kbot, rlat)
 
subroutine gw_drag_d::gw_bgnd_d (i, pcols, pver, c, u, ud, v, vd, t, pm, pi, dpm, rdpm, piln, rlat, kldv, kldvmn, ksrc, ksrcmn, rdpldv, tau, ubi, ubid, ubm, ubmd, xv, xvd, yv, yvd, ngwv, kbot)
 
subroutine gw_drag_d::gw_bgnd (i, pcols, pver, c, u, v, t, pm, pi, dpm, rdpm, piln, rlat, kldv, kldvmn, ksrc, ksrcmn, rdpldv, tau, ubi, ubm, xv, yv, ngwv, kbot)
 
subroutine gw_drag_d::gw_drag_prof_d (i, pcols, pver, pgwv, ngwv, kbot, ktop, c, u, v, t, pi, dpm, rdpm, piln, rlat, rhoi, ni, ti, nm, dt, alpha, dback, kldv, kldvmn, ksrc, ksrcmn, rdpldv, tau, taud, ubi, ubid, ubm, xv, xvd, yv, yvd, ut, utd, vt, vtd, tt, taugwx, taugwy, fegw, fepgw, dusrc, dvsrc, dtsrc, tau0x, tau0y, effgw)
 
subroutine gw_drag_d::gw_drag_prof (i, pcols, pver, pgwv, ngwv, kbot, ktop, c, u, v, t, pi, dpm, rdpm, piln, rlat, rhoi, ni, ti, nm, dt, alpha, dback, kldv, kldvmn, ksrc, ksrcmn, rdpldv, tau, ubi, ubm, xv, yv, ut, vt, tt, taugwx, taugwy, fegw, fepgw, dusrc, dvsrc, dtsrc, tau0x, tau0y, effgw)
 
subroutine gw_drag_d::gw_drag_prof_bgnd_d (i, pcols, pver, pgwv, ngwv, kbot, ktop, c, u, v, t, pi, dpm, rdpm, piln, rlat, rhoi, ni, ti, nm, dt, alpha, dback, kldv, kldvmn, ksrc, ksrcmn, rdpldv, tau, taud, ubi, ubid, ubm, xv, xvd, yv, yvd, ut, utd, vt, vtd, tt, taugwx, taugwy, fegw, fepgw, dusrc, dusrcd, dvsrc, dvsrcd, dtsrc, tau0x, tau0y, effgw)
 
subroutine gw_drag_d::gw_drag_prof_bgnd (i, pcols, pver, pgwv, ngwv, kbot, ktop, c, u, v, t, pi, dpm, rdpm, piln, rlat, rhoi, ni, ti, nm, dt, alpha, dback, kldv, kldvmn, ksrc, ksrcmn, rdpldv, tau, ubi, ubm, xv, yv, ut, vt, tt, taugwx, taugwy, fegw, fepgw, dusrc, dvsrc, dtsrc, tau0x, tau0y, effgw)
 
subroutine gw_drag_d::get_uv_d (uv_out, uv_outd, uv_in, uv_ind)
 
subroutine gw_drag_d::get_uv (uv_out, uv_in)
 
subroutine gw_drag_d::get_effkwvmap_1 (effkwvmap_, rlat_)
 
subroutine gw_drag_d::get_effkwvmap_2 (effkwvmap_, rlat_, zfac)
 
subroutine gw_drag_d::get_effkwvmap_3 (effkwvmap_, rlat_, zfac)
 
subroutine gw_drag_d::get_cmu (cmu_, cmu)
 
subroutine gw_drag_d::get_ti (t_out, t_in)
 

Variables

real, parameter, public gw_drag_d::kwvb =6.28e-5
 
real, parameter, public gw_drag_d::kwvbeq =6.28e-5/7.
 
real, parameter, public gw_drag_d::kwvo =6.28e-5
 
real, parameter, public gw_drag_d::fracldv =0.0
 
real, parameter, public gw_drag_d::mxasym =0.1
 
real, parameter, public gw_drag_d::mxrange =0.001
 
real, parameter, public gw_drag_d::n2min =1.e-8
 
real, parameter, public gw_drag_d::fcrit2 =0.5
 
real, parameter, public gw_drag_d::orohmin =10.
 
real, parameter, public gw_drag_d::orovmin =2.0
 
real, parameter, public gw_drag_d::taubgnd =6.4
 
real, parameter, public gw_drag_d::taumin =1.e-10
 
real, parameter, public gw_drag_d::tauscal =0.001
 
real, parameter, public gw_drag_d::tndmax =500./86400.
 
real, parameter, public gw_drag_d::umcfac =0.5
 
real, parameter, public gw_drag_d::ubmc2mn =0.1
 
real, parameter, public gw_drag_d::zldvcon =10.
 
real, parameter, public gw_drag_d::rog =mapl_rgas/mapl_grav
 
real, parameter, public gw_drag_d::oroko2 =0.5*kwvo
 
real, parameter, public gw_drag_d::pi_gwd =4.0*atan(1.0)