From 979afabeeee80a559b94fd7fc5bd6d09ebb15db1 Mon Sep 17 00:00:00 2001 From: ezhilsabareesh8 <108497463+ezhilsabareesh8@users.noreply.github.com> Date: Thu, 7 Nov 2024 10:45:57 +1100 Subject: [PATCH] Tidy up src/topography.f90 Co-authored-by: Andrew Kiss <31054815+aekiss@users.noreply.github.com> --- src/topography.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/topography.f90 b/src/topography.f90 index a9c0835..62af6e3 100644 --- a/src/topography.f90 +++ b/src/topography.f90 @@ -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