Skip to content

Commit

Permalink
Tidy up src/topography.f90
Browse files Browse the repository at this point in the history
Co-authored-by: Andrew Kiss <[email protected]>
  • Loading branch information
ezhilsabareesh8 and aekiss authored Nov 6, 2024
1 parent f773227 commit 979afab
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/topography.f90
Original file line number Diff line number Diff line change
Expand Up @@ -496,7 +496,7 @@ subroutine topography_min_dy(this, hgrid, cutoff)
! Apply cutoff to depth based on the provided T-cell cutoff value
do j = 1, ny_len / 2
do i = 1, (nxp_len - 1) / 2
if (dy(2 * i - 1, 2 * j) + dy(2 * i, 2 * j) < cutoff) then !Input cutoff in meters
if (dy(2 * i - 1, 2 * j) + dy(2 * i, 2 * j) < cutoff) then
this%depth(i, j) = MISSING_VALUE ! Set values below cutoff to zero or another value as needed
end if
end do
Expand Down

0 comments on commit 979afab

Please sign in to comment.