diff --git a/src/ZSOLVER/turb.f90 b/src/ZSOLVER/turb.f90
index 5ca0c9bd9cfa2b713e22220b79860ec583bc5ee6..c24ffa86ac48e6d9355ce188f25efbc34530b370 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"       )