From 60d32d2aad5434ceb2b1842fa7e946c0f5265b8a Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Fri, 25 Mar 2022 18:12:52 +0100
Subject: [PATCH] Juan 25/03/2022:MNH/mode_mnh_zwork.f90, Cray Gpu Opt: add
kernel present , make array-syntax serial -> parallel !!!
---
src/MNH/mode_mnh_zwork.f90 | 17 +++++++++--------
1 file changed, 9 insertions(+), 8 deletions(-)
diff --git a/src/MNH/mode_mnh_zwork.f90 b/src/MNH/mode_mnh_zwork.f90
index 42e04e0d8..d2d7f15ae 100644
--- a/src/MNH/mode_mnh_zwork.f90
+++ b/src/MNH/mode_mnh_zwork.f90
@@ -354,20 +354,21 @@ CONTAINS
!------ Default values
- !$acc kernels
+ !$acc kernels present(ZPSRC_HALO2_WEST,ZPSRC_HALO2_SOUTH,ZUNIT3D,ZT3D, &
+ !$acc & ZT1D,ZT1DFLAT,IT3D,IT1D,GT3D,GT1DFLAT)
- ZPSRC_HALO2_WEST = XUNDEF
- ZPSRC_HALO2_SOUTH = XUNDEF
-
- ZUNIT3D = 1.0
+ ZPSRC_HALO2_WEST(:,:) = XUNDEF
+ ZPSRC_HALO2_SOUTH(:,:) = XUNDEF
+
+ ZUNIT3D(:,:,:) = 1.0
ZT3D(:,:,:,:) = XUNDEF
ZT1D(:,:) = XUNDEF
ZT1DFLAT(:) = XUNDEF
- IT3D = 0.0
- IT1D = 0.0
-
+ IT3D(:,:,:) = 0.0
+ IT1D(:) = 0.0
+
GT3D(:,:,:,:) = .FALSE.
GT1DFLAT(:) = .FALSE.
--
GitLab