From 993ed7a1726dbbe7b719aa52faf8c4cd21920a57 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 26 Jan 2022 09:13:36 +0100
Subject: [PATCH] Philippe 26/01/2022: OpenACC: workaround CCE compiler
problem: put character array outside of kernels region
---
src/MNH/advecuvw_rk.f90 | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/src/MNH/advecuvw_rk.f90 b/src/MNH/advecuvw_rk.f90
index b8d00b9fb..403eb3277 100644
--- a/src/MNH/advecuvw_rk.f90
+++ b/src/MNH/advecuvw_rk.f90
@@ -416,13 +416,15 @@ IF ( GIBM ) THEN
!$acc end kernels
END IF
!
-!$acc kernels present(PRUS_ADV,PRVS_ADV,PRWS_ADV) present(ZUT,ZVT,ZWT) present(PU,PV,PW)
IF (GIBM .AND. CIBM_ADV=='FREEZE') THEN
+!$acc kernels
WHERE (XIBM_LS(:,:,:,2).GT.-ZIBM_EPSI) ZIBM(:,:,:,1) = 0.
WHERE (XIBM_LS(:,:,:,3).GT.-ZIBM_EPSI) ZIBM(:,:,:,2) = 0.
WHERE (XIBM_LS(:,:,:,4).GT.-ZIBM_EPSI) ZIBM(:,:,:,3) = 0.
+!$acc end kernels
ENDIF
!
+!$acc kernels present(PRUS_ADV,PRVS_ADV,PRWS_ADV) present(ZUT,ZVT,ZWT) present(PU,PV,PW)
PRUS_ADV = 0.
PRVS_ADV = 0.
PRWS_ADV = 0.
@@ -492,13 +494,13 @@ RKLOOP: DO JS = 1, ISPL
!* 4. Advection with WENO
! --------------------------
!
-!$acc kernels
IF (GIBM .AND. CIBM_ADV=='LOWORD') THEN
+!$acc kernels
ZIBM(:,:,:,1)=ZRUS(:,:,:,JS)
ZIBM(:,:,:,2)=ZRVS(:,:,:,JS)
ZIBM(:,:,:,3)=ZRWS(:,:,:,JS)
- ENDIF
!$acc end kernels
+ ENDIF
!
IF (HUVW_ADV_SCHEME=='WENO_K') THEN
CALL ADVECUVW_WENO_K (HLBCX, HLBCY, KWENO_ORDER, ZUT, ZVT, ZWT, &
--
GitLab