Juan 10/11/2014 : manage pcopy/pcopy for call to ALL ADVECUVW_4TH

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
 !