From df77b83e0447e8f946ba7813e65acdf27d7a06e9 Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Thu, 21 Oct 2021 10:44:19 +0200
Subject: [PATCH] Juan 21/10/2021:ZSOLVER/mode_exchange2_ll.f90 , for
GPU=OPENACCO2 , add enter data in init_halo2
---
src/ZSOLVER/SURCOUCHE/mode_exchange2_ll.f90 | 24 +++++++++++++++------
1 file changed, 18 insertions(+), 6 deletions(-)
diff --git a/src/ZSOLVER/SURCOUCHE/mode_exchange2_ll.f90 b/src/ZSOLVER/SURCOUCHE/mode_exchange2_ll.f90
index 6d4a2c575..8d2affca4 100644
--- a/src/ZSOLVER/SURCOUCHE/mode_exchange2_ll.f90
+++ b/src/ZSOLVER/SURCOUCHE/mode_exchange2_ll.f90
@@ -120,6 +120,8 @@ implicit none
!
TYPE(HALO2LIST_ll), POINTER :: TZHALO2LIST
INTEGER :: JJ ! loop counter
+
+ REAL , POINTER , CONTIGUOUS , DIMENSION(:,:) :: ZWEST,ZEAST,ZSOUTH,ZNORTH
!
!-------------------------------------------------------------------------------
!
@@ -132,16 +134,26 @@ implicit none
!
!* 1.1 Allocate the current HALO2_ll
!
- ALLOCATE(TZHALO2LIST%HALO2)
+ ALLOCATE(TZHALO2LIST%HALO2)
+
ALLOCATE(TZHALO2LIST%HALO2%WEST(KDIMY, KDIMZ))
ALLOCATE(TZHALO2LIST%HALO2%EAST(KDIMY, KDIMZ))
ALLOCATE(TZHALO2LIST%HALO2%SOUTH(KDIMX, KDIMZ))
ALLOCATE(TZHALO2LIST%HALO2%NORTH(KDIMX, KDIMZ))
- ALLOCATE(TZHALO2LIST%NEXT)
- TZHALO2LIST%HALO2%WEST=0.
- TZHALO2LIST%HALO2%EAST=0.
- TZHALO2LIST%HALO2%SOUTH=0.
- TZHALO2LIST%HALO2%NORTH=0.
+ ZWEST => TZHALO2LIST%HALO2%WEST
+ ZEAST => TZHALO2LIST%HALO2%EAST
+ ZSOUTH => TZHALO2LIST%HALO2%SOUTH
+ ZNORTH => TZHALO2LIST%HALO2%NORTH
+ !$acc enter data create(ZWEST,ZEAST,ZSOUTH,ZNORTH)
+
+ !$acc kernels
+ ZWEST=0.
+ ZEAST=0.
+ ZSOUTH=0.
+ ZNORTH=0.
+ !$acc end kernels
+
+ ALLOCATE(TZHALO2LIST%NEXT)
!
!* 1.2 Go to the next HALO2_ll, or terminate the list
!
--
GitLab