From 5b1ed3e7290912305869aa1b8271f7a4dd897554 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 24 Oct 2017 13:22:13 +0200
Subject: [PATCH] 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 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/LIB/SURCOUCHE/src/fmread_ll.f90 b/src/LIB/SURCOUCHE/src/fmread_ll.f90
index 135602716..b15d297ee 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
--
GitLab