Philippe 24/10/2017: IO: bug correction: IO_READ_FIELD_BYFIELD_L1: size of...

Philippe 24/10/2017: IO: bug correction: IO_READ_FIELD_BYFIELD_L1: size of message in MPI_Bcast was wrong (1 instead of size(ofield))

src/LIB/SURCOUCHE/src/fmread_ll.f90

@@ -1760,7 +1760,7 @@ IF (ASSOCIATED(TZFD)) THEN
     !because metadata of field has been modified in IO_READ_FIELD_xxx
     IF (IRESP==-111) CALL IO_BCAST_FIELD_METADATA(TZFD,TPFIELD)
     !
-    CALL MPI_BCAST(OFIELD,1,MPI_LOGICAL,TZFD%OWNER-1,TZFD%COMM,IERR)
+    CALL MPI_BCAST(OFIELD,SIZE(OFIELD),MPI_LOGICAL,TZFD%OWNER-1,TZFD%COMM,IERR)
   END IF
 ELSE
   IRESP = -61