gw_drag_d Module Reference

Functions/Subroutines
subroutine, public	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_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_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_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_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_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_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_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_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_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_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_d (uv_out, uv_outd, uv_in, uv_ind)
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_d::get_cmu ( real  cmu_, real  cmu  )

private

Definition at line 3562 of file gw_drag_d.F90.

Here is the caller graph for this function:

get_effkwvmap_1()

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

private

Definition at line 3526 of file gw_drag_d.F90.

Here is the caller graph for this function:

get_effkwvmap_2()

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

private

Definition at line 3536 of file gw_drag_d.F90.

Here is the caller graph for this function:

get_effkwvmap_3()

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

private

Definition at line 3549 of file gw_drag_d.F90.

Here is the caller graph for this function:

get_ti()

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

private

Definition at line 3568 of file gw_drag_d.F90.

Here is the caller graph for this function:

get_uv()

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

private

Definition at line 3516 of file gw_drag_d.F90.

Here is the caller graph for this function:

get_uv_d()

subroutine gw_drag_d::get_uv_d ( real  uv_out, real  uv_outd, real  uv_in, real  uv_ind  )

private

Definition at line 3503 of file gw_drag_d.F90.

Here is the caller graph for this function:

gw_bgnd()

subroutine gw_drag_d::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 1612 of file gw_drag_d.F90.

Here is the caller graph for this function:

gw_bgnd_d()

subroutine gw_drag_d::gw_bgnd_d ( integer  i, integer  pcols, integer  pver, real, dimension(-ngwv:ngwv)  c, real, dimension(pcols, pver)  u, real, dimension(pcols, pver)  ud, real, dimension(pcols, pver)  v, real, dimension(pcols, pver)  vd, 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)  ubid, real, dimension(pver)  ubm, real, dimension(pver)  ubmd, real  xv, real  xvd, real  yv, real  yvd, integer  ngwv, integer  kbot  )

private

Definition at line 1373 of file gw_drag_d.F90.

Here is the caller graph for this function:

gw_drag_prof()

subroutine gw_drag_d::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 2275 of file gw_drag_d.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

gw_drag_prof_bgnd()

subroutine gw_drag_d::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 3131 of file gw_drag_d.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

gw_drag_prof_bgnd_d()

subroutine gw_drag_d::gw_drag_prof_bgnd_d ( 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)  taud, real, dimension(0:pver)  ubi, real, dimension(0:pver)  ubid, real, dimension(pver)  ubm, real  xv, real  xvd, real  yv, real  yvd, real, dimension(pver)  ut, real, dimension(pver)  utd, real, dimension(pver)  vt, real, dimension(pver)  vtd, 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)  dusrcd, real, dimension(pver)  dvsrc, real, dimension(pver)  dvsrcd, real, dimension(pver)  dtsrc, real  tau0x, real  tau0y, real, dimension(pcols)  effgw  )

private

Definition at line 2651 of file gw_drag_d.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

gw_drag_prof_d()

subroutine gw_drag_d::gw_drag_prof_d ( 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)  taud, real, dimension(0:pver)  ubi, real, dimension(0:pver)  ubid, real, dimension(pver)  ubm, real  xv, real  xvd, real  yv, real  yvd, real, dimension(pver)  ut, real, dimension(pver)  utd, real, dimension(pver)  vt, real, dimension(pver)  vtd, 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 1825 of file gw_drag_d.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

gw_intr()

subroutine gw_drag_d::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 590 of file gw_drag_d.F90.

Here is the call graph for this function:

gw_intr_d()

subroutine gw_drag_d::gw_intr_d ( 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_devd, real, dimension(pcols, pver)  v_dev, real, dimension(pcols, pver)  v_devd, 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_devd, real, dimension(pcols, pver)  dvdt_gwd_dev, real, dimension(pcols, pver)  dvdt_gwd_devd, 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 325 of file gw_drag_d.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

gw_main_d()

subroutine, public gw_drag_d::gw_main_d	(	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_devd,
		real, dimension(pcols, pver)	v_dev,
		real, dimension(pcols, pver)	v_devd,
		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 83 of file gw_drag_d.F90.

Here is the call graph for this function:

gw_oro()

subroutine gw_drag_d::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 1162 of file gw_drag_d.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

gw_oro_d()

subroutine gw_drag_d::gw_oro_d ( 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)  ud, real, dimension(pcols, pver)  v, real, dimension(pcols, pver)  vd, 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)  taud, real, dimension(0:pver)  ubi, real, dimension(0:pver)  ubid, real, dimension(pver)  ubm, real, dimension(pver)  ubmd, real  xv, real  xvd, real  yv, real  yvd, integer  kbot, real, dimension(pcols)  rlat  )

private

Definition at line 912 of file gw_drag_d.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

gw_prof()

subroutine gw_drag_d::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 821 of file gw_drag_d.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_d::fcrit2 =0.5

Definition at line 53 of file gw_drag_d.F90.

fracldv

real, parameter, public gw_drag_d::fracldv =0.0

Definition at line 45 of file gw_drag_d.F90.

kwvb

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

Definition at line 39 of file gw_drag_d.F90.

kwvbeq

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

Definition at line 41 of file gw_drag_d.F90.

kwvo

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

Definition at line 43 of file gw_drag_d.F90.

mxasym

real, parameter, public gw_drag_d::mxasym =0.1

Definition at line 47 of file gw_drag_d.F90.

mxrange

real, parameter, public gw_drag_d::mxrange =0.001

Definition at line 49 of file gw_drag_d.F90.

n2min

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

Definition at line 51 of file gw_drag_d.F90.

orohmin

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

Definition at line 55 of file gw_drag_d.F90.

oroko2

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

Definition at line 74 of file gw_drag_d.F90.

orovmin

real, parameter, public gw_drag_d::orovmin =2.0

Definition at line 57 of file gw_drag_d.F90.

pi_gwd

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

Definition at line 76 of file gw_drag_d.F90.

rog

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

Definition at line 72 of file gw_drag_d.F90.

taubgnd

real, parameter, public gw_drag_d::taubgnd =6.4

Definition at line 59 of file gw_drag_d.F90.

taumin

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

Definition at line 61 of file gw_drag_d.F90.

tauscal

real, parameter, public gw_drag_d::tauscal =0.001

Definition at line 63 of file gw_drag_d.F90.

tndmax

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

Definition at line 65 of file gw_drag_d.F90.

ubmc2mn

real, parameter, public gw_drag_d::ubmc2mn =0.1

Definition at line 69 of file gw_drag_d.F90.

umcfac

real, parameter, public gw_drag_d::umcfac =0.5

Definition at line 67 of file gw_drag_d.F90.

zldvcon

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

Definition at line 71 of file gw_drag_d.F90.