added NF90_NOWRITE check back in

MintonGroup · Nov 10, 2022 · 3ca0ffd · 3ca0ffd
1 parent 58ac545
commit 3ca0ffd
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/netcdf/netcdf.f90 b/src/netcdf/netcdf.f90
@@ -353,9 +353,9 @@ module subroutine netcdf_open(self, param, readonly)
       character(len=NF90_MAX_NAME) :: str_dim_name
 
       mode = NF90_WRITE
-      !if (present(readonly)) then
-      !   if (readonly) mode = NF90_NOWRITE
-      !end if
+      if (present(readonly)) then
+         if (readonly) mode = NF90_NOWRITE
+      end if
 
       call check( nf90_open(param%outfile, mode, self%ncid), "netcdf_open nf90_open" )