fixup! ice_dyn_vp: fix #42

phil-blain · Aug 10, 2022 · 52fd683 · 52fd683
1 parent 3070b9f
commit 52fd683
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/cicecore/cicedynB/dynamics/ice_dyn_vp.F90 b/cicecore/cicedynB/dynamics/ice_dyn_vp.F90
@@ -1928,6 +1928,10 @@ subroutine calc_bvec (nx_block, ny_block, &
       if (icepack_warnings_aborted()) call abort_ice(error_message=subname, &
          file=__FILE__, line=__LINE__)
 
+      ! Initialize to zero
+      bx = c0
+      by = c0
+
       do ij = 1, icellu
          i = indxui(ij)
          j = indxuj(ij)