diff --git a/test/F90/f90tst_parallel2.f90 b/test/F90/f90tst_parallel2.f90 index e00399951..d173027c2 100644 --- a/test/F90/f90tst_parallel2.f90 +++ b/test/F90/f90tst_parallel2.f90 @@ -109,6 +109,11 @@ program f90tst_parallel ! With classic model netCDF-4 file, enddef must be called. call handle_err(nf90mpi_enddef(ncid)) + ! UnifyFS requires a stronger file consistency + call handle_err(nf90mpi_sync(ncid)) + call MPI_Barrier(MPI_COMM_WORLD, ierr) + call handle_err(nf90mpi_sync(ncid)) + ! Determine what part of the variable will be written for this ! processor. It's a checkerboard decomposition. count = (/ NX / 4, NY / 4 /) diff --git a/test/F90/f90tst_parallel3.f90 b/test/F90/f90tst_parallel3.f90 index 18d3ee9ba..08bd615a0 100644 --- a/test/F90/f90tst_parallel3.f90 +++ b/test/F90/f90tst_parallel3.f90 @@ -113,6 +113,11 @@ program f90tst_parallel3 ! This will be the last collective operation. call check(nf90mpi_enddef(ncid)) + ! UnifyFS requires a stronger file consistency + call check(nf90mpi_sync(ncid)) + call MPI_Barrier(MPI_COMM_WORLD, ierr) + call check(nf90mpi_sync(ncid)) + ! Determine what part of the variable will be written/read for this ! processor. It's a checkerboard decomposition. count = (/ HALF_NX, HALF_NY /) diff --git a/test/largefile/high_dim_var.c b/test/largefile/high_dim_var.c index d06c95293..127c2405d 100644 --- a/test/largefile/high_dim_var.c +++ b/test/largefile/high_dim_var.c @@ -78,6 +78,12 @@ int main(int argc, char** argv) { err = ncmpi_enddef(ncid); CHECK_ERR if (err != NC_NOERR) goto fn_exit; +#ifdef STRONGER_CONSISTENCY + ncmpi_sync(ncid); + MPI_Barrier(MPI_COMM_WORLD); + ncmpi_sync(ncid); +#endif + nelms = (NRECS > DIMLEN) ? NRECS : DIMLEN; for (i=1; i 0) for (i=0; i