gw_drag_b Module Reference

Functions/Subroutines
subroutine, public	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_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_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_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_prof (i, k, pcols, pver, u, v, t, pm, pi, rhoi, ni, ti, nm)
subroutine	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_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_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_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_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_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_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_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_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_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_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	get_uv_b (uv_out, uv_outb, uv_in, uv_inb)
subroutine	get_uv (uv_out, uv_in)
subroutine	get_effkwvmap_1 (effkwvmap_, rlat_)
subroutine	get_effkwvmap_2 (effkwvmap_, rlat_, zfac)
subroutine	get_effkwvmap_3 (effkwvmap_, rlat_, zfac)
subroutine	get_cmu (cmu_, cmu)
subroutine	get_ti (t_out, t_in)

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

Function/Subroutine Documentation

get_cmu()

subroutine gw_drag_b::get_cmu ( real  cmu_, real  cmu  )

private

Definition at line 4222 of file gw_drag_b.F90.

Here is the caller graph for this function:

get_effkwvmap_1()

subroutine gw_drag_b::get_effkwvmap_1 ( real  effkwvmap_, real  rlat_  )

private

Definition at line 4186 of file gw_drag_b.F90.

Here is the caller graph for this function:

get_effkwvmap_2()

subroutine gw_drag_b::get_effkwvmap_2 ( real  effkwvmap_, real  rlat_, real  zfac  )

private

Definition at line 4196 of file gw_drag_b.F90.

Here is the caller graph for this function:

get_effkwvmap_3()

subroutine gw_drag_b::get_effkwvmap_3 ( real  effkwvmap_, real  rlat_, real  zfac  )

private

Definition at line 4209 of file gw_drag_b.F90.

Here is the caller graph for this function:

get_ti()

subroutine gw_drag_b::get_ti ( real  t_out, real  t_in  )

private

Definition at line 4228 of file gw_drag_b.F90.

Here is the caller graph for this function:

get_uv()

subroutine gw_drag_b::get_uv ( real  uv_out, real  uv_in  )

private

Definition at line 4176 of file gw_drag_b.F90.

Here is the caller graph for this function:

get_uv_b()

subroutine gw_drag_b::get_uv_b ( real  uv_out, real  uv_outb, real  uv_in, real  uv_inb  )

private

Definition at line 4165 of file gw_drag_b.F90.

Here is the caller graph for this function:

gw_bgnd()

subroutine gw_drag_b::gw_bgnd ( integer  i, integer  pcols, integer  pver, real, dimension(-ngwv:ngwv)  c, real, dimension(pcols, pver)  u, real, dimension(pcols, pver)  v, real, dimension(pcols, pver)  t, real, dimension(pcols, pver)  pm, real, dimension(pcols, 0:pver)  pi, real, dimension(pcols, pver)  dpm, real, dimension(pcols, pver)  rdpm, real, dimension(pcols, 0:pver)  piln, real, dimension(pcols)  rlat, integer  kldv, integer  kldvmn, integer  ksrc, integer  ksrcmn, real  rdpldv, real, dimension(-ngwv:ngwv, 0:pver)  tau, real, dimension(0:pver)  ubi, real, dimension(pver)  ubm, real  xv, real  yv, integer  ngwv, integer  kbot  )

private

Definition at line 1955 of file gw_drag_b.F90.

Here is the caller graph for this function:

gw_bgnd_bwd()

subroutine gw_drag_b::gw_bgnd_bwd ( integer  i, integer  pcols, integer  pver, real, dimension(-ngwv:ngwv)  c, real, dimension(pcols, pver)  u, real, dimension(pcols, pver)  ub, real, dimension(pcols, pver)  v, real, dimension(pcols, pver)  vb, real, dimension(pcols, pver)  t, real, dimension(pcols, pver)  pm, real, dimension(pcols, 0:pver)  pi, real, dimension(pcols, pver)  dpm, real, dimension(pcols, pver)  rdpm, real, dimension(pcols, 0:pver)  piln, real, dimension(pcols)  rlat, integer  kldv, integer  kldvmn, integer  ksrc, integer  ksrcmn, real  rdpldv, real, dimension(-ngwv:ngwv, 0:pver)  tau, real, dimension(0:pver)  ubi, real, dimension(0:pver)  ubib, real, dimension(pver)  ubm, real, dimension(pver)  ubmb, real  xv, real  xvb, real  yv, real  yvb, integer  ngwv, integer  kbot  )

