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