Juan 17/03/2022:ZSOLVER/turb.f90, for GPU NO MANAGED Mem , acc update device (PRHODJ,PPABST)

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"       )