From 7742ab3fa0d0d8e454b9de69260e31dba60a400f Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Fri, 25 Mar 2022 18:14:16 +0100
Subject: [PATCH] Juan 25/03/2022:MNH/turb_ver_thermo_flux.f90, Cray GPU opt:
add !dir$ concurrent
---
src/MNH/turb_ver_thermo_flux.f90 | 1 +
1 file changed, 1 insertion(+)
diff --git a/src/MNH/turb_ver_thermo_flux.f90 b/src/MNH/turb_ver_thermo_flux.f90
index 0e403966d..f8841cdb4 100644
--- a/src/MNH/turb_ver_thermo_flux.f90
+++ b/src/MNH/turb_ver_thermo_flux.f90
@@ -1119,6 +1119,7 @@ IF ( KRRL >= 1 ) THEN
#else
!$acc kernels
#endif
+ !dir$ concurrent
ZTMP1_DEVICE(:,:,:) = PRHODJ(:,:,:) * PATHETA(:,:,:) * 2. * PSRCM(:,:,:)
ZTMP2_DEVICE(:,:,:) = ZFLXZ(:,:,:) / PDZZ(:,:,:)
!$acc end kernels
--
GitLab