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

Functions/Subroutines

subroutine initsolv_wmsdis (me, master, nwaves, nazdir, nstoch, effac, do_physb, kxw, version)
 

Variables

real(kind=kind_phys), parameter maxdudt = 250.e-5
 
real(kind=kind_phys), parameter maxdtdt =15.e-2
 
real(kind=kind_phys), parameter dked_min =0.01
 
real(kind=kind_phys), parameter dked_max =250.0
 
real(kind=kind_phys), parameter gptwo =2.0
 
real(kind=kind_phys), parameter bnfix = 6.28/300.
 
real(kind=kind_phys), parameter bnfix2 = bnfix * bnfix
 
real(kind=kind_phys), parameter bnfix4 = bnfix2 * bnfix2
 
real(kind=kind_phys), parameter bnfix3 = bnfix2 * bnfix
 
integer, parameter iazidim =4
 
integer, parameter incdim =25
 
real(kind=kind_phys), parameter zcimin = 2.5
 
real(kind=kind_phys), parameter zcimax = 125.0
 
real(kind=kind_phys), parameter zgam = 0.25
 
real(kind=kind_phys), parameter pind_wd = 5./3.
 
real(kind=kind_phys), parameter sind_kz = 1.
 
real(kind=kind_phys), parameter tind_kz = 3.
 
real(kind=kind_phys), parameter stind_kz = sind_kz + tind_kz
 
real(kind=kind_phys) nslope
 
real(kind=kind_phys) lzstar
 
real(kind=kind_phys) lzmin
 
real(kind=kind_phys) lzmax
 
real(kind=kind_phys) lhmet
 
real(kind=kind_phys) tamp_mpa
 
real(kind=kind_phys) tau_min
 
integer ilaunch
 
real(kind=kind_phys) gw_eff
 
real(kind=kind_phys) v_kxw
 
real(kind=kind_phys) rv_kxw
 
real(kind=kind_phys) v_kxw2
 
integer nwav
 
integer nazd
 
integer nst
 
real(kind=kind_phys) eff
 
real(kind=kind_phys) zaz_fct
 
real(kind=kind_phys) zms
 
real(kind=kind_phys), dimension(:), allocatable zci
 
real(kind=kind_phys), dimension(:), allocatable zci4
 
real(kind=kind_phys), dimension(:), allocatable zci3
 
real(kind=kind_phys), dimension(:), allocatable zci2
 
real(kind=kind_phys), dimension(:), allocatable zdci
 
real(kind=kind_phys), dimension(:), allocatable zcosang
 
real(kind=kind_phys), dimension(:), allocatable zsinang
 
real(kind=kind_phys), dimension(:), allocatable lzmet
 
real(kind=kind_phys), dimension(:), allocatable czmet
 
real(kind=kind_phys), dimension(:), allocatable mkzmet
 
real(kind=kind_phys), dimension(:), allocatable dczmet
 
real(kind=kind_phys), dimension(:), allocatable dmkz
 
real(kind=kind_phys), parameter ipr_pt = 0.5
 
real(kind=kind_phys), parameter lturb = 30.
 
real(kind=kind_phys), parameter sc2 = lturb*lturb
 
real(kind=kind_phys), parameter ulturb =150.
 
real(kind=kind_phys), parameter sc2u = ulturb* ulturb
 
real(kind=kind_phys), parameter ric =0.25
 
real(kind=kind_phys), parameter rimin = -10.
 
real(kind=kind_phys), parameter prmin = 0.25
 
real(kind=kind_phys), parameter prmax = 4.0