gw_drag Module Reference

Functions/Subroutines
subroutine, public	gw_drag_readnl (nlfile)
subroutine, public	gw_init ()
subroutine	gw_init_beres (mfcc)
subroutine, public	gw_tend (state, sgh, pbuf, dt, ptend, cam_in)
subroutine	gw_spec_addflds (prefix, scheme, history_waccm)
subroutine	gw_spec_outflds (prefix, lchnk, ncol, ngwv, c, u, v, xv, yv, gwut, dttdf, dttke, tau, utgw, vtgw, taucd)
character(len=9) pure function	tau_fld_name (l, prefix, x_not_y)

Variables
logical	do_spectral_waves
real(r8), parameter	unset_r8 = huge(1._r8)
real(r8)	fcrit2 = unset_r8
integer	pgwv = -1
real(r8)	dc = unset_r8
integer	kbotbg
integer, parameter	ktop = 0
real(r8)	frontgfc = unset_r8
real(r8)	effgw_oro = unset_r8
real(r8)	effgw_cm = unset_r8
real(r8)	effgw_beres = unset_r8
real(r8), parameter	kwv = 6.28e-5_r8
real(r8)	taubgnd = unset_r8
logical	tau_0_ubc = .false.
integer, parameter	maxh = 20
integer, parameter	maxuh = 40
character(len=256)	gw_drag_file = 'Beres04_file'
integer	kvt_idx = -1
integer	ttend_dp_idx = -1
integer	frontgf_idx = -1
integer	frontga_idx = -1
character(len=1), parameter	cm_pf = " "
character(len=1), parameter	beres_pf = "B"
logical	history_amwg

Function/Subroutine Documentation

gw_drag_readnl()

subroutine, public gw_drag::gw_drag_readnl

(

character(len=*), intent(in)

nlfile

)

Here is the call graph for this function:

Here is the caller graph for this function:

gw_init()

subroutine, public gw_drag::gw_init

(

)

Here is the call graph for this function:

Here is the caller graph for this function:

gw_init_beres()

subroutine gw_drag::gw_init_beres

(

real(r8), dimension(maxh,-maxuh:maxuh,-pgwv:pgwv), intent(out)

mfcc

)

Here is the call graph for this function:

Here is the caller graph for this function:

gw_spec_addflds()

subroutine gw_drag::gw_spec_addflds	(	character(len=1), intent(in)	prefix,
		character(len=*), intent(in)	scheme,
		logical, intent(in)	history_waccm
	)

Here is the call graph for this function:

Here is the caller graph for this function:

gw_spec_outflds()

subroutine gw_drag::gw_spec_outflds	(	character(len=1), intent(in)	prefix,
		integer, intent(in)	lchnk,
		integer, intent(in)	ncol,
		integer, intent(in)	ngwv,
		real(r8), dimension(ncol,-pgwv:pgwv), intent(in)	c,
		real(r8), dimension(ncol,pver), intent(in)	u,
		real(r8), dimension(ncol,pver), intent(in)	v,
		real(r8), dimension(ncol), intent(in)	xv,
		real(r8), dimension(ncol), intent(in)	yv,
		real(r8), dimension(ncol,pver,-ngwv:ngwv), intent(in)	gwut,
		real(r8), dimension(ncol,pver)	dttdf,
		real(r8), dimension(ncol,pver)	dttke,
		real(r8), dimension(ncol,-pgwv:pgwv,pver), intent(in)	tau,
		real(r8), dimension(ncol,pver), intent(in)	utgw,
		real(r8), dimension(ncol,pver), intent(in)	vtgw,
		real(r8), dimension(ncol,0:pver,4), intent(in)	taucd
	)

Here is the call graph for this function:

Here is the caller graph for this function:

gw_tend()

subroutine, public gw_drag::gw_tend	(	type(physics_state), intent(in)	state,
		real(r8), dimension(pcols), intent(in)	sgh,
		type(physics_buffer_desc), dimension(:), pointer	pbuf,
		real(r8), intent(in)	dt,
		type(physics_ptend), intent(out)	ptend,
		type(cam_in_t), intent(in)	cam_in
	)

Here is the call graph for this function:

Here is the caller graph for this function:

tau_fld_name()

character(len=9) pure function gw_drag::tau_fld_name ( integer, intent(in)  l, character(len=1), intent(in)  prefix, logical, intent(in)  x_not_y  )

private

Here is the caller graph for this function:

Variable Documentation

beres_pf

character(len=1), parameter gw_drag::beres_pf = "B"

private

cm_pf

character(len=1), parameter gw_drag::cm_pf = " "

private

dc

real(r8) gw_drag::dc = unset_r8

private

do_spectral_waves

logical gw_drag::do_spectral_waves

private

effgw_beres

real(r8) gw_drag::effgw_beres = unset_r8

private

effgw_cm

real(r8) gw_drag::effgw_cm = unset_r8

private

effgw_oro

real(r8) gw_drag::effgw_oro = unset_r8

private

fcrit2

real(r8) gw_drag::fcrit2 = unset_r8

private

frontga_idx

integer gw_drag::frontga_idx = -1

private

frontgf_idx

integer gw_drag::frontgf_idx = -1

private

frontgfc

real(r8) gw_drag::frontgfc = unset_r8

private

gw_drag_file

character(len=256) gw_drag::gw_drag_file = 'Beres04_file'

private

history_amwg

logical gw_drag::history_amwg

private

kbotbg

integer gw_drag::kbotbg

private

ktop

integer, parameter gw_drag::ktop = 0

private

kvt_idx

integer gw_drag::kvt_idx = -1

private

kwv

real(r8), parameter gw_drag::kwv = 6.28e-5_r8

private

maxh

integer, parameter gw_drag::maxh = 20

private

maxuh

integer, parameter gw_drag::maxuh = 40

private

pgwv

integer gw_drag::pgwv = -1

private

tau_0_ubc

logical gw_drag::tau_0_ubc = .false.

private

taubgnd

real(r8) gw_drag::taubgnd = unset_r8

private

ttend_dp_idx

integer gw_drag::ttend_dp_idx = -1

private

unset_r8

real(r8), parameter gw_drag::unset_r8 = huge(1._r8)

private