Skip to content

Commit b76abbc

Browse files
committed
Cleanup after rebase onto MALI-Dev/develop
Clean up a few items after rebasing, including changing a few instances of 'flood_fill' to 'li_flood_fill' and an instance of 'nCellsSolve' to 'nCells'
1 parent e668ae8 commit b76abbc

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

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

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -523,7 +523,7 @@ subroutine li_restore_calving_front(domain, err)
523523
calvingThickness = 0.0_RKIND
524524
restoreThickness = 0.0_RKIND
525525
526-
allocate(dCalvingThickness(nCellsSolve+1))
526+
allocate(dCalvingThickness(nCells+1))
527527
528528
! loop over locally owned cells
529529
do iCell = 1, nCells
@@ -3904,7 +3904,7 @@ subroutine remove_icebergs(domain)
39043904
where ( (seedMask == 0) .and. li_mask_is_floating_ice(cellMask(:)) .and. li_mask_is_dynamic_ice(cellMask(:)) )
39053905
growMask = 1
39063906
endwhere
3907-
call flood_fill(seedMask, growMask, domain)
3907+
call li_flood_fill(seedMask, growMask, domain)
39083908
39093909
! Add floating non-dynamic fringe, but exclude dynamic ice isolated by
39103910
! non-dynamic ice, which can cause velocity solver to fail to converge.
@@ -3916,7 +3916,7 @@ subroutine remove_icebergs(domain)
39163916
elsewhere
39173917
growMask = 0
39183918
endwhere
3919-
call flood_fill(seedMask, growMask, domain)
3919+
call li_flood_fill(seedMask, growMask, domain)
39203920
39213921
! Now remove any ice that was not flood-filled - these are icebergs
39223922
block => domain % blocklist

0 commit comments

Comments
 (0)