diff --git a/MNH/advection_uvw_cen.f90 b/MNH/advection_uvw_cen.f90
index 7b4b7e9fe784ad69890bf133c8a2a5b570dfde1c..0cf086f68b3d12eb00a0e019fdacfb13db238777 100644
--- a/MNH/advection_uvw_cen.f90
+++ b/MNH/advection_uvw_cen.f90
@@ -227,8 +227,10 @@ IF (HUVW_ADV_SCHEME=='CEN2ND' ) THEN
 !
 ELSEIF (HUVW_ADV_SCHEME=='CEN4TH') THEN
 ! 
+   !$acc data pcopyin(ZRUCT, ZRVCT, ZRWCT,PUT, PVT, PWT) pcopy(  PRUS, PRVS, PRWS )
    CALL ADVECUVW_4TH ( HLBCX, HLBCY, ZRUCT, ZRVCT, ZRWCT,            &
-                       PUT, PVT, PWT, ZRUS, ZRVS, ZRWS, TPHALO2MLIST )                 
+                       PUT, PVT, PWT, ZRUS, ZRVS, ZRWS, TPHALO2MLIST )  
+   !$acc end data
 !
 END IF
 !