From 3ca0ffd274585242cafb3aff937cf2e689043d39 Mon Sep 17 00:00:00 2001
From: Carlisle Wishard <cwishard@purdue.edu>
Date: Thu, 10 Nov 2022 14:00:58 -0500
Subject: [PATCH] added NF90_NOWRITE check back in

---
 src/netcdf/netcdf.f90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/netcdf/netcdf.f90 b/src/netcdf/netcdf.f90
index 0a9e7cfd8..c36408a72 100644
--- 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" )