From 5924c680499bff065e207d6cc2bc98272866e2f0 Mon Sep 17 00:00:00 2001 From: Sean Swenson Date: Mon, 11 Sep 2023 13:56:41 -0600 Subject: [PATCH] reintroduce if-block --- src/biogeophys/SoilHydrologyMod.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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