diff --git a/src/LIB/SURCOUCHE/src/fmread_ll.f90 b/src/LIB/SURCOUCHE/src/fmread_ll.f90 index bb4846cfc71f51afed527351757646f319e0a884..9a9a104204a642b40bb10519f51c4508812218e3 100644 --- a/src/LIB/SURCOUCHE/src/fmread_ll.f90 +++ b/src/LIB/SURCOUCHE/src/fmread_ll.f90 @@ -18,6 +18,7 @@ MODULE MODE_FMREAD ! J.Escobar : 13/01/2015 : remove comment on BCAST(IRESP in FMREADX2_ll ! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 ! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O +! J.Escobar : 17/07/2018 : reintroduce needed MPI_BARRIER in IO_READ_FIELD_BYFIELD_X3 ! USE MODD_IO_ll, ONLY : NVERB_FATAL,NVERB_ERROR,NVERB_WARNING,NVERB_INFO,NVERB_DEBUG,TFILEDATA USE MODD_MPIF @@ -821,6 +822,7 @@ IF (IRESP==-111) IRESP = 0 !-111 is not really an error (metadata has changed) ! IF (PRESENT(KRESP)) KRESP = IRESP ! +CALL MPI_BARRIER(TPFILE%NMPICOMM,IERR) CALL SECOND_MNH2(T22) TIMEZ%T_READ3D_ALL=TIMEZ%T_READ3D_ALL + T22 - T11 !