Tidy up src/topography.f90

Co-authored-by: Andrew Kiss <[email protected]>
COSIMA · Nov 1, 2024 · 3fcc49d · 3fcc49d
1 parent 51daab2
commit 3fcc49d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/topography.f90 b/src/topography.f90
@@ -471,7 +471,7 @@ subroutine topography_cut_off_T_cells(this, hgrid, cutoff)
     real(real64), intent(in) :: cutoff
 
     integer(int32) :: i, j
-    integer(int32) :: ncid_hgrid, dy_id          ! NetCDF ids for hgrid
+    integer(int32) :: ncid_hgrid, dy_id          ! NetCDF ids for hgrid and dy
     integer(int32) :: dids_dy(2)                 ! NetCDF ids for dimensions
     integer(int32) :: ny_len, nxp_len, nx_len    ! dimensions for hgrid
     real(real64), allocatable :: dy(:,:)         ! To store dy variable from hgrid