CCPP SciDoc v7.0.0  v7.0.0
Common Community Physics Package Developed at DTC
 
Loading...
Searching...
No Matches
cires_ugwpv1_module Module Reference

Functions/Subroutines

subroutine cires_ugwpv1_init (me, master, nlunit, logunit, jdat_gfs, con_pi, con_rerth, fn_nml2, input_nml_file, lonr, latr, levs, ak, bk, pref, dtp, errmsg, errflg)
 
subroutine cires_ugwp_advance
 
subroutine cires_ugwp_dealloc
 
subroutine calendar_ugwp (yr, mm, dd, ddd_ugwp)
 
subroutine ngwflux_update (me, master, im, levs, kdt, ddd, curdate, tau_ddd, xlatd, sinlat, coslat, rain, tau_ngw)
 

Variables

logical module_is_initialized
 
character(len=8) strsolver ='pss-1986'
 
logical do_physb_gwsrcs = .false.
 
logical do_rfdamp = .false.
 
integer, parameter idebug_gwrms =0
 
logical, parameter do_adjoro = .false.
 
real(kind=kind_phys), parameter max_kdis = 450.
 
real(kind=kind_phys), parameter max_axyz = 450.e-5
 
real(kind=kind_phys), parameter max_eps = max_kdis*4.e-4
 
real(kind=kind_phys), parameter maxdudt = max_axyz
 
real(kind=kind_phys), parameter maxdtdt = max_eps*1.e-3
 
real(kind=kind_phys), parameter dked_min = 0.01
 
real(kind=kind_phys), parameter dked_max = max_kdis
 
real(kind=kind_phys), parameter pr_kvkt = 1./1.
 
real(kind=kind_phys), parameter pr_kdis = Pr_kvkt/(1.+Pr_kvkt)
 
real(kind=kind_phys), parameter ipr_ktgw =1./3.
 
real(kind=kind_phys), parameter ipr_spgw =iPr_ktgw
 
real(kind=kind_phys), parameter ipr_turb =1./3.
 
real(kind=kind_phys), parameter ipr_mol =1.95
 
real(kind=kind_phys), parameter cd_ulim = 1.0
 
real(kind=kind_phys), parameter linsat = 1.00
 
real(kind=kind_phys), parameter linsat2 = linsat*linsat
 
real(kind=kind_phys), parameter ricrit = 0.25
 
real(kind=kind_phys), parameter frcrit = 0.50
 
integer knob_ugwp_version = 1
 
integer knob_ugwp_solver =1
 
integer, dimension(4) knob_ugwp_source =(/1,0,1,0/)
 
integer, dimension(4) knob_ugwp_wvspec =(/1,32,32,32/)
 
integer, dimension(4) knob_ugwp_azdir =(/2,4,4,4/)
 
integer, dimension(4) knob_ugwp_stoch =(/0,0,0,0/)
 
real(kind=kind_phys), dimension(4) knob_ugwp_effac =(/1.,1.,1.,1./)
 
integer knob_ugwp_doaxyz =1
 
integer knob_ugwp_doheat =1
 
integer knob_ugwp_dokdis =0
 
integer knob_ugwp_ndx4lh = 2
 
integer knob_ugwp_nslope = 1
 
real(kind=kind_phys) knob_ugwp_palaunch = 500.e2
 
real(kind=kind_phys) knob_ugwp_lzmax = 12.5e3
 
real(kind=kind_phys) knob_ugwp_lzstar = 2.0e3
 
real(kind=kind_phys) knob_ugwp_lzmin = 1.5e3
 
real(kind=kind_phys) knob_ugwp_taumin = 0.25e-3
 
real(kind=kind_phys) knob_ugwp_tauamp = 7.75e-3
 
real(kind=kind_phys) knob_ugwp_lhmet = 200.e3
 
logical knob_ugwp_tlimb = .true.
 
character(len=8) knob_ugwp_orosolv ='pss-1986'
 
real(kind=kind_phys) kxw = 6.28/200.e3
 
integer ugwp_azdir
 
integer ugwp_stoch
 
integer ugwp_src
 
integer ugwp_nws
 
real(kind=kind_phys) ugwp_effac
 
integer launch_level = 55
 
real(kind=kind_phys), dimension(:), allocatable kvg
 
real(kind=kind_phys), dimension(:), allocatable ktg
 
real(kind=kind_phys), dimension(:), allocatable krad
 
real(kind=kind_phys), dimension(:), allocatable kion
 
real(kind=kind_phys), dimension(:), allocatable zkm
 
real(kind=kind_phys), dimension(:), allocatable pmb
 
real(kind=kind_phys), dimension(:), allocatable rfdis
 
real(kind=kind_phys), dimension(:), allocatable rfdist
 
integer levs_rf
 
real(kind=kind_phys) pa_rf
 
real(kind=kind_phys) tau_rf
 
real(kind=kind_phys), parameter rain_max =8.e-5
 
real(kind=kind_phys), parameter rain_lat =41.0
 
real(kind=kind_phys), parameter rain_lim =1.e-5
 
real(kind=kind_phys), parameter w_merra = 1.0
 
real(kind=kind_phys), parameter w_nomerra = 1.-w_merra
 
real(kind=kind_phys), parameter w_rain =1.
 
real(kind=kind_phys), parameter mtau_rain = 1.e-3
 
real(kind=kind_phys), parameter ft_min =0.5
 
real(kind=kind_phys), parameter ft_max =2
 
real(kind=kind_phys), parameter tau_ngw_max = 20.e-3
 
real(kind=kind_phys), parameter tau_ngw_min = .20e-3
 
real(kind=kind_phys), parameter tau_rainum = 0.7488e-3
 
real(kind=kind_phys), parameter base_rainum = 0.1e-5
 
real(kind=kind_phys), parameter pbase_um =1./sqrt(base_rainum) * tau_rainum
 
integer, parameter metoum_rain = 0
 
real(kind=kind_phys), parameter f_coriol =1.0
 
real(kind=kind_phys), parameter f_nonhyd =1.0
 
real(kind=kind_phys), parameter f_kds =0.0