From ac8681fde8e25224b65846eec891bcae93532ef5 Mon Sep 17 00:00:00 2001
From: Juan Escobar <escj@aero.obs-mip.fr>
Date: Wed, 18 Jul 2018 17:24:07 +0200
Subject: [PATCH] Juan 18/08/2018 : mode_exchange_ll.f90 , Bug on MPI_RECV <->
uninitialized IMAXSIZESEND/IMAXSIZERECV variables (not used but introduce bug
in allocation with negative size)
---
src/LIB/SURCOUCHE/src/mode_exchange_ll.f90 | 3 +++
1 file changed, 3 insertions(+)
diff --git a/src/LIB/SURCOUCHE/src/mode_exchange_ll.f90 b/src/LIB/SURCOUCHE/src/mode_exchange_ll.f90
index 9d2c43bb5..0dff8c59c 100644
--- a/src/LIB/SURCOUCHE/src/mode_exchange_ll.f90
+++ b/src/LIB/SURCOUCHE/src/mode_exchange_ll.f90
@@ -1913,6 +1913,7 @@ INTEGER :: NB_REQ
!! Author
!! ------
! N. Gicquel * CERFACS - CNRM *
+! J. Escobar 18/08/2018 : Bug on MPI_RECV <-> uninitialized IMAXSIZESEND/IMAXSIZERECV variables
!
!-------------------------------------------------------------------------------
!
@@ -1997,6 +1998,7 @@ INTEGER :: NB_REQ,NFIRST_REQ_RECV
!
IF (.NOT.ASSOCIATED(TPCRSPDSEND)) THEN
ISENDNB = 0
+ IMAXSIZESEND = 0
ELSE
ISENDNB = TPCRSPDSEND%NCARDDIF
IMAXSIZESEND = GET_MAX_SIZE(TPCRSPDSEND)
@@ -2004,6 +2006,7 @@ INTEGER :: NB_REQ,NFIRST_REQ_RECV
!
IF (.NOT.ASSOCIATED(TPCRSPDRECV)) THEN
IRECVNB = 0
+ IMAXSIZERECV = 0
ELSE
IRECVNB = TPCRSPDRECV%NCARDDIF
IMAXSIZERECV = GET_MAX_SIZE(TPCRSPDRECV)
--
GitLab