diff --git a/src/LIB/SURCOUCHE/src/fmread_ll.f90 b/src/LIB/SURCOUCHE/src/fmread_ll.f90 index 13560271621cc3ecf869ffcf55aa0abdae1f72f0..b15d297ee75b9bb36f084bc3cc36278050d251e1 100644 --- a/src/LIB/SURCOUCHE/src/fmread_ll.f90 +++ b/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