initialize some additional variables for new icebergs in calve_iceber…

…gs, for backwards compatibility in chksums when footloose=.true.
NOAA-GFDL · Jan 4, 2023 · f4d45da · f4d45da
1 parent 8045fd4
commit f4d45da
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/icebergs.F90 b/src/icebergs.F90
@@ -6309,7 +6309,8 @@ subroutine calve_icebergs(bergs)
           newberg%uvel=0.
           newberg%vvel=0.
           !--added by Alex:
-          if (bergs%interactive_icebergs_on) then
+          if (bergs%interactive_icebergs_on .or. footloose) then
+            !not needed? But provided for backwards compatibility:
             newberg%uvel_prev=0.
             newberg%vvel_prev=0.
             newberg%uvel_old=0.