From 10e267747bb75407d049aaef00cb1e594747e268 Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Tue, 13 Jan 2015 14:30:06 +0000
Subject: [PATCH] Juan 13/01/2015: remove comment on BCAST(IRESP in
FMREADX2_ll
---
src/LIB/SURCOUCHE/src/fmread_ll.f90 | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/LIB/SURCOUCHE/src/fmread_ll.f90 b/src/LIB/SURCOUCHE/src/fmread_ll.f90
index c709c5a29..2fc8171b3 100644
--- a/src/LIB/SURCOUCHE/src/fmread_ll.f90
+++ b/src/LIB/SURCOUCHE/src/fmread_ll.f90
@@ -23,6 +23,7 @@ MODULE MODE_FMREAD
!Correction :
! J.Escobar : 22/08/2005 : BUG : manque un "GOTO 1000" si champs
! lue non trouvé !!!
+! J.Escobar : 13/01/2015 : remove comment on BCAST(IRESP in FMREADX2_ll
!
USE MODD_MPIF
IMPLICIT NONE
@@ -328,7 +329,7 @@ IF (ASSOCIATED(TZFD)) THEN
CALL SECOND_MNH2(T1)
TIMEZ%T_READ2D_READ=TIMEZ%T_READ2D_READ + T1 - T0
!
- !JUAN BGQ CALL MPI_BCAST(IRESP,1,MPI_INTEGER,TZFD%OWNER-1,TZFD%COMM,IERR)
+ CALL MPI_BCAST(IRESP,1,MPI_INTEGER,TZFD%OWNER-1,TZFD%COMM,IERR)
IF (IRESP /= 0) GOTO 1000
!
CALL BCAST_HEADER(TZFD,TZFMH)
--
GitLab