Functions/Subroutines
subroutine, public	gw_drag::gw_drag_readnl (nlfile)

subroutine, public	gw_drag::gw_init ()

subroutine	gw_drag::gw_init_beres (mfcc)

subroutine, public	gw_drag::gw_tend (state, sgh, pbuf, dt, ptend, cam_in)

subroutine	gw_drag::gw_spec_addflds (prefix, scheme, history_waccm)

subroutine	gw_drag::gw_spec_outflds (prefix, lchnk, ncol, ngwv, c, u, v, xv, yv, gwut, dttdf, dttke, tau, utgw, vtgw, taucd)

elemental integer function	find_bin (val)

elemental integer function	c_to_l (c)

character(len=9) pure function	gw_drag::tau_fld_name (l, prefix, x_not_y)

Variables
logical	gw_drag::do_spectral_waves

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

real(r8)	gw_drag::fcrit2 = unset_r8

integer	gw_drag::pgwv = -1

real(r8)	gw_drag::dc = unset_r8

integer	gw_drag::kbotbg

integer, parameter	gw_drag::ktop = 0

real(r8)	gw_drag::frontgfc = unset_r8

real(r8)	gw_drag::effgw_oro = unset_r8

real(r8)	gw_drag::effgw_cm = unset_r8

real(r8)	gw_drag::effgw_beres = unset_r8

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

real(r8)	gw_drag::taubgnd = unset_r8

logical	gw_drag::tau_0_ubc = .false.

integer, parameter	gw_drag::maxh = 20

integer, parameter	gw_drag::maxuh = 40

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

integer	gw_drag::kvt_idx = -1

integer	gw_drag::ttend_dp_idx = -1

integer	gw_drag::frontgf_idx = -1

integer	gw_drag::frontga_idx = -1

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

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

logical	gw_drag::history_amwg

Function/Subroutine Documentation

◆ c_to_l()

elemental integer function gw_spec_outflds::c_to_l ( real(r8), intent(in) c )

private

Here is the caller graph for this function:

elemental integer function gw_spec_outflds::find_bin ( real(r8), intent(in) val )

Here is the caller graph for this function: