|
subroutine, public | rascnv_init (me, dt, con_g, con_cp, con_rd, con_rv, con_hvap, con_hfus, con_fvirt, con_t0c, con_ttp, con_cvap, con_cliq, con_csol, con_eps, con_epsm1, errmsg, errflg) |
| The subroutine initializes rascnv.
|
|
subroutine, public | rascnv_run (im, k, itc, ntc, ntr, dt, dtf, ccwf, area, dxmin, dxinv, psauras, prauras, wminras, dlqf, flipv, me, rannum, nrcm, mp_phys, mp_phys_mg, ntk, kdt, rhc, tin, qin, uin, vin, ccin, fscav, prsi, prsl, prsik, prslk, phil, phii, kpbl, cdrag, rainc, kbot, ktop, kcnv, ddvel, ud_mf, dd_mf, dt_mf, qlcn, qicn, w_upi, cf_upi, cnv_mfd, cnv_dqldt, clcn, cnv_fice, cnv_ndrop, cnv_nice, errmsg, errflg) |
|
subroutine | cloud (k, kp1, kd, ntrc, kblmx, kblmn, fracbl, max_neg_bouy, vsmooth, aw_scal, revap, wrkfun, calkbl, crtfun, dt, kdt, tla, dpd, alfint, rhfacl, rhfacs, area, ccwf, cd, trcfac, alfind, rhc_ls, phil, phih, prs, prsm, sgcs, toi, qoi, roi, qli, qii, kpbl, dsfc, tcu, qcu, rcu, pcu, flx, flxd, cup, wfnc, fscav_, trcmin, ntk, c0, qw0, c0i, qi0, dlq_fac) |
|
subroutine | ddrft (k, kp1, kd, tla, alfind, wcbase, tol, qol, hol, prl, qst, hst, gam, gaf, qrb, qrt, buy, kbl, idh, eta, rnn, etai, alm, wfn, train, ddft, etd, hod, qod, evp, dof, cldfrd, wcb, gms, gsd, ghd, wvlu) |
|
subroutine | qsatcn (tt, p, q, dqdt) |
|
subroutine | angrad (pres, alm, al2, tla) |
|
subroutine | setqrp |
|
subroutine | qrabf (qrp, qraf, qrbf) |
|
subroutine | setvtp |
|
real(kind=kind_phys) function | qrpf (qrp) |
|
real(kind=kind_phys) function | vtpf (ror) |
|
real(kind=kind_phys) function | clf (prate) |
|
|
logical | is_initialized = .False. |
|
integer, parameter | kp = kind_phys |
|
integer, parameter | nrcmax =32 |
|
integer, parameter | idnmax =999 |
|
real(kind=kind_phys), parameter | delt_c =1800.0_kp/3600.0_kp |
|
real(kind=kind_phys), parameter | adjts_d =2.0_kp |
|
real(kind=kind_phys), parameter | adjts_s =0.5_kp |
|
logical, parameter | fix_ncld_hr =.true. |
|
real(kind=kind_phys), parameter | zero =0.0_kp |
|
real(kind=kind_phys), parameter | half =0.5_kp |
|
real(kind=kind_phys), parameter | pt25 =0.25_kp |
|
real(kind=kind_phys), parameter | one =1.0_kp |
|
real(kind=kind_phys), parameter | two =2.0_kp |
|
real(kind=kind_phys), parameter | four =4.0_kp |
|
real(kind=kind_phys), parameter | twoo3 =two/3.0_kp |
|
real(kind=kind_phys), parameter | four_p2 =4.0e2_kp |
|
real(kind=kind_phys), parameter | one_m10 =1.0e-10_kp |
|
real(kind=kind_phys), parameter | one_m6 =1.0e-6_kp |
|
real(kind=kind_phys), parameter | one_m5 =1.0e-5_kp |
|
real(kind=kind_phys), parameter | one_m2 =1.0e-2_kp |
|
real(kind=kind_phys), parameter | one_m1 =1.0e-1_kp |
|
real(kind=kind_phys), parameter | oneolog10 =one/log(10.0_kp) |
|
real(kind=kind_phys), parameter | rain_min =1.0e-13_kp |
|
real(kind=kind_phys), parameter | facmb =0.01_kp |
|
real(kind=kind_phys), parameter | cmb2pa =100.0_kp |
|
real(kind=kind_phys), parameter | frac =0.1_kp |
|
real(kind=kind_phys), parameter | crtmsf =0.0_kp |
|
real(kind=kind_phys), parameter | tfrac_max =0.15_kp |
|
real(kind=kind_phys), parameter | rhfacs =0.75_kp |
|
real(kind=kind_phys), parameter | rhfacl =0.75_kp |
|
real(kind=kind_phys), parameter | face =5.0_kp |
|
real(kind=kind_phys), parameter | delx =10000.0_kp |
|
real(kind=kind_phys), parameter | ddfac =face*delx*0.001_kp |
|
real(kind=kind_phys), parameter | max_neg_bouy =0.15_kp |
|
real(kind=kind_phys), parameter | testmb =0.1_kp |
|
real(kind=kind_phys), parameter | testmbi =one/testmb |
|
real(kind=kind_phys), parameter | dpd =0.5_kp |
|
real(kind=kind_phys), parameter | rknob =1.0_kp |
|
real(kind=kind_phys), parameter | eknob =1.0_kp |
|
logical, parameter | aw_scal =.true. |
|
logical, parameter | cumfrc =.true. |
|
logical, parameter | updret =.false. |
|
logical, parameter | vsmooth =.false. |
|
logical, parameter | wrkfun =.false. |
|
logical, parameter | crtfun =.true. |
|
logical, parameter | calkbl =.true. |
|
logical, parameter | botop =.true. |
|
logical, parameter | revap =.true. |
|
logical, parameter | advcld =.true. |
|
logical, parameter | advups =.false. |
|
logical, parameter | advtvd =.true. |
|
real(kind=kind_phys), parameter | tf =233.16_kp |
|
real(kind=kind_phys), parameter | tcr =273.16_kp |
|
real(kind=kind_phys), parameter | tcrf =one/(TCR-TF) |
|
real(kind=kind_phys), parameter | tcl =2.0_kp |
|
real(kind=kind_phys), parameter | pgftop =0.0_kp |
|
real(kind=kind_phys), parameter | pgfbot =0.0_kp |
|
real(kind=kind_phys), parameter | pgfgrad =(pgfbot-pgftop)*0.001_kp |
|
real(kind=kind_phys), parameter | cfmax =0.1_kp |
|
real(kind=kind_phys), dimension(6) | refp |
|
real(kind=kind_phys), dimension(6) | refr |
|
real(kind=kind_phys), dimension(8) | tlac |
|
real(kind=kind_phys), dimension(8) | plac |
|
real(kind=kind_phys), dimension(7) | tlbpl |
|
real(kind=kind_phys), dimension(5) | drdp |
|
real(kind=kind_phys), dimension(16) | ac |
|
real(kind=kind_phys), dimension(16) | ad |
|
integer, parameter | nqrp =500001 |
|
real(kind=kind_phys) | c1xqrp |
|
real(kind=kind_phys) | c2xqrp |
|
real(kind=kind_phys), dimension(nqrp) | tbqrp |
|
real(kind=kind_phys), dimension(nqrp) | tbqra |
|
real(kind=kind_phys), dimension(nqrp) | tbqrb |
|
integer, parameter | nvtp =10001 |
|
real(kind=kind_phys) | c1xvtp |
|
real(kind=kind_phys) | c2xvtp |
|
real(kind=kind_phys), dimension(nvtp) | tbvtp |
|
real(kind=kind_phys) | afc |
|
real(kind=kind_phys) | facdt |
|
real(kind=kind_phys) | grav |
|
real(kind=kind_phys) | cp |
|
real(kind=kind_phys) | alhl |
|
real(kind=kind_phys) | alhf |
|
real(kind=kind_phys) | rgas |
|
real(kind=kind_phys) | rkap |
|
real(kind=kind_phys) | nu |
|
real(kind=kind_phys) | pi |
|
real(kind=kind_phys) | t0c |
|
real(kind=kind_phys) | rv |
|
real(kind=kind_phys) | cvap |
|
real(kind=kind_phys) | cliq |
|
real(kind=kind_phys) | csol |
|
real(kind=kind_phys) | ttp |
|
real(kind=kind_phys) | eps |
|
real(kind=kind_phys) | epsm1 |
|
real(kind=kind_phys) | onebg |
|
real(kind=kind_phys) | gravcon |
|
real(kind=kind_phys) | onebcp |
|
real(kind=kind_phys) | gravfac |
|
real(kind=kind_phys) | elocp |
|
real(kind=kind_phys) | elfocp |
|
real(kind=kind_phys) | oneoalhl |
|
real(kind=kind_phys) | cmpor |
|
real(kind=kind_phys) | picon |
|
real(kind=kind_phys) | zfac |
|
real(kind=kind_phys) | deg2rad |
|
real(kind=kind_phys) | piinv |
|
real(kind=kind_phys) | testmboalhl |
|
real(kind=kind_phys) | rvi |
|
real(kind=kind_phys) | facw |
|
real(kind=kind_phys) | faci |
|
real(kind=kind_phys) | hsub |
|
real(kind=kind_phys) | tmix |
|
real(kind=kind_phys) | den |
|