private

Definition at line 1847 of file gw_drag_b.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

gw_bgnd_fwd()

subroutine gw_drag_b::gw_bgnd_fwd ( integer  i, integer  pcols, integer  pver, real, dimension(-ngwv:ngwv)  c, real, dimension(pcols, pver)  u, real, dimension(pcols, pver)  v, real, dimension(pcols, pver)  t, real, dimension(pcols, pver)  pm, real, dimension(pcols, 0:pver)  pi, real, dimension(pcols, pver)  dpm, real, dimension(pcols, pver)  rdpm, real, dimension(pcols, 0:pver)  piln, real, dimension(pcols)  rlat, integer  kldv, integer  kldvmn, integer  ksrc, integer  ksrcmn, real  rdpldv, real, dimension(-ngwv:ngwv, 0:pver)  tau, real, dimension(0:pver)  ubi, real, dimension(pver)  ubm, real  xv, real  yv, integer  ngwv, integer  kbot  )

private

Definition at line 1642 of file gw_drag_b.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

gw_drag_prof()

subroutine gw_drag_b::gw_drag_prof ( integer, intent(in)  i, integer, intent(in)  pcols, integer, intent(in)  pver, integer, intent(in)  pgwv, integer, intent(in)  ngwv, integer, intent(in)  kbot, integer, intent(in)  ktop, real, dimension(-pgwv:pgwv)  c, real, dimension(pcols, pver)  u, real, dimension(pcols, pver)  v, real, dimension(pcols, pver)  t, real, dimension(pcols, 0:pver)  pi, real, dimension(pcols, pver)  dpm, real, dimension(pcols, pver)  rdpm, real, dimension(pcols, 0:pver)  piln, real, dimension(pcols)  rlat, real, dimension(0:pver)  rhoi, real, dimension(0:pver)  ni, real, dimension(0:pver)  ti, real, dimension(pver)  nm, real  dt, real, dimension(0:pver)  alpha, real, dimension(0:pver)  dback, integer, intent(in)  kldv, integer, intent(in)  kldvmn, integer, intent(in)  ksrc, integer, intent(in)  ksrcmn, real  rdpldv, real, dimension(-pgwv:pgwv, 0:pver)  tau, real, dimension(0:pver)  ubi, real, dimension(pver)  ubm, real  xv, real  yv, real, dimension(pver)  ut, real, dimension(pver)  vt, real, dimension(pver)  tt, real, dimension(pcols, 0:pver)  taugwx, real, dimension(pcols, 0:pver)  taugwy, real, dimension(pcols, 0:pver)  fegw, real, dimension(pcols, 0:pver)  fepgw, real, dimension(pver)  dusrc, real, dimension(pver)  dvsrc, real, dimension(pver)  dtsrc, real  tau0x, real  tau0y, real, dimension(pcols)  effgw  )

private

Definition at line 2795 of file gw_drag_b.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

gw_drag_prof_bgnd()

subroutine gw_drag_b::gw_drag_prof_bgnd ( integer, intent(in)  i, integer, intent(in)  pcols, integer, intent(in)  pver, integer, intent(in)  pgwv, integer, intent(in)  ngwv, integer, intent(in)  kbot, integer, intent(in)  ktop, real, dimension(-pgwv:pgwv)  c, real, dimension(pcols, pver)  u, real, dimension(pcols, pver)  v, real, dimension(pcols, pver)  t, real, dimension(pcols, 0:pver)  pi, real, dimension(pcols, pver)  dpm, real, dimension(pcols, pver)  rdpm, real, dimension(pcols, 0:pver)  piln, real, dimension(pcols)  rlat, real, dimension(0:pver)  rhoi, real, dimension(0:pver)  ni, real, dimension(0:pver)  ti, real, dimension(pver)  nm, real  dt, real, dimension(0:pver)  alpha, real, dimension(0:pver)  dback, integer, intent(in)  kldv, integer, intent(in)  kldvmn, integer, intent(in)  ksrc, integer, intent(in)  ksrcmn, real  rdpldv, real, dimension(-pgwv:pgwv, 0:pver)  tau, real, dimension(0:pver)  ubi, real, dimension(pver)  ubm, real  xv, real  yv, real, dimension(pver)  ut, real, dimension(pver)  vt, real, dimension(pver)  tt, real, dimension(pcols, 0:pver)  taugwx, real, dimension(pcols, 0:pver)  taugwy, real, dimension(pcols, 0:pver)  fegw, real, dimension(pcols, 0:pver)  fepgw, real, dimension(pver)  dusrc, real, dimension(pver)  dvsrc, real, dimension(pver)  dtsrc, real  tau0x, real  tau0y, real, dimension(pcols)  effgw  )

