Initialize dsnown to zero as it was

CICE-Consortium · Nov 15, 2024 · aae2314 · aae2314
1 parent 918aed6
commit aae2314
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/columnphysics/icepack_therm_vertical.F90 b/columnphysics/icepack_therm_vertical.F90
@@ -2602,7 +2602,7 @@ subroutine icepack_step_therm1(dt,                        &
          congeln(n) = c0
          snoicen(n) = c0
          l_dsnown   = c0
-         if (present(dsnown)) l_dsnown = dsnown (n)
+         if (present(dsnown)) dsnown(n) = c0
 
          Trefn  = c0
          Qrefn  = c0