Juan 23/11/2013: remove inused global acc data

MNH/advecuvw_4th.f90

@@ -277,8 +277,7 @@ INTEGER                                              :: II
 !*       1.     COMPUTES THE DOMAIN DIMENSIONS
 !
 !               ------------------------------
-!$acc data 
-! create(ZMEANX, ZMEANY)
+!acc data 
 !
 CALL GET_INDICE_ll(IIB,IJB,IIE,IJE)
 !!$CALL GET_DIM_EXT_ll('B',IIU,IJU)     
@@ -431,7 +430,7 @@ PRWS(:,:,:) = PRWS(:,:,:) - ZTEMP4
 !$acc end kernels
 IF (LBUDGET_W)  CALL BUDGET (PRWS,3,'ADVZ_BU_RW')
 !
-!$acc end data 
+!acc end data 
 !-------------------------------------------------------------------------------
 !
 END SUBROUTINE ADVECUVW_4TH_D