From a08cd4bfc1ca9c9628383e51a4e341072ce1173a Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 26 Jan 2022 09:15:14 +0100
Subject: [PATCH] Philippe 26/01/2022: OpenACC: workaround CCE compiler
problem: add list of dimensions in array copies in a kernels region
---
src/MNH/turb.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/MNH/turb.f90 b/src/MNH/turb.f90
index d47b8f465..6f234ab39 100644
--- a/src/MNH/turb.f90
+++ b/src/MNH/turb.f90
@@ -1516,8 +1516,8 @@ IF (LLES_CALL) THEN
!$acc end kernels
CALL LES_MEAN_SUBGRID(ZTMP1_DEVICE,X_LES_SUBGRID_U2)
!$acc kernels
- X_LES_SUBGRID_V2 = X_LES_SUBGRID_U2
- X_LES_SUBGRID_W2 = X_LES_SUBGRID_U2
+ X_LES_SUBGRID_V2(:,:,:) = X_LES_SUBGRID_U2(:,:,:)
+ X_LES_SUBGRID_W2(:,:,:) = X_LES_SUBGRID_U2(:,:,:)
!$acc end kernels
CALL GZ_M_W_DEVICE(KKA,KKU,KKL,PTHLT,PDZZ,ZTMP2_DEVICE)
CALL MZF_DEVICE( ZTMP2_DEVICE, ZTMP3_DEVICE )
--
GitLab