File tree Expand file tree Collapse file tree 2 files changed +3
-5
lines changed
components/mpas-albany-landice/src/mode_forward Expand file tree Collapse file tree 2 files changed +3
-5
lines changed Original file line number Diff line number Diff 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
Original file line number Diff line number Diff 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
You can’t perform that action at this time.
0 commit comments