diff --git a/src/biogeophys/SoilHydrologyMod.F90 b/src/biogeophys/SoilHydrologyMod.F90 index 71b8a9ef96..27f49035a8 100644 --- 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