Juan 17/07/2018 :fmread_ll.f90, PB out of memory in MPI_BSEND => reintroduce...

Juan 17/07/2018 :fmread_ll.f90, PB out of memory in MPI_BSEND => reintroduce needed MPI_BARRIER in IO_READ_FIELD_BYFIELD_X3

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
 !