From 533a8e30e4229f5289e872fc0e64db0e8bc68285 Mon Sep 17 00:00:00 2001
From: Pedro Costa <p.simoes.costa@gmail.com>
Date: Thu, 4 Apr 2024 11:35:44 +0200
Subject: [PATCH] Bring all local grid arrays computed on the device to the
 host.

---
 src/main.f90 | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/main.f90 b/src/main.f90
index db21e2fa..a7d3d11d 100644
--- a/src/main.f90
+++ b/src/main.f90
@@ -250,7 +250,7 @@ program cans
   grid_vol_ratio_c(:) = dl(1)*dl(2)*dzc(:)/(l(1)*l(2)*l(3))
   grid_vol_ratio_f(:) = dl(1)*dl(2)*dzf(:)/(l(1)*l(2)*l(3))
   !$acc end kernels
-  !$acc update self(dzci,dzfi) async
+  !$acc update self(zc,zf,dzc,dzf,dzci,dzfi) async
   !$acc exit data copyout(zc_g,zf_g,dzc_g,dzf_g,dzci_g,dzfi_g) async ! not needed on the device
   !$acc wait
   !
@@ -309,7 +309,6 @@ program cans
   if(.not.restart) then
     istep = 0
     time = 0.
-    !$acc update self(zc,dzc,dzf)
     call initflow(inivel,bcvel,ng,lo,l,dl,zc,zf,dzc,dzf,visc, &
                   is_forced,velf,bforce,is_wallturb,u,v,w,p)
     if(myid == 0) print*, '*** Initial condition succesfully set ***'