From 918aed6292e07e4f2981f6e94bda10ca92dca914 Mon Sep 17 00:00:00 2001 From: David Bailey Date: Tue, 12 Nov 2024 13:35:20 -0700 Subject: [PATCH] Reload dsnow and dsnown --- columnphysics/icepack_therm_vertical.F90 | 3 +++ 1 file changed, 3 insertions(+) diff --git a/columnphysics/icepack_therm_vertical.F90 b/columnphysics/icepack_therm_vertical.F90 index 8f264155..ea7ddca0 100644 --- a/columnphysics/icepack_therm_vertical.F90 +++ b/columnphysics/icepack_therm_vertical.F90 @@ -2932,6 +2932,8 @@ subroutine icepack_step_therm1(dt, & endif + if (present(dsnown )) dsnown(n) = l_dsnown + enddo ! ncat !----------------------------------------------------------------- @@ -2957,6 +2959,7 @@ subroutine icepack_step_therm1(dt, & if (present(meltsliqn )) meltsliqn = l_meltsliqn if (present(meltsliq )) meltsliq = l_meltsliq + if (present(dsnow )) dsnow = l_dsnow !----------------------------------------------------------------- ! Calculate ponds from the topographic scheme