reintroduce if-block

swensosc · Sep 11, 2023 · 5924c68 · 5924c68
1 parent 3034da1
commit 5924c68
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/biogeophys/SoilHydrologyMod.F90 b/src/biogeophys/SoilHydrologyMod.F90
@@ -2447,7 +2447,7 @@ subroutine SubsurfaceLateralFlow(bounds,  &
             do j = jwt(c)+1,1,-1
 
                ! ensure water is not added to frozen layers
-!scs               if (zi(c,j) < frost_table(c)) then 
+               if (zi(c,j) < frost_table(c)) then 
                   ! analytical expression for specific yield
                   s_y = watsat(c,j) &
                        * ( 1. - (1.+1.e3*zwt(c)/sucsat(c,j))**(-1./bsw(c,j)))
@@ -2466,7 +2466,7 @@ subroutine SubsurfaceLateralFlow(bounds,  &
                   else
                      zwt(c) = zi(c,j-1)
                   endif
-!scs               endif
+               endif
 
             enddo