Add missing updates from IPD physics commit 7ffe647

NCAR · Jan 27, 2020 · 4c7dcaa · 4c7dcaa
1 parent 01ed01f
commit 4c7dcaa
Show file tree

Hide file tree

Showing 5 changed files with 1 addition and 1 deletion.
diff --git a/physics/module_gfdl_cloud_microphys.F90 b/physics/module_gfdl_cloud_microphys.F90
@@ -3320,7 +3320,7 @@ subroutine fall_speed (ktop, kbot, den, qs, qi, qg, ql, tk, vts, vti, vtg)
             else
                 tc (k) = tk (k) - tice
                 vti (k) = (3. + log10 (qi (k) * den (k))) * (tc (k) * (aa * tc (k) + bb) + cc) + dd * tc (k) + ee
-                vti (k) = vi0 * exp (log_10 * vti (k)) * 0.8 
+                vti (k) = vi0 * exp (log_10 * vti (k)) * 0.9
                 vti (k) = min (vi_max, max (vf_min, vti (k)))
             endif
         enddo

diff --git a/physics/module_sf_noahmp_glacier.f90 b/physics/module_sf_noahmp_glacier.f90
diff --git a/physics/module_sf_noahmplsm.f90 b/physics/module_sf_noahmplsm.f90
diff --git a/physics/noahmp_tables.f90 b/physics/noahmp_tables.f90
diff --git a/physics/sfc_noahmp_drv.f b/physics/sfc_noahmp_drv.f