- change file creation mode to logical AND of flags (MODFLOW-USGS#2051)

mjreno · Nov 8, 2024 · 4e30455 · 4e30455
1 parent 9b01fe9
commit 4e30455
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/Utilities/Export/DisNCStructured.f90 b/src/Utilities/Export/DisNCStructured.f90
@@ -149,7 +149,7 @@ subroutine dis_export_init(this, modelname, modeltype, modelfname, disenum, &
     !
     ! -- create the netcdf file
     call nf_verify(nf90_create(this%nc_fname, &
-                               IOR(NF90_CLOBBER, NF90_NETCDF4), this%ncid), &
+                               IAND(NF90_CLOBBER, NF90_NETCDF4), this%ncid), &
                    this%nc_fname)
   end subroutine dis_export_init
 

diff --git a/src/Utilities/Export/MeshNCModel.f90 b/src/Utilities/Export/MeshNCModel.f90
@@ -126,7 +126,7 @@ subroutine mesh_init(this, modelname, modeltype, modelfname, disenum, &
     !
     ! -- create the netcdf file
     call nf_verify(nf90_create(this%nc_fname, &
-                               IOR(NF90_CLOBBER, NF90_NETCDF4), this%ncid), &
+                               IAND(NF90_CLOBBER, NF90_NETCDF4), this%ncid), &
                    this%nc_fname)
   end subroutine mesh_init