diff --git a/main/MOD_Lake.F90 b/main/MOD_Lake.F90
index af236cd3..3e2ef6e5 100644
--- a/main/MOD_Lake.F90
+++ b/main/MOD_Lake.F90
@@ -1799,7 +1799,7 @@ SUBROUTINE snowwater_lake ( USE_Dynamic_Lake, &
          ! all snow melt
          IF (c>=a+b)THEN
             t_lake(1) = (cpliq*(denh2o*dz_lake(1)*t_lake(1) + (sumsnowice+sumsnowliq)*tfrz) - a - b) / &
-                        (cpliq*(denh2o*dz_lake(1) + sumsnowice+ sumsnowice))
+                        (cpliq*(denh2o*dz_lake(1) + sumsnowice + sumsnowliq))
             sm = sm + scv/deltim
             qout_snowb = qout_snowb + scv/deltim
             scv = 0.