private

Definition at line 3794 of file gw_drag_b.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

gw_drag_prof_bgnd_b()

subroutine gw_drag_b::gw_drag_prof_bgnd_b ( integer, intent(in)  i, integer, intent(in)  pcols, integer, intent(in)  pver, integer, intent(in)  pgwv, integer, intent(in)  ngwv, integer, intent(in)  kbot, integer, intent(in)  ktop, real, dimension(-pgwv:pgwv)  c, real, dimension(pcols, pver)  u, real, dimension(pcols, pver)  v, real, dimension(pcols, pver)  t, real, dimension(pcols, 0:pver)  pi, real, dimension(pcols, pver)  dpm, real, dimension(pcols, pver)  rdpm, real, dimension(pcols, 0:pver)  piln, real, dimension(pcols)  rlat, real, dimension(0:pver)  rhoi, real, dimension(0:pver)  ni, real, dimension(0:pver)  ti, real, dimension(pver)  nm, real  dt, real, dimension(0:pver)  alpha, real, dimension(0:pver)  dback, integer, intent(in)  kldv, integer, intent(in)  kldvmn, integer, intent(in)  ksrc, integer, intent(in)  ksrcmn, real  rdpldv, real, dimension(-pgwv:pgwv, 0:pver)  tau, real, dimension(-pgwv:pgwv, 0:pver)  taub, real, dimension(0:pver)  ubi, real, dimension(0:pver)  ubib, real, dimension(pver)  ubm, real  xv, real  xvb, real  yv, real  yvb, real, dimension(pver)  ut, real, dimension(pver)  utb, real, dimension(pver)  vt, real, dimension(pver)  vtb, real, dimension(pver)  tt, real, dimension(pcols, 0:pver)  taugwx, real, dimension(pcols, 0:pver)  taugwy, real, dimension(pcols, 0:pver)  fegw, real, dimension(pcols, 0:pver)  fepgw, real, dimension(pver)  dusrc, real, dimension(pver)  dusrcb, real, dimension(pver)  dvsrc, real, dimension(pver)  dvsrcb, real, dimension(pver)  dtsrc, real  tau0x, real  tau0y, real, dimension(pcols)  effgw  )

private

Definition at line 3172 of file gw_drag_b.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

gw_drag_prof_bwd()

subroutine gw_drag_b::gw_drag_prof_bwd ( integer, intent(in)  i, integer, intent(in)  pcols, integer, intent(in)  pver, integer, intent(in)  pgwv, integer, intent(in)  ngwv, integer, intent(in)  kbot, integer, intent(in)  ktop, real, dimension(-pgwv:pgwv)  c, real, dimension(pcols, pver)  u, real, dimension(pcols, pver)  v, real, dimension(pcols, pver)  t, real, dimension(pcols, 0:pver)  pi, real, dimension(pcols, pver)  dpm, real, dimension(pcols, pver)  rdpm, real, dimension(pcols, 0:pver)  piln, real, dimension(pcols)  rlat, real, dimension(0:pver)  rhoi, real, dimension(0:pver)  ni, real, dimension(0:pver)  ti, real, dimension(pver)  nm, real  dt, real, dimension(0:pver)  alpha, real, dimension(0:pver)  dback, integer, intent(in)  kldv, integer, intent(in)  kldvmn, integer, intent(in)  ksrc, integer, intent(in)  ksrcmn, real  rdpldv, real, dimension(-pgwv:pgwv, 0:pver)  tau, real, dimension(-pgwv:pgwv, 0:pver)  taub, real, dimension(0:pver)  ubi, real, dimension(0:pver)  ubib, real, dimension(pver)  ubm, real  xv, real  xvb, real  yv, real  yvb, real, dimension(pver)  ut, real, dimension(pver)  utb, real, dimension(pver)  vt, real, dimension(pver)  vtb, real, dimension(pver)  tt, real, dimension(pcols, 0:pver)  taugwx, real, dimension(pcols, 0:pver)  taugwy, real, dimension(pcols, 0:pver)  fegw, real, dimension(pcols, 0:pver)  fepgw, real, dimension(pver)  dusrc, real, dimension(pver)  dvsrc, real, dimension(pver)  dtsrc, real  tau0x, real  tau0y, real, dimension(pcols)  effgw  )

