use MPI independent write when nprocs == 1

Parallel-NetCDF · Aug 30, 2024 · 4cb0b2d · 4cb0b2d
1 parent c4a2eb4
commit 4cb0b2d
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/drivers/ncmpio/ncmpio_enddef.c b/src/drivers/ncmpio/ncmpio_enddef.c
@@ -163,7 +163,12 @@ move_file_block(NC         *ncp,
          */
         memset(&mpistatus, 0, sizeof(MPI_Status));
 
-        TRACE_IO(MPI_File_write_at_all)(fh, to+nbytes+rank*chunk_size,
+        if (ncp->nprocs > 1)
+            TRACE_IO(MPI_File_write_at_all)(fh, to+nbytes+rank*chunk_size,
+                                            buf, get_size /* NOT bufcount */,
+                                            MPI_BYTE, &mpistatus);
+        else
+            TRACE_IO(MPI_File_write_at)(fh, to+nbytes+rank*chunk_size,
                                         buf, get_size /* NOT bufcount */,
                                         MPI_BYTE, &mpistatus);
         if (mpireturn != MPI_SUCCESS) {