Streamlined output by not reporting the contents of param.in on start…

…up, as we can do that on the python side now. Also added a better error message for when a NetCDF file can't be found
MintonGroup · Nov 16, 2022 · 0b3db9f · 0b3db9f
1 parent fdfd6d6
commit 0b3db9f
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/src/io/io.f90 b/src/io/io.f90
@@ -929,7 +929,7 @@ module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg)
          iostat = 0
 
          ! Print the contents of the parameter file to standard output
-         call param%writer(unit = OUTPUT_UNIT, iotype = "none", v_list = [0], iostat = iostat, iomsg = iomsg) 
+         ! call param%writer(unit = OUTPUT_UNIT, iotype = "none", v_list = [0], iostat = iostat, iomsg = iomsg) 
 
       end associate
 

diff --git a/src/netcdf/netcdf.f90 b/src/netcdf/netcdf.f90
@@ -351,13 +351,15 @@ module subroutine netcdf_open(self, param, readonly)
       ! Internals
       integer(I4B) :: mode, status
       character(len=NF90_MAX_NAME) :: str_dim_name
+      character(len=STRMAX) :: errmsg
 
       mode = NF90_WRITE
       if (present(readonly)) then
          if (readonly) mode = NF90_NOWRITE
       end if
 
-      call check( nf90_open(param%outfile, mode, self%ncid), "netcdf_open nf90_open" )
+      write(errmsg,*) "netcdf_open nf90_open ",trim(adjustl(param%outfile))
+      call check( nf90_open(param%outfile, mode, self%ncid), errmsg)
 
       call check( nf90_inq_dimid(self%ncid, TIME_DIMNAME, self%time_dimid), "netcdf_open nf90_inq_dimid time_dimid"  )
       call check( nf90_inq_dimid(self%ncid, ID_DIMNAME, self%id_dimid), "netcdf_open nf90_inq_dimid id_dimid"  )