private

Definition at line 2557 of file gw_drag_b.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

gw_drag_prof_fwd()

subroutine gw_drag_b::gw_drag_prof_fwd ( integer, intent(in)  i, integer, intent(in)  pcols, integer, intent(in)  pver, integer, intent(in)  pgwv, integer, intent(in)  ngwv, integer, intent(in)  kbot, integer, intent(in)  ktop, real, dimension(-pgwv:pgwv)  c, real, dimension(pcols, pver)  u, real, dimension(pcols, pver)  v, real, dimension(pcols, pver)  t, real, dimension(pcols, 0:pver)  pi, real, dimension(pcols, pver)  dpm, real, dimension(pcols, pver)  rdpm, real, dimension(pcols, 0:pver)  piln, real, dimension(pcols)  rlat, real, dimension(0:pver)  rhoi, real, dimension(0:pver)  ni, real, dimension(0:pver)  ti, real, dimension(pver)  nm, real  dt, real, dimension(0:pver)  alpha, real, dimension(0:pver)  dback, integer, intent(in)  kldv, integer, intent(in)  kldvmn, integer, intent(in)  ksrc, integer, intent(in)  ksrcmn, real  rdpldv, real, dimension(-pgwv:pgwv, 0:pver)  tau, real, dimension(0:pver)  ubi, real, dimension(pver)  ubm, real  xv, real  yv, real, dimension(pver)  ut, real, dimension(pver)  vt, real, dimension(pver)  tt, real, dimension(pcols, 0:pver)  taugwx, real, dimension(pcols, 0:pver)  taugwy, real, dimension(pcols, 0:pver)  fegw, real, dimension(pcols, 0:pver)  fepgw, real, dimension(pver)  dusrc, real, dimension(pver)  dvsrc, real, dimension(pver)  dtsrc, real  tau0x, real  tau0y, real, dimension(pcols)  effgw  )

private

Definition at line 2161 of file gw_drag_b.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

gw_intr()

subroutine gw_drag_b::gw_intr ( integer  i, integer, intent(in)  pcols, integer, intent(in)  pver, real, intent(in)  dt, integer, intent(in)  pgwv, real, dimension(pcols)  effgworo_dev, real, dimension(pcols)  effgwbkg_dev, real, dimension(pcols, pver+1)  pint_dev, real, dimension(pcols, pver)  t_dev, real, dimension(pcols, pver)  u_dev, real, dimension(pcols, pver)  v_dev, real, dimension(pcols)  sgh_dev, real, dimension(pver+1)  pref_dev, real, dimension(pcols, pver)  pmid_dev, real, dimension(pcols, pver)  pdel_dev, real, dimension(pcols, pver)  rpdel_dev, real, dimension(pcols, pver+1)  lnpint_dev, real, dimension(pcols, pver)  zm_dev, real, dimension(pcols)  rlat_dev, real, dimension(pcols, pver)  dudt_gwd_dev, real, dimension(pcols, pver)  dvdt_gwd_dev, real, dimension(pcols, pver)  dtdt_gwd_dev, real, dimension(pcols, pver)  dudt_org_dev, real, dimension(pcols, pver)  dvdt_org_dev, real, dimension(pcols, pver)  dtdt_org_dev, real, dimension(pcols)  taugwdx_dev, real, dimension(pcols)  taugwdy_dev, real, dimension(pcols, pver+1)  tauox_dev, real, dimension(pcols, pver+1)  tauoy_dev, real, dimension(pcols, pver+1)  feo_dev, real, dimension(pcols)  taubkgx_dev, real, dimension(pcols)  taubkgy_dev, real, dimension(pcols, pver+1)  taubx_dev, real, dimension(pcols, pver+1)  tauby_dev, real, dimension(pcols, pver+1)  feb_dev, real, dimension(pcols, pver+1)  fepo_dev, real, dimension(pcols, pver+1)  fepb_dev, real, dimension(pcols, pver)  utbsrc_dev, real, dimension(pcols, pver)  vtbsrc_dev, real, dimension(pcols, pver)  ttbsrc_dev  )

