|
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) |
|
|
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 |
|