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)

Modules

Functions/Subroutines

Variables