private

Definition at line 768 of file gw_drag_b.F90.

Here is the call graph for this function:

gw_intr_bwd()

subroutine gw_drag_b::gw_intr_bwd ( integer  i, integer, intent(in)  pcols, integer, intent(in)  pver, real, intent(in)  dt, integer, intent(in)  pgwv, real, dimension(pcols)  effgworo_dev, real, dimension(pcols)  effgwbkg_dev, real, dimension(pcols, pver+1)  pint_dev, real, dimension(pcols, pver)  t_dev, real, dimension(pcols, pver)  u_dev, real, dimension(pcols, pver)  u_devb, real, dimension(pcols, pver)  v_dev, real, dimension(pcols, pver)  v_devb, real, dimension(pcols)  sgh_dev, real, dimension(pver+1)  pref_dev, real, dimension(pcols, pver)  pmid_dev, real, dimension(pcols, pver)  pdel_dev, real, dimension(pcols, pver)  rpdel_dev, real, dimension(pcols, pver+1)  lnpint_dev, real, dimension(pcols, pver)  zm_dev, real, dimension(pcols)  rlat_dev, real, dimension(pcols, pver)  dudt_gwd_dev, real, dimension(pcols, pver)  dudt_gwd_devb, real, dimension(pcols, pver)  dvdt_gwd_dev, real, dimension(pcols, pver)  dvdt_gwd_devb, real, dimension(pcols, pver)  dtdt_gwd_dev, real, dimension(pcols, pver)  dudt_org_dev, real, dimension(pcols, pver)  dvdt_org_dev, real, dimension(pcols, pver)  dtdt_org_dev, real, dimension(pcols)  taugwdx_dev, real, dimension(pcols)  taugwdy_dev, real, dimension(pcols, pver+1)  tauox_dev, real, dimension(pcols, pver+1)  tauoy_dev, real, dimension(pcols, pver+1)  feo_dev, real, dimension(pcols)  taubkgx_dev, real, dimension(pcols)  taubkgy_dev, real, dimension(pcols, pver+1)  taubx_dev, real, dimension(pcols, pver+1)  tauby_dev, real, dimension(pcols, pver+1)  feb_dev, real, dimension(pcols, pver+1)  fepo_dev, real, dimension(pcols, pver+1)  fepb_dev, real, dimension(pcols, pver)  utbsrc_dev, real, dimension(pcols, pver)  vtbsrc_dev, real, dimension(pcols, pver)  ttbsrc_dev  )

private

Definition at line 595 of file gw_drag_b.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

gw_intr_fwd()

subroutine gw_drag_b::gw_intr_fwd ( integer  i, integer, intent(in)  pcols, integer, intent(in)  pver, real, intent(in)  dt, integer, intent(in)  pgwv, real, dimension(pcols)  effgworo_dev, real, dimension(pcols)  effgwbkg_dev, real, dimension(pcols, pver+1)  pint_dev, real, dimension(pcols, pver)  t_dev, real, dimension(pcols, pver)  u_dev, real, dimension(pcols, pver)  v_dev, real, dimension(pcols)  sgh_dev, real, dimension(pver+1)  pref_dev, real, dimension(pcols, pver)  pmid_dev, real, dimension(pcols, pver)  pdel_dev, real, dimension(pcols, pver)  rpdel_dev, real, dimension(pcols, pver+1)  lnpint_dev, real, dimension(pcols, pver)  zm_dev, real, dimension(pcols)  rlat_dev, real, dimension(pcols, pver)  dudt_gwd_dev, real, dimension(pcols, pver)  dvdt_gwd_dev, real, dimension(pcols, pver)  dtdt_gwd_dev, real, dimension(pcols, pver)  dudt_org_dev, real, dimension(pcols, pver)  dvdt_org_dev, real, dimension(pcols, pver)  dtdt_org_dev, real, dimension(pcols)  taugwdx_dev, real, dimension(pcols)  taugwdy_dev, real, dimension(pcols, pver+1)  tauox_dev, real, dimension(pcols, pver+1)  tauoy_dev, real, dimension(pcols, pver+1)  feo_dev, real, dimension(pcols)  taubkgx_dev, real, dimension(pcols)  taubkgy_dev, real, dimension(pcols, pver+1)  taubx_dev, real, dimension(pcols, pver+1)  tauby_dev, real, dimension(pcols, pver+1)  feb_dev, real, dimension(pcols, pver+1)  fepo_dev, real, dimension(pcols, pver+1)  fepb_dev, real, dimension(pcols, pver)  utbsrc_dev, real, dimension(pcols, pver)  vtbsrc_dev, real, dimension(pcols, pver)  ttbsrc_dev  )

