diff --git a/physics/sfcsub.F b/physics/sfcsub.F
index b0aefb858..a9c219052 100644
--- a/physics/sfcsub.F
+++ b/physics/sfcsub.F
@@ -2019,12 +2019,14 @@ subroutine sfccycle(lugb,len,lsoil,sig1t,deltsfc                    &
 !    *,' tsffcs=',tsffcs(iprnt),' slianl=',slianl(iprnt)
 
       do i=1,len
+       if (nint(slmskl(i)) /= 1) then
         if (sicanl(i) >= min_ice(i)) then
           slianl(i) = 2.0_kind_io8
         else
           slianl(i) = zero
           sicanl(i) = zero
         endif
+       endif
       enddo
 
       if (fh-deltsfc > -0.001 ) then