bug fix for lake model after rebase

jinyun1tang · Aug 5, 2024 · cd7234d · cd7234d
1 parent c96265c
commit cd7234d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/f77src/ecosys_core/redist.f b/f77src/ecosys_core/redist.f
@@ -4443,7 +4443,7 @@ SUBROUTINE redist(I,J,NHW,NHE,NVN,NVS)
       else
       VOLW(L,NY,NX)=VOLW(L,NY,NX)+TFLW(L,NY,NX)+FINH(L,NY,NX)
      2+TTHAW(L,NY,NX)+TUPWTR(L,NY,NX)+FLU(L,NY,NX)
-
+      endif
 C      if(VOLW(L,NY,NX)<0. .and. L==NU(NY,NX))then
 C      write(*,*)VOLWXX,VOLW(L,NY,NX),TFLW(L,NY,NX),FINH(L,NY,NX)
 C     2,TTHAW(L,NY,NX),TUPWTR(L,NY,NX),FLU(L,NY,NX)