bug fix for snow layer combine

NCAR · Sep 19, 2023 · e0d2064 · e0d2064
1 parent 151daf8
commit e0d2064
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/SnowLayerCombineMod.F90 b/src/SnowLayerCombineMod.F90
@@ -61,7 +61,7 @@ subroutine SnowLayerCombine(noahmp)
              SnowIce(J+1)                = SnowIce(J+1) + SnowIce(J)
              ThicknessSnowSoilLayer(J+1) = ThicknessSnowSoilLayer(J+1) + ThicknessSnowSoilLayer(J)
           else
-             if ( NumSnowLayerOld < -1 ) then    ! MB/KM: change to NumSnowLayerNeg
+             if ( NumSnowLayerNeg < -1 ) then    ! MB/KM: change to NumSnowLayerNeg
                 SnowLiqWater(J-1)           = SnowLiqWater(J-1) + SnowLiqWater(J)
                 SnowIce(J-1)                = SnowIce(J-1) + SnowIce(J)
                 ThicknessSnowSoilLayer(J-1) = ThicknessSnowSoilLayer(J-1) + ThicknessSnowSoilLayer(J)