From e6689f64bed1fb5b8950c7f06da426cac53ea0c8 Mon Sep 17 00:00:00 2001 From: Trevor Ray Hillebrand Date: Sun, 15 Oct 2023 15:48:10 -0600 Subject: [PATCH] Disable damage threshold calving for grounded ice Disable damage threshold calving for grounded ice now that damage is no longer set to zero for grounded ice. --- .../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 26b67cffedd2..575886c0e4a5 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 @@ -3846,11 +3846,11 @@ subroutine apply_calving_damage_threshold(meshPool, geometryPool, scratchPool, d growMask(:) = 0 ! define seed and grow masks for flood fill. - where ( li_mask_is_dynamic_margin(cellMask) .and. (damage .ge. config_damage_calving_threshold) ) + where ( li_mask_is_dynamic_margin(cellMask) .and. li_mask_is_floating_ice(cellMask) .and. (damage .ge. config_damage_calving_threshold) ) seedMask = 1 end where - where ( seedMask == 0 .and. (damage .ge. config_damage_calving_threshold) ) + where ( seedMask == 0 .and. li_mask_is_floating_ice(cellMask) .and. (damage .ge. config_damage_calving_threshold) ) growMask = 1 end where