From 6b79ffe8f756d25f139d8c7ab62b2bf9acd1aec8 Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Mon, 19 Jun 2023 18:10:17 +0200
Subject: [PATCH] Juan 19/06/2023:rain_ice_sedimentation_split.f90, Again
SegFault at execition with CRAY ftn -> deactivate mnh_expand_array for CRAY
ftn !!!
---
src/MNH/rain_ice_sedimentation_split.f90 | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/src/MNH/rain_ice_sedimentation_split.f90 b/src/MNH/rain_ice_sedimentation_split.f90
index 44b9c57bc..2ab457fb3 100644
--- a/src/MNH/rain_ice_sedimentation_split.f90
+++ b/src/MNH/rain_ice_sedimentation_split.f90
@@ -434,7 +434,9 @@ DO JN = 1 , KSPLITR
IF ( KRR == 7 ) PRHS(:,:,:) = PRHS(:,:,:) + ZPRHS(:,:,:) * ZTSPLITR
END IF
!
+#ifndef MNH_COMPILER_CCE
!$mnh_expand_array( JI=KIB:KIE,JJ=KJB:KJE,JK=KKTB:KKTE )
+#endif
IF ( GSEDIC ) GSEDIMC(:,:,:) = &
PRCS(:,:,:) > ZRTMIN(2)
GSEDIMR(:,:,:) = &
@@ -447,7 +449,9 @@ DO JN = 1 , KSPLITR
PRGS(:,:,:) > ZRTMIN(6)
IF ( GKRR_7 ) GSEDIMH(:,:,:) = &
PRHS(:,:,:) > ZRTMIN(7)
+#ifndef MNH_COMPILER_CCE
!$mnh_end_expand_array() ! CONCURRENT
+#endif
!$acc end kernels
!
#ifndef MNH_OPENACC
--
GitLab