diff --git a/src/LIB/SURCOUCHE/src/fmread_ll.f90 b/src/LIB/SURCOUCHE/src/fmread_ll.f90 index e2eb12de2f3b9e6a4c62e341869c98f7d43a70a3..89bda55a512f839e3e43a77c3f9f984368172b67 100644 --- a/src/LIB/SURCOUCHE/src/fmread_ll.f90 +++ b/src/LIB/SURCOUCHE/src/fmread_ll.f90 @@ -863,8 +863,6 @@ IF (ASSOCIATED(TZFD)) THEN IF (TPFIELD%CDIR == 'XX' .OR. TPFIELD%CDIR == 'YY') THEN ! XX or YY Scatter Field CALL SCATTER_XXFIELD(TPFIELD%CDIR,ZFIELDP,PFIELD,TZFD%OWNER,TZFD%COMM,TPSPLITTING) - ! Broadcast Field - CALL MPI_BCAST(PFIELD,SIZE(PFIELD),MPI_FLOAT,TZFD%OWNER-1,TZFD%COMM,IERR) ELSE IF (TPFIELD%CDIR == 'XY') THEN IF (LPACK .AND. L2D) THEN ! 2D compact case