gw_drag_b.F90 File Reference

Go to the source code of this file.

Modules
module	gw_drag_b

Functions/Subroutines
subroutine, public	gw_drag_b::gw_main_b (pcols, pver, dt, pgwv, effgworo_dev, effgwbkg_dev, pint_dev, t_dev, u_dev, u_devb, v_dev, v_devb, sgh_dev, pref_dev, pmid_dev, pdel_dev, rpdel_dev, lnpint_dev, zm_dev, qvt_dev, rog, mapl_vireps_, rlat_dev)
subroutine	gw_drag_b::gw_intr_fwd (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_b::gw_intr_bwd (i, pcols, pver, dt, pgwv, effgworo_dev, effgwbkg_dev, pint_dev, t_dev, u_dev, u_devb, v_dev, v_devb, sgh_dev, pref_dev, pmid_dev, pdel_dev, rpdel_dev, lnpint_dev, zm_dev, rlat_dev, dudt_gwd_dev, dudt_gwd_devb, dvdt_gwd_dev, dvdt_gwd_devb, 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_b::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_b::gw_prof (i, k, pcols, pver, u, v, t, pm, pi, rhoi, ni, ti, nm)
subroutine	gw_drag_b::gw_oro_fwd (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_b::gw_oro_bwd (i, pcols, pver, pgwv, u, ub, v, vb, t, sgh, pm, pi, dpm, zm, nm, kldv, kldvmn, ksrc, ksrcmn, rdpldv, tau, taub, ubi, ubib, ubm, ubmb, xv, xvb, yv, yvb, kbot, rlat)
subroutine	gw_drag_b::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_b::gw_bgnd_fwd (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_b::gw_bgnd_bwd (i, pcols, pver, c, u, ub, v, vb, t, pm, pi, dpm, rdpm, piln, rlat, kldv, kldvmn, ksrc, ksrcmn, rdpldv, tau, ubi, ubib, ubm, ubmb, xv, xvb, yv, yvb, ngwv, kbot)
subroutine	gw_drag_b::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_b::gw_drag_prof_fwd (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_b::gw_drag_prof_bwd (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, taub, ubi, ubib, ubm, xv, xvb, yv, yvb, ut, utb, vt, vtb, tt, taugwx, taugwy, fegw, fepgw, dusrc, dvsrc, dtsrc, tau0x, tau0y, effgw)
subroutine	gw_drag_b::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_b::gw_drag_prof_bgnd_b (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, taub, ubi, ubib, ubm, xv, xvb, yv, yvb, ut, utb, vt, vtb, tt, taugwx, taugwy, fegw, fepgw, dusrc, dusrcb, dvsrc, dvsrcb, dtsrc, tau0x, tau0y, effgw)
subroutine	gw_drag_b::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_b::get_uv_b (uv_out, uv_outb, uv_in, uv_inb)
subroutine	gw_drag_b::get_uv (uv_out, uv_in)
subroutine	gw_drag_b::get_effkwvmap_1 (effkwvmap_, rlat_)
subroutine	gw_drag_b::get_effkwvmap_2 (effkwvmap_, rlat_, zfac)
subroutine	gw_drag_b::get_effkwvmap_3 (effkwvmap_, rlat_, zfac)
subroutine	gw_drag_b::get_cmu (cmu_, cmu)
subroutine	gw_drag_b::get_ti (t_out, t_in)

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