From 43652ade2db89e61f245d2a8f23fa2459e38d29a Mon Sep 17 00:00:00 2001 From: Trevor Ray Hillebrand Date: Thu, 3 Nov 2022 10:21:51 -0600 Subject: [PATCH] Update grounded and floating calving budgets incrementally Update grounded and floating calving budgets incrementally, which is required to close budget. --- .../mpas-albany-landice/src/mode_forward/mpas_li_calving.F | 4 ++-- 1 file changed, 2 insertions(+), 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 index 96cff1ae30e4..268e55789631 100644 --- 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(:)