From 710815a040815c1da84a7565511ddefddff6b78b Mon Sep 17 00:00:00 2001 From: Erik Schnetter Date: Sun, 3 Aug 2008 22:04:31 -0500 Subject: CarpetIOHDF5: Correct problem with IO::out_dt Correct a multi-processor synchronisation problem when using IO::out_dt. --- Carpet/CarpetIOHDF5/src/CarpetIOHDF5.cc | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) (limited to 'Carpet/CarpetIOHDF5') diff --git a/Carpet/CarpetIOHDF5/src/CarpetIOHDF5.cc b/Carpet/CarpetIOHDF5/src/CarpetIOHDF5.cc index e00494f3c..fbc7cbc0b 100644 --- a/Carpet/CarpetIOHDF5/src/CarpetIOHDF5.cc +++ b/Carpet/CarpetIOHDF5/src/CarpetIOHDF5.cc @@ -513,12 +513,17 @@ static int TimeToOutput (const cGH* const cctkGH, const int vindex) CCTK_REAL myoutdt = out_dt == -2 ? io_out_dt : out_dt; if (myoutdt == 0 or *this_iteration == cctk_iteration) { output_this_iteration = true; - } else if (myoutdt > 0 and (cctk_time / cctk_delta_time - >= *next_output_time / cctk_delta_time - 1.0e-12)) { - // it is time for the next output - output_this_iteration = true; - *this_iteration = cctk_iteration; - *next_output_time = cctk_time + myoutdt; + } else if (myoutdt > 0) { + int do_output = + (cctk_time / cctk_delta_time >= + *next_output_time / cctk_delta_time - 1.0e-12); + MPI_Bcast (&do_output, 1, MPI_INT, 0, dist::comm()); + if (do_output) { + // it is time for the next output + output_this_iteration = true; + *this_iteration = cctk_iteration; + *next_output_time = cctk_time + myoutdt; + } } } -- cgit v1.2.3