diff --git a/src/topography.f90 b/src/topography.f90 index 82db473..a9c0835 100644 --- a/src/topography.f90 +++ b/src/topography.f90 @@ -493,7 +493,7 @@ subroutine topography_min_dy(this, hgrid, cutoff) ! Calculate T cell size based on dy ! For each point, the T cell size is a sum of dy(2*i-1, 2*j) and dy(2*i, 2*j) - ! Apply cutoff to depth based on the provided T-cell cutoff value in meters + ! 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