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

Functions/Subroutines

subroutine init_oro_gws (nwaves, nazdir, nstoch, effac, lonr, kxw)
 

Variables

real(kind=kind_phys), parameter hncrit =9000.
 
real(kind=kind_phys), parameter hminmt =50.
 
real(kind=kind_phys), parameter sigfac =4.0
 
real(kind=kind_phys), parameter hpmax =2500.0
 
real(kind=kind_phys), parameter hpmin =25.0
 
real(kind=kind_phys), parameter minwnd =1.0
 
real(kind=kind_phys), parameter dpmin =5000.0
 
character(len=8) strver = 'gfs_2018'
 
character(len=8) strbase = 'gfs_2018'
 
real(kind=kind_phys), parameter rimin =-10.
 
real(kind=kind_phys), parameter ric =0.25
 
real(kind=kind_phys), parameter frmax =10.
 
real(kind=kind_phys), parameter frc =1.0
 
real(kind=kind_phys), parameter frmin =0.01
 
real(kind=kind_phys), parameter ce =0.8
 
real(kind=kind_phys), parameter ceofrc =ce/frc
 
real(kind=kind_phys), parameter cg =0.5
 
real(kind=kind_phys), parameter gmax =1.0
 
real(kind=kind_phys), parameter veleps =1.0
 
real(kind=kind_phys), parameter factop =0.5
 
real(kind=kind_phys), parameter efmin =0.5
 
real(kind=kind_phys), parameter efmax =10.0
 
real(kind=kind_phys), parameter rlolev =50000.0
 
integer, parameter mdir = 8
 
real(kind=kind_phys), parameter fdir =mdir/(8.*atan(1.0))
 
real(kind=kind_phys), parameter zpgeo =2.*atan(1.0)
 
integer, dimension(mdir), save nwdir
 
real(kind=kind_phys), parameter odmin = 0.1
 
real(kind=kind_phys), parameter odmax = 10.0
 
real(kind=kind_phys), parameter fcrit_sm = 0.7
 
real(kind=kind_phys), parameter fcrit_sm2 = fcrit_sm * fcrit_sm
 
real(kind=kind_phys), parameter fcrit_gfs = 0.7
 
real(kind=kind_phys), parameter fcrit_v1 = 0.7
 
real(kind=kind_phys), parameter fcrit_mtb = 0.7
 
real(kind=kind_phys), parameter zbr_pi = zpgeo
 
real(kind=kind_phys), parameter zbr_ifs = zpgeo
 
real(kind=kind_phys), parameter kxoro =6.28e-3/200.
 
real(kind=kind_phys), parameter coro = 0.0
 
integer, parameter nridge =2
 
real(kind=kind_phys), parameter sigma_std =1./100.
 
real(kind=kind_phys), parameter gamm_std =1.0
 
real(kind=kind_phys) cdmb
 
real(kind=kind_phys) cleff
 
integer nworo
 
integer nazoro
 
integer nstoro
 
real(kind=kind_phys), parameter kmax = 6.28/(10.*25.)
 
real(kind=kind_phys), parameter k1tr = 6.28/(2100)
 
real(kind=kind_phys), parameter kflt = 6.28/(18.e3)
 
real(kind=kind_phys), parameter k0tr = 6.28/(10.e3)
 
real(kind=kind_phys), parameter nk1tr = 2.8
 
real(kind=kind_phys), parameter nk0tr = 1.9
 
real(kind=kind_phys), parameter a1_tofd = kflt ** nk1tr *1.e3
 
real(kind=kind_phys), parameter a2_tofd = k1tr ** (nk0tr-nk1tr)
 
real(kind=kind_phys), parameter fix_tofd = 2.* 0.005 * 12 *0.6
 
integer, parameter n_tofd = 2
 
real(kind=kind_phys), parameter const_tofd = 0.0759
 
real(kind=kind_phys), parameter ze_tofd = 1500.0
 
real(kind=kind_phys), parameter a12_tofd = 0.0002662*0.005363
 
real(kind=kind_phys), parameter ztop_tofd = 3.*ze_tofd