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