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

mjr-deltares · web-flow · commit 4e30455169bb · 2024-11-08T14:07:38.000+01:00
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
 

Original file line number	Diff line number	Diff line change
`@@ -149,7 +149,7 @@ subroutine dis_export_init(this, modelname, modeltype, modelfname, disenum, &`
`149`	`149`	`!`
`150`	`150`	`! -- create the netcdf file`
`151`	`151`	`call nf_verify(nf90_create(this%nc_fname, &`
`152`		`- IOR(NF90_CLOBBER, NF90_NETCDF4), this%ncid), &`
	`152`	`+ IAND(NF90_CLOBBER, NF90_NETCDF4), this%ncid), &`
`153`	`153`	`this%nc_fname)`
`154`	`154`	`end subroutine dis_export_init`
`155`	`155`
Original file line number	Diff line number	Diff line change
`@@ -126,7 +126,7 @@ subroutine mesh_init(this, modelname, modeltype, modelfname, disenum, &`
`126`	`126`	`!`
`127`	`127`	`! -- create the netcdf file`
`128`	`128`	`call nf_verify(nf90_create(this%nc_fname, &`
`129`		`- IOR(NF90_CLOBBER, NF90_NETCDF4), this%ncid), &`
	`129`	`+ IAND(NF90_CLOBBER, NF90_NETCDF4), this%ncid), &`
`130`	`130`	`this%nc_fname)`
`131`	`131`	`end subroutine mesh_init`
`132`	`132`