Adding back a missing exclamation point in module_bl_mynn.F90 and add…

…ing a limit to protect against the ridiculously large z0s when using thin first model levels in module_sf_mynn.F90
ufs-community · Oct 19, 2023 · ffb0912 · ffb0912
1 parent 14c5887
commit ffb0912
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/physics/module_bl_mynn.F90 b/physics/module_bl_mynn.F90
@@ -1,5 +1,5 @@
 !>\file module_bl_mynn.F90
-! This file contains the entity of MYNN-EDMF PBL scheme.
+!! This file contains the entity of MYNN-EDMF PBL scheme.
 ! **********************************************************************
 ! *   An improved Mellor-Yamada turbulence closure model               *
 ! *                                                                    *

diff --git a/physics/module_sf_mynn.F90 b/physics/module_sf_mynn.F90
@@ -1380,6 +1380,8 @@ SUBROUTINE SFCLAY1D_mynn(flag_iter,                            &
        else
           ZNTstoch_lnd(I)  = ZNT_lnd(I)
        endif
+       !add limit to prevent ridiculous values of z0 (more than dz/15)
+       ZNTstoch_lnd(I) = min(ZNTstoch_lnd(I), dz8w1d(i)*0.0666)
 
        !--------------------------------------
        ! LAND