private

Definition at line 338 of file gw_drag_b.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

gw_main_b()

subroutine, public gw_drag_b::gw_main_b	(	integer	pcols,
		integer	pver,
		real	dt,
		integer	pgwv,
		real, dimension(pcols)	effgworo_dev,
		real, dimension(pcols)	effgwbkg_dev,
		real, dimension(pcols, pver+1)	pint_dev,
		real, dimension(pcols, pver)	t_dev,
		real, dimension(pcols, pver)	u_dev,
		real, dimension(pcols, pver)	u_devb,
		real, dimension(pcols, pver)	v_dev,
		real, dimension(pcols, pver)	v_devb,
		real, dimension(pcols)	sgh_dev,
		real, dimension(pver+1)	pref_dev,
		real, dimension(pcols, pver)	pmid_dev,
		real, dimension(pcols, pver)	pdel_dev,
		real, dimension(pcols, pver)	rpdel_dev,
		real, dimension(pcols, pver+1)	lnpint_dev,
		real, dimension(pcols, pver)	zm_dev,
		real, dimension(pcols, pver)	qvt_dev,
		real	rog,
		real	mapl_vireps_,
		real, dimension(pcols)	rlat_dev
	)

Definition at line 87 of file gw_drag_b.F90.

Here is the call graph for this function:

gw_oro()

subroutine gw_drag_b::gw_oro ( integer, intent(in)  i, integer, intent(in)  pcols, integer, intent(in)  pver, integer, intent(in)  pgwv, real, dimension(pcols, pver)  u, real, dimension(pcols, pver)  v, real, dimension(pcols, pver)  t, real, dimension(pcols)  sgh, real, dimension(pcols, pver)  pm, real, dimension(pcols, 0:pver)  pi, real, dimension(pcols, pver)  dpm, real, dimension(pcols, pver)  zm, real, dimension(pver)  nm, integer  kldv, integer  kldvmn, integer  ksrc, integer  ksrcmn, real  rdpldv, real, dimension(-pgwv:pgwv, 0:pver)  tau, real, dimension(0:pver)  ubi, real, dimension(pver)  ubm, real  xv, real  yv, integer  kbot, real, dimension(pcols)  rlat  )

private

Definition at line 1436 of file gw_drag_b.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

gw_oro_bwd()

subroutine gw_drag_b::gw_oro_bwd ( integer, intent(in)  i, integer, intent(in)  pcols, integer, intent(in)  pver, integer, intent(in)  pgwv, real, dimension(pcols, pver)  u, real, dimension(pcols, pver)  ub, real, dimension(pcols, pver)  v, real, dimension(pcols, pver)  vb, real, dimension(pcols, pver)  t, real, dimension(pcols)  sgh, real, dimension(pcols, pver)  pm, real, dimension(pcols, 0:pver)  pi, real, dimension(pcols, pver)  dpm, real, dimension(pcols, pver)  zm, real, dimension(pver)  nm, integer  kldv, integer  kldvmn, integer  ksrc, integer  ksrcmn, real  rdpldv, real, dimension(-pgwv:pgwv, 0:pver)  tau, real, dimension(-pgwv:pgwv, 0:pver)  taub, real, dimension(0:pver)  ubi, real, dimension(0:pver)  ubib, real, dimension(pver)  ubm, real, dimension(pver)  ubmb, real  xv, real  xvb, real  yv, real  yvb, integer  kbot, real, dimension(pcols)  rlat  )

private

Definition at line 1299 of file gw_drag_b.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

