Skip to content

Commit e6689f6

Browse files
committed
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.
1 parent e8fa2c5 commit e6689f6

1 file changed

Lines changed: 2 additions & 2 deletions

File tree

components/mpas-albany-landice/src/mode_forward/mpas_li_calving.F

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3846,11 +3846,11 @@ subroutine apply_calving_damage_threshold(meshPool, geometryPool, scratchPool, d
38463846
growMask(:) = 0
38473847
38483848
! define seed and grow masks for flood fill.
3849-
where ( li_mask_is_dynamic_margin(cellMask) .and. (damage .ge. config_damage_calving_threshold) )
3849+
where ( li_mask_is_dynamic_margin(cellMask) .and. li_mask_is_floating_ice(cellMask) .and. (damage .ge. config_damage_calving_threshold) )
38503850
seedMask = 1
38513851
end where
38523852
3853-
where ( seedMask == 0 .and. (damage .ge. config_damage_calving_threshold) )
3853+
where ( seedMask == 0 .and. li_mask_is_floating_ice(cellMask) .and. (damage .ge. config_damage_calving_threshold) )
38543854
growMask = 1
38553855
end where
38563856

0 commit comments

Comments
 (0)