Modify TKE-EMDF to TTE-EDMF from Jongil's GFSPBL changes

hafs-community · Jul 12, 2024 · 24a908e · 24a908e
1 parent c700e1b
commit 24a908e
Show file tree

Hide file tree

Showing 3 changed files with 131 additions and 59 deletions.
diff --git a/physics/PBL/SATMEDMF/mfscuq.f b/physics/PBL/SATMEDMF/mfscuq.f
@@ -82,7 +82,7 @@ subroutine mfscuq(im,ix,km,kmscu,ntcw,ntrac1,delt,
       parameter(g=grav)
       parameter(gocp=g/cp)
       parameter(elocp=hvap/cp,el2orc=hvap*hvap/(rv*cp))
-      parameter(ce0=0.4,cm=1.0,cq=1.0,pgcon=0.55)
+      parameter(ce0=0.43,cm=1.0,cq=1.0,pgcon=0.55)
       parameter(tkcrt=2.,cmxfac=5.)
       parameter(qmin=1.e-8,qlmin=1.e-12)
       parameter(b1=0.45,f1=0.15)