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 Mar 2, 2023
1 parent a62f4e1 commit 1a2fe1c
Show file tree
Hide file tree
Showing 2 changed files with 1 addition and 3 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 @@ -592,7 +592,7 @@ subroutine li_restore_calving_front(domain, err)
endif ! if preventing retreat
! Now check for marine regions that have advanced
allocate(dCalvingThickness(nCellsSolve+1))
allocate(dCalvingThickness(nCells+1))
! loop over locally owned cells
do iCell = 1, nCells
Expand Down

0 comments on commit 1a2fe1c

Please sign in to comment.