Skip to content

Commit 31a4999

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', an instance of 'nCellsSolve' to 'nCells', and removing cellMaskTemporaryField from li_advection_thickness_tracers.
1 parent e668ae8 commit 31a4999

File tree

2 files changed

+3
-5
lines changed

2 files changed

+3
-5
lines changed

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

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -187,7 +187,6 @@ subroutine li_advection_thickness_tracers(&
187187
basalTracersField ! scratch field containing values of basal tracers
188188

189189
type (field1DInteger), pointer :: &
190-
cellMaskTemporaryField, & ! scratch field containing old values of cellMask
191190
thermalCellMaskField
192191

193192
integer, dimension(:), pointer :: &
@@ -626,7 +625,6 @@ subroutine li_advection_thickness_tracers(&
626625
call mpas_deallocate_scratch_field(layerThicknessOldField, .true.)
627626
call mpas_deallocate_scratch_field(basalTracersField, .true.)
628627
call mpas_deallocate_scratch_field(surfaceTracersField, .true.)
629-
call mpas_deallocate_scratch_field(cellMaskTemporaryField, .true.)
630628
call mpas_deallocate_scratch_field(thermalCellMaskField, .true.)
631629
632630
! === error check

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)