From d7079f7c4509055e99a2cf5048c2ca506af9a6a6 Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa>
Date: Thu, 17 Mar 2022 19:36:13 +0100
Subject: [PATCH] Juan 17/03/2022:ZSOLVER/turb.f90, for GPU NO MANAGED Mem ,
 acc update device (PRHODJ,PPABST)

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

diff --git a/src/ZSOLVER/turb.f90 b/src/ZSOLVER/turb.f90
index 5ca0c9bd9..c24ffa86a 100644
--- a/src/ZSOLVER/turb.f90
+++ b/src/ZSOLVER/turb.f90
@@ -473,10 +473,10 @@ REAL, DIMENSION(:,:,:), pointer , contiguous :: ZTEMP_BUD
 !
 ! IN variables
 !
-!$acc data present( PDXX, PDYY, PDZZ, PDZX, PDZY, PRHODJ)                                  &
+!$acc data present( PDXX, PDYY, PDZZ, PDZX, PDZY, PRHODJ,PPABST)                           &
 !$acc &    copyin ( PZZ, PDIRCOSXW,  PDIRCOSYW,  PDIRCOSZW,                                &
 !$acc &             PCOSSLOPE, PSINSLOPE, PTHVREF, PSFTH, PSFRV, PSFU, PSFV, PSFSV,        &
-!$acc &             PPABST, PUT, PVT, PWT, PTKET, PSVT, PSRCT, PCEI, PRTKEMS, PFLXZTHVMF ) &
+!$acc &             PUT, PVT, PWT, PTKET, PSVT, PSRCT, PCEI, PRTKEMS, PFLXZTHVMF )         &
 !
 ! INOUT variables
 !
@@ -492,6 +492,8 @@ REAL, DIMENSION(:,:,:), pointer , contiguous :: ZTEMP_BUD
 !
 ! !$acc &    create ( ZSHEAR )
 
+!$acc update device(PRHODJ,PPABST)
+
 if ( mppdb_initialized ) then
   !Check all in arrays
   call Mppdb_check( pdxx,       "Turb beg:pdxx"       )
-- 
GitLab