Skip to content

Commit

Permalink
Cleanup after rebase onto MALI-Dev/develop
Browse files Browse the repository at this point in the history
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.
  • Loading branch information
trhille committed Nov 2, 2022
1 parent e668ae8 commit 31a4999
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 5 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -187,7 +187,6 @@ subroutine li_advection_thickness_tracers(&
basalTracersField ! scratch field containing values of basal tracers

type (field1DInteger), pointer :: &
cellMaskTemporaryField, & ! scratch field containing old values of cellMask
thermalCellMaskField

integer, dimension(:), pointer :: &
Expand Down Expand Up @@ -626,7 +625,6 @@ subroutine li_advection_thickness_tracers(&
call mpas_deallocate_scratch_field(layerThicknessOldField, .true.)
call mpas_deallocate_scratch_field(basalTracersField, .true.)
call mpas_deallocate_scratch_field(surfaceTracersField, .true.)
call mpas_deallocate_scratch_field(cellMaskTemporaryField, .true.)
call mpas_deallocate_scratch_field(thermalCellMaskField, .true.)
! === error check
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -523,7 +523,7 @@ subroutine li_restore_calving_front(domain, err)
calvingThickness = 0.0_RKIND
restoreThickness = 0.0_RKIND
allocate(dCalvingThickness(nCellsSolve+1))
allocate(dCalvingThickness(nCells+1))
! loop over locally owned cells
do iCell = 1, nCells
Expand Down Expand Up @@ -3904,7 +3904,7 @@ subroutine remove_icebergs(domain)
where ( (seedMask == 0) .and. li_mask_is_floating_ice(cellMask(:)) .and. li_mask_is_dynamic_ice(cellMask(:)) )
growMask = 1
endwhere
call flood_fill(seedMask, growMask, domain)
call li_flood_fill(seedMask, growMask, domain)
! Add floating non-dynamic fringe, but exclude dynamic ice isolated by
! non-dynamic ice, which can cause velocity solver to fail to converge.
Expand All @@ -3916,7 +3916,7 @@ subroutine remove_icebergs(domain)
elsewhere
growMask = 0
endwhere
call flood_fill(seedMask, growMask, domain)
call li_flood_fill(seedMask, growMask, domain)
! Now remove any ice that was not flood-filled - these are icebergs
block => domain % blocklist
Expand Down

0 comments on commit 31a4999

Please sign in to comment.