Skip to content

Commit

Permalink
Remove cellMask from vertical_remap
Browse files Browse the repository at this point in the history
Remove cellMask from vertical_remap, as it is not used in that routine.
  • Loading branch information
trhille committed Apr 12, 2024
1 parent b811b20 commit fdbbe73
Showing 1 changed file with 2 additions and 5 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -696,7 +696,7 @@ subroutine li_advection_thickness_tracers(&
! Note: If tracers are not being advected, then this subroutine simply restores the
! layer thickness to sigma coordinate values.
call vertical_remap(thickness, cellMask, meshPool, layerThickness, advectedTracers, err_tmp)
call vertical_remap(thickness, meshPool, layerThickness, advectedTracers, err_tmp)
err = ior(err, err_tmp)
if (config_print_thickness_advection_info) then
Expand Down Expand Up @@ -1968,7 +1968,7 @@ end subroutine li_layer_normal_velocity
!> OpenMP over either blocks or cells.
!
!-----------------------------------------------------------------------
subroutine vertical_remap(thickness, cellMask, meshPool, layerThickness, tracers, err)
subroutine vertical_remap(thickness, meshPool, layerThickness, tracers, err)
!-----------------------------------------------------------------
!
Expand All @@ -1982,9 +1982,6 @@ subroutine vertical_remap(thickness, cellMask, meshPool, layerThickness, tracers
real(kind=RKIND), dimension(:), intent(in) :: &
thickness !< Input: ice thickness
integer, dimension(:), intent(in) :: &
cellMask !< Input: mask for cells (needed for determining presence/absence of ice)
!-----------------------------------------------------------------
!
! input/output variables
Expand Down

0 comments on commit fdbbe73

Please sign in to comment.