FV3: this commits #refs 50871

gsketefian · May 25, 2018 · 42ea482 · 42ea482
1 parent 140afa2
commit 42ea482
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/gfsphysics/physics/sfcsub.F b/gfsphysics/physics/sfcsub.F
@@ -1997,7 +1997,7 @@ subroutine sfccycle(lugb,len,lsoil,sig1t,deltsfc
 !     if(lprnt) print *,'tsfclm=',tsfclm(iprnt),' tsfcl2=',tsfcl2(iprnt)
 !    *,' tsffcs=',tsffcs(iprnt),' slianl=',slianl(iprnt)
 
-      if (fh > 0.0) then
+      if (fh -deltsfc > 0.001) then
         do i=1,len
           if(slianl(i) == 0.0) then
             tsffcs(i) = tsffcs(i) + (tsfclm(i) - tsfcl2(i))