Update grounded and floating calving budgets incrementally

Update grounded and floating calving budgets incrementally, which is required to close budget.
MALI-Dev · Feb 23, 2023 · 6d73a85 · 6d73a85
1 parent 2202bf0
commit 6d73a85
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
@@ -4240,9 +4240,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(:)