From 4e30455169bb31cd3dc7f891bcb5a85ab7fc55bd Mon Sep 17 00:00:00 2001
From: mjr-deltares <45555666+mjr-deltares@users.noreply.github.com>
Date: Fri, 8 Nov 2024 14:07:38 +0100
Subject: [PATCH] - change file creation mode to logical AND of flags (#2051)

---
 src/Utilities/Export/DisNCStructured.f90 | 2 +-
 src/Utilities/Export/MeshNCModel.f90     | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Utilities/Export/DisNCStructured.f90 b/src/Utilities/Export/DisNCStructured.f90
index 328f38b4130..0fa9db4688a 100644
--- 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
index 4e4ff3fab09..6b28d79261c 100644
--- 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