From 39ad7dee9bca224bf714bc4f91cea375cc5cbfe3 Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Tue, 21 Sep 2021 11:19:40 +0200
Subject: [PATCH] Juan 21/09/2021:ZSOLVER/turb_hor_dyn_corr.f90, missing an
 other GET_HALO_D for GPU optimisation

---
 src/ZSOLVER/turb_hor_dyn_corr.f90 | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/ZSOLVER/turb_hor_dyn_corr.f90 b/src/ZSOLVER/turb_hor_dyn_corr.f90
index fc08aca99..b59a3dfaa 100644
--- a/src/ZSOLVER/turb_hor_dyn_corr.f90
+++ b/src/ZSOLVER/turb_hor_dyn_corr.f90
@@ -869,9 +869,10 @@ ZFLX(:,:,IKB-1) = 2. * ZFLX(:,:,IKB-1) -  ZFLX(:,:,IKB)
 ! ! !$acc wait(3)
 !
 !$acc wait(3)
-!$acc update self(ZFLX)
-CALL UPDATE_HALO_ll(TZFIELDS_ll, IINFO_ll)
-!$acc update device(ZFLX) async(10)
+!!$!$acc update self(ZFLX)
+!!$CALL UPDATE_HALO_ll(TZFIELDS_ll, IINFO_ll)
+!!$!$acc update device(ZFLX) async(10)
+CALL GET_HALO_D(ZFLX)
 !
 IF ( OCLOSE_OUT .AND. OTURB_FLX ) THEN
   ! stores <V V>  
-- 
GitLab