Tidy up src/topography.f90

Co-authored-by: Micael Oliveira <[email protected]>
COSIMA · Oct 25, 2024 · 07b135f · 07b135f
1 parent 8fb623c
commit 07b135f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/topography.f90 b/src/topography.f90
@@ -478,7 +478,7 @@ subroutine topography_cut_off_T_cells(this, hgrid, cutoff)
     real(real64), allocatable :: dy_t(:,:)       ! To store dy_t (new array)
 
     ! Read hgrid to get dy
-    print*, 'Attempting to open:', trim(hgrid)
+    write(output_unit,'(3a)') "Attempting to open file '", trim(hgrid), "'"
     call handle_error(nf90_open(trim(hgrid), nf90_nowrite, ncid_hgrid))
     call handle_error(nf90_inq_varid(ncid_hgrid, 'dy', dy_id))
     call handle_error(nf90_inquire_variable(ncid_hgrid, dy_id, dimids=dids_dy))