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.
MALI-Dev · Nov 13, 2023 · e6689f6 · e6689f6
1 parent e8fa2c5
commit e6689f6
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
@@ -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