Skip to content

Commit f080635

Browse files
authored
Fixes off-by-one indexing error in hydrostatic pressure integrat… (#612)
Fixes off-by-one indexing error in hydrostatic pressure integration
2 parents 88a4f8f + 7d4e5b6 commit f080635

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/TimeSteppers/kernels.jl

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -168,10 +168,10 @@ the `buoyancy_perturbation` downwards:
168168
"""
169169
function update_hydrostatic_pressure!(pHY′, grid, buoyancy, C)
170170
@loop_xy i j grid begin
171-
@inbounds pHY′[i, j, grid.Nz] = - ℑzᵃᵃᶠ(i, j, grid.Nz, grid, buoyancy_perturbation, buoyancy, C) * ΔzF(i, j, grid.Nz, grid)
171+
@inbounds pHY′[i, j, grid.Nz] = - ℑzᵃᵃᶠ(i, j, grid.Nz+1, grid, buoyancy_perturbation, buoyancy, C) * ΔzF(i, j, grid.Nz+1, grid)
172172
@unroll for k in grid.Nz-1 : -1 : 1
173173
@inbounds pHY′[i, j, k] =
174-
pHY′[i, j, k+1] - ℑzᵃᵃᶠ(i, j, k+1, grid, buoyancy_perturbation, buoyancy, C) * ΔzF(i, j, k, grid)
174+
pHY′[i, j, k+1] - ℑzᵃᵃᶠ(i, j, k+1, grid, buoyancy_perturbation, buoyancy, C) * ΔzF(i, j, k+1, grid)
175175
end
176176
end
177177
return nothing

0 commit comments

Comments
 (0)