Skip to content

Commit

Permalink
Tidy up src/topography.f90
Browse files Browse the repository at this point in the history
Co-authored-by: Micael Oliveira <[email protected]>
  • Loading branch information
ezhilsabareesh8 and micaeljtoliveira authored Oct 25, 2024
1 parent 708b1ea commit 8fb623c
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 @@ -499,7 +499,7 @@ subroutine topography_cut_off_T_cells(this, hgrid, cutoff)

do i = 1, int(ny_len / 2)
do j = 1, int((nxp_len - 1) / 2)
dy_t(i, j) = dy(2 * i - 1, 2 * j) + dy(2 * i, 2 * j)
dy_t(i, j) = dy(2 * i - 1, 2 * j) + dy(2 * i, 2 * j)
end do
end do

Expand Down

0 comments on commit 8fb623c

Please sign in to comment.