diff --git a/src/io/io.f90 b/src/io/io.f90
index aa797ddbe..6dfa6499e 100644
--- 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
index 2cca37386..4c037a291 100644
--- 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"  )