Update grounded and floating calving budgets incrementally

Update grounded and floating calving budgets incrementally, which is required to close budget.
MALI-Dev · Mar 2, 2023 · 43652ad · 43652ad
1 parent 1a2fe1c
commit 43652ad
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/components/mpas-albany-landice/src/mode_forward/mpas_li_calving.F b/components/mpas-albany-landice/src/mode_forward/mpas_li_calving.F
@@ -4331,9 +4331,9 @@ subroutine update_calving_budget(geometryPool, dCalvingThickness)
       call mpas_pool_get_array(geometryPool, 'calvingThickness', calvingThickness)
 
       where (groundedMaskForMassBudget .eq. 1)
-          groundedCalvingThickness = dCalvingThickness
+          groundedCalvingThickness = groundedCalvingThickness + dCalvingThickness
       elsewhere (floatingMaskForMassBudget .eq. 1)
-          floatingCalvingThickness = dCalvingThickness
+          floatingCalvingThickness = floatingCalvingThickness + dCalvingThickness
       end where
 
       calvingThickness(:) = calvingThickness(:) + dCalvingThickness(:)