remove one printout from sfcsub.f and uncomment z0m composition in mo…

…dule_sf_noahmplsm.F90
ufs-community · Oct 6, 2023 · 4f8004a · 4f8004a
1 parent e08ecd6
commit 4f8004a
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 4 deletions.
diff --git a/physics/module_sf_noahmplsm.F90 b/physics/module_sf_noahmplsm.F90
@@ -5826,7 +5826,7 @@ subroutine thermalz0(parameters,    fveg,          z0m, z0mg,       zlvl,
       elseif (opt_trs == chen09) then
 
 !       z0m_out = exp(fveg * log(z0m)      + (1.0 - fveg) * log(z0mg))
-!       z0m_out = fveg * z0m      + (1.0 - fveg) * z0mg
+        z0m_out = fveg * z0m      + (1.0 - fveg) * z0mg
         czil    = 10.0 ** (- 0.4 * parameters%hvt)
 
         reyn = ustarx*z0m_out/viscosity                      ! Blumel99 eqn 36c

diff --git a/physics/sfcsub.F b/physics/sfcsub.F
@@ -7491,9 +7491,6 @@ subroutine clima(lugb,iy,im,id,ih,fh,len,lsoil,slmskl,slmskw,     &
           endif
           call abort
         endif
-!
-!  soil type
-        print *,'in FIXREAD fnsotc =',fnsotc 
 !
         if(fnsotc(1:8).ne.'        ') then
           if ( index(fnsotc, "tileX.nc") == 0) then ! grib file