gw_oro_fwd()

subroutine gw_drag_b::gw_oro_fwd ( integer, intent(in)  i, integer, intent(in)  pcols, integer, intent(in)  pver, integer, intent(in)  pgwv, real, dimension(pcols, pver)  u, real, dimension(pcols, pver)  v, real, dimension(pcols, pver)  t, real, dimension(pcols)  sgh, real, dimension(pcols, pver)  pm, real, dimension(pcols, 0:pver)  pi, real, dimension(pcols, pver)  dpm, real, dimension(pcols, pver)  zm, real, dimension(pver)  nm, integer  kldv, integer  kldvmn, integer  ksrc, integer  ksrcmn, real  rdpldv, real, dimension(-pgwv:pgwv, 0:pver)  tau, real, dimension(0:pver)  ubi, real, dimension(pver)  ubm, real  xv, real  yv, integer  kbot, real, dimension(pcols)  rlat  )

private

Definition at line 1088 of file gw_drag_b.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

gw_prof()

subroutine gw_drag_b::gw_prof ( integer, intent(in)  i, integer, intent(in)  k, integer, intent(in)  pcols, integer, intent(in)  pver, real, dimension(pcols, pver)  u, real, dimension(pcols, pver)  v, real, dimension(pcols, pver)  t, real, dimension(pcols, pver)  pm, real, dimension(pcols, 0:pver)  pi, real, dimension(0:pver)  rhoi, real, dimension(0:pver)  ni, real, dimension(0:pver)  ti, real, dimension(pver)  nm  )

private

Definition at line 999 of file gw_drag_b.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

fcrit2

real, parameter, public gw_drag_b::fcrit2 =0.5

Definition at line 55 of file gw_drag_b.F90.

fracldv

real, parameter, public gw_drag_b::fracldv =0.0

Definition at line 47 of file gw_drag_b.F90.

kwvb

real, parameter, public gw_drag_b::kwvb =6.28e-5

Definition at line 41 of file gw_drag_b.F90.

kwvbeq

real, parameter, public gw_drag_b::kwvbeq =6.28e-5/7.

Definition at line 43 of file gw_drag_b.F90.

kwvo

real, parameter, public gw_drag_b::kwvo =6.28e-5

Definition at line 45 of file gw_drag_b.F90.

mxasym

real, parameter, public gw_drag_b::mxasym =0.1

Definition at line 49 of file gw_drag_b.F90.

mxrange

real, parameter, public gw_drag_b::mxrange =0.001

Definition at line 51 of file gw_drag_b.F90.

n2min

real, parameter, public gw_drag_b::n2min =1.e-8

Definition at line 53 of file gw_drag_b.F90.

orohmin

real, parameter, public gw_drag_b::orohmin =10.

Definition at line 57 of file gw_drag_b.F90.

oroko2

real, parameter, public gw_drag_b::oroko2 =0.5*kwvo

Definition at line 76 of file gw_drag_b.F90.

orovmin

real, parameter, public gw_drag_b::orovmin =2.0

Definition at line 59 of file gw_drag_b.F90.

pi_gwd

real, parameter, public gw_drag_b::pi_gwd =4.0*atan(1.0)

Definition at line 78 of file gw_drag_b.F90.

rog

real, parameter, public gw_drag_b::rog =mapl_rgas/mapl_grav

Definition at line 74 of file gw_drag_b.F90.

taubgnd

real, parameter, public gw_drag_b::taubgnd =6.4

Definition at line 61 of file gw_drag_b.F90.

taumin

real, parameter, public gw_drag_b::taumin =1.e-10

Definition at line 63 of file gw_drag_b.F90.

tauscal

real, parameter, public gw_drag_b::tauscal =0.001

Definition at line 65 of file gw_drag_b.F90.

tndmax

real, parameter, public gw_drag_b::tndmax =500./86400.

Definition at line 67 of file gw_drag_b.F90.

ubmc2mn

real, parameter, public gw_drag_b::ubmc2mn =0.1

Definition at line 71 of file gw_drag_b.F90.

umcfac

real, parameter, public gw_drag_b::umcfac =0.5

Definition at line 69 of file gw_drag_b.F90.

zldvcon

real, parameter, public gw_drag_b::zldvcon =10.

Definition at line 73 of file gw_drag_b.F90.