Functions/Subroutines | |
subroutine | cires_ugwp_mod_init (me, master, nlunit, input_nml_file, logunit, fn_nml, lonr, latr, levs, ak, bk, pref, dtp, cdmvgwd, cgwf, pa_rf_in, tau_rf_in) |
subroutine | cires_ugwp_driver (im, levs, dtp, kdt, me, lprnt, lonr, pa_rf, tau_rf, cdmbgwd, xlat, xlatd, sinlat, coslat, ugrs, vgrs, tgrs, qgrs, prsi, prsl, prslk, phii, phil, delp, orostat, kpbl, dusfc, dvsfc, dudt, dvdt, dtdt, kdis, axtot, axo, axc, axf, aytot, ayo, ayc, ayf, eps_tot, ekdis, trig_okw, trig_fgf, dcheat, precip, cld_klevs, zmtb, scheat, dlength, cldf, taus_sso, taus_ogw, tauf_ogw, tauf_ngw, ugw_zmtb, ugw_zlwb, ugw_zogw, ugw_axmtb, ugw_axlwb, ugw_axtms) |
subroutine | cires_ugwp_advance |
subroutine | cires_ugwp_mod_finalize |
Variables | |
logical | module_is_initialized |
logical | do_physb_gwsrcs = .false. |
logical | do_rfdamp = .false. |
real, parameter | arad =6370.e3 |
real, parameter | pi = atan(1.0) |
real, parameter | pi2 = 2.*pi |
real, parameter | hps = 7000. |
real, parameter | hpskm = hps/1000. |
real | kxw = 6.28e-3/100. |
real, parameter | ricrit = 0.25 |
real, parameter | frcrit = 0.50 |
real, parameter | linsat = 1.00 |
real, parameter | linsat2 = linsat*linsat |
integer | knob_ugwp_solver =1 |
integer, dimension(4) | knob_ugwp_source |
integer, dimension(4) | knob_ugwp_wvspec |
integer, dimension(4) | knob_ugwp_azdir |
integer, dimension(4) | knob_ugwp_stoch |
real, dimension(4) | knob_ugwp_effac |
integer | knob_ugwp_doaxyz =1 |
integer | knob_ugwp_doheat =1 |
integer | knob_ugwp_dokdis =0 |
integer | knob_ugwp_ndx4lh = 2 |
integer | ugwp_azdir |
integer | ugwp_stoch |
integer | ugwp_src |
integer | ugwp_nws |
real | ugwp_effac |
integer | knob_ugwp_version = 0 |
integer | launch_level = 55 |
real, dimension(:), allocatable | kvg |
real, dimension(:), allocatable | ktg |
real, dimension(:), allocatable | krad |
real, dimension(:), allocatable | kion |
real, dimension(:), allocatable | zkm |
real, dimension(:), allocatable | pmb |
real, dimension(:), allocatable | rfdis |
real, dimension(:), allocatable | rfdist |
integer | levs_rf |
real | pa_rf |
real | tau_rf |
real, parameter | max_kdis = 400. |
real, parameter | max_axyz = 400.e-5 |
real, parameter | max_eps = max_kdis*4.e-7 |
real, parameter | f_coriol =1 |
real, parameter | f_nonhyd =1 |
real, parameter | f_kds =0 |
real, parameter | ipr_ktgw =1./3. |
real, parameter | ipr_spgw =iPr_ktgw |
real, parameter | ipr_turb =1./3. |
real, parameter | ipr_mol =1.95 |
real, parameter | rhp1 =1./hps |
real, parameter | rhp2 =0.5*rhp1 |
real, parameter | rhp4 = rhp2*rhp2 |
real, parameter | khp = 0.287*rhp1 |
real, parameter | cd_ulim = 1.0 |