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

Functions/Subroutines

subroutine, public jsfc (flag_iter, iter, me, ntsd, epsq2, ht, dz, phmid, phint, th, t, q, qc, u, v, q2, tsk, qsfc, thz0, qz0, uz0, vz0, xland, ustar, z0, z0base, pblh, mavail, rmol, akhs, akms, chklowq, hlflx, rib, cm, ch, stress, ffm, ffh, wind, fm10, fh2, a1u, a1t, a1q, ids, ide, jds, jde, kds, kde, ims, ime, jms, jme, kms, kme, its, ite, jts, jte, kts, lm, errmsg, errflg)
 
subroutine sfcdif (ntsd, seamask, ths, qs, psfc, uz0, vz0, tz0, thz0, qz0, ustar, z0, z0base, ct, rlmo, akms, akhs, pblh, wetm, chs, chs2, cqs2, hfx, qfx, flx_lh, flhc, flqc, qgh, cpm, ulow, vlow, tlow, thlow, thelow, qlow, cwmlow, zsl, plow, hlflx, u10, v10, th02, th10, q02, q10, pshltr, ffm, ffh, fm10, fh2, a1u, a1t, a1q, ids, ide, jds, jde, kds, kde, ims, ime, jms, jme, kms, kme, its, ite, jts, jte, kts, lm, i, j, zsfc, rib, errmsg, errflg)
 
subroutine, public jsfc_init (ustar, restart, ids, ide, jds, jde, kds, kde, ims, ime, jms, jme, kms, kme, its, ite, jts, jte, kts, lm)
 

Variables

integer itrmx =5
 
real(kind=kfpt), parameter vkarman =0.4
 
real(kind=kfpt), parameter a2 =17.2693882
 
real(kind=kfpt), parameter a3 =273.15
 
real(kind=kfpt), parameter a4 =35.86
 
real(kind=kfpt), parameter cp =1004.6
 
real(kind=kfpt), parameter elwv =2.501e6
 
real(kind=kfpt), parameter epsq2 =0.02
 
real(kind=kfpt), parameter g =9.8060226
 
real(kind=kfpt), parameter pq0 =379.90516
 
real(kind=kfpt), parameter r_d =287.04
 
real(kind=kfpt), parameter r_v =461.6
 
real(kind=kfpt), parameter p608 =R_V/R_D-1.
 
real(kind=kfpt), parameter cappa =R_D/CP
 
real(kind=kfpt), parameter pi =3.141592653589793
 
real(kind=kfpt), parameter xlv =ELWV
 
real(kind=kfpt), parameter elocp =2.72E6/CP
 
real(kind=kfpt), parameter a2s =17.2693882
 
real(kind=kfpt), parameter a3s =273.16
 
real(kind=kfpt), parameter a4s =35.86
 
real(kind=kfpt), parameter glkbr =10.
 
real(kind=kfpt), parameter glkbs =30.
 
real(kind=kfpt), parameter qvisc =2.1E-5
 
real(kind=kfpt), parameter ric =0.505
 
real(kind=kfpt), parameter small =0.35
 
real(kind=kfpt), parameter sqpr =0.84
 
real(kind=kfpt), parameter sqsc =0.84
 
real(kind=kfpt), parameter sqvisc =258.2
 
real(kind=kfpt), parameter tvisc =2.1E-5
 
real(kind=kfpt), parameter ustc =0.7
 
real(kind=kfpt), parameter ustr =0.225
 
real(kind=kfpt), parameter visc =1.5E-5
 
real(kind=kfpt), parameter wwst =1.2
 
real(kind=kfpt), parameter ztfc =1.
 
real(kind=kfpt), parameter seafc =0.98
 
real(kind=kfpt), parameter pq0sea =PQ0*SEAFC
 
real(kind=kfpt), parameter cziv =SMALL*GLKBS
 
real(kind=kfpt), parameter grrs =GLKBR/GLKBS
 
real(kind=kfpt), parameter rtvisc =1./TVISC
 
real(kind=kfpt), parameter rvisc =1./VISC
 
real(kind=kfpt), parameter zqrzt =SQSC/SQPR
 
real(kind=kfpt), parameter ustfc =0.018/G
 
real(kind=kfpt), parameter fzq1 =RTVISC*QVISC*ZQRZT
 
real(kind=kfpt), parameter fzq2 =RTVISC*QVISC*ZQRZT
 
real(kind=kfpt), parameter fzt1 =RVISC *TVISC*SQPR
 
real(kind=kfpt), parameter fzt2 =CZIV*GRRS*TVISC*SQPR
 
real(kind=kfpt), parameter fzu1 =CZIV*VISC
 
real(kind=kfpt), parameter wwst2 =WWST*WWST
 
real(kind=kfpt), parameter rqvisc =1./QVISC
 
real(kind=kfpt), parameter rcap =1./CAPPA
 
real(kind=kfpt), parameter gocp02 =G/CP*2.
 
real(kind=kfpt), parameter gocp10 =G/CP*10.
 
real(kind=kfpt), parameter epsu2 =1.E-6
 
real(kind=kfpt), parameter epsust =1.E-9
 
real(kind=kfpt), parameter epszt =1.E-28
 
real(kind=kfpt), parameter czil =0.1
 
real(kind=kfpt), parameter excml =0.0001
 
real(kind=kfpt), parameter excms =0.0001
 
real(kind=kfpt), parameter fh =1.10
 
real(kind=kfpt), parameter topofac =9.0e-6
 
real(kind=kfpt), parameter zilfc =-CZIL*VKARMAN*SQVISC
 
real(kind=kfpt), parameter epsq =1.e-9
 
integer, parameter kztm =10001
 
integer, parameter kztm2 =KZTM-2
 
real(kind=kfpt), save, private dzeta1
 
real(kind=kfpt), save, private dzeta2
 
real(kind=kfpt), save, private fh01
 
real(kind=kfpt), save, private fh02
 
real(kind=kfpt), save, private ztmax1
 
real(kind=kfpt), save, private ztmax2
 
real(kind=kfpt), save, private ztmin1
 
real(kind=kfpt), save, private ztmin2
 
real(kind=kfpt), dimension(kztm), save, private psih1
 
real(kind=kfpt), dimension(kztm), save, private psih2
 
real(kind=kfpt), dimension(kztm), save, private psim1
 
real(kind=kfpt), dimension(kztm), save, private psim2
 
integer ierr