From ac03ae93d28f4b28de52c433fe04952f70643e13 Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Fri, 17 Sep 2021 09:10:15 +0200
Subject: [PATCH] Juan 17/09/2021:turb.f90, for GPU replace 2D_UPDATE ->
 GET_2D_HALO_DDC

---
 src/ZSOLVER/turb.f90 | 19 +++++++++++++------
 1 file changed, 13 insertions(+), 6 deletions(-)

diff --git a/src/ZSOLVER/turb.f90 b/src/ZSOLVER/turb.f90
index 7b4498dd8..9d5f3bfa9 100644
--- a/src/ZSOLVER/turb.f90
+++ b/src/ZSOLVER/turb.f90
@@ -1581,6 +1581,8 @@ USE MODE_ll
 USE MODD_ARGSLIST_ll, ONLY : LIST_ll
 USE MODD_CONF
 !
+USE MODI_GET_HALO
+!
 IMPLICIT NONE
 !
 !*       0.1   Declarations of dummy arguments :
@@ -1612,12 +1614,17 @@ CALL GET_INDICE_ll (IIB,IJB,IIE,IJE)
 !         2 Update halo if necessary
 !
 !!$IF (NHALO == 1) THEN
-!$acc update self(PUSLOPE,PVSLOPE)
-  CALL ADD2DFIELD_ll( TZFIELDS_ll, PUSLOPE, 'UPDATE_ROTATE_WIND::PUSLOPE' )
-  CALL ADD2DFIELD_ll( TZFIELDS_ll, PVSLOPE, 'UPDATE_ROTATE_WIND::PVSLOPE' )
-  CALL UPDATE_HALO_ll(TZFIELDS_ll,IINFO_ll)
-  CALL CLEANLIST_ll(TZFIELDS_ll)
-!$acc update device(PUSLOPE,PVSLOPE)
+!!$!$acc update self(PUSLOPE,PVSLOPE)
+!!$  CALL ADD2DFIELD_ll( TZFIELDS_ll, PUSLOPE, 'UPDATE_ROTATE_WIND::PUSLOPE' )
+!!$  CALL ADD2DFIELD_ll( TZFIELDS_ll, PVSLOPE, 'UPDATE_ROTATE_WIND::PVSLOPE' )
+!!$  CALL UPDATE_HALO_ll(TZFIELDS_ll,IINFO_ll)
+!!$  CALL CLEANLIST_ll(TZFIELDS_ll)
+!!$!$acc update device(PUSLOPE,PVSLOPE)
+!
+!  /!\ warning conner needed -> GET_HALO...C
+!
+CALL GET_2D_HALO_DDC( PUSLOPE, HNAME='UPDATE_ROTATE_WIND::PUSLOPE' )
+CALL GET_2D_HALO_DDC( PVSLOPE, HNAME='UPDATE_ROTATE_WIND::PVSLOPE' )
 !!$ENDIF
 !
 !        3 Boundary conditions for non cyclic case
-- 
GitLab