diff --git a/MNH/ppm.f90 b/MNH/ppm.f90
index 60d661d79e77b7006a6a5dcba6f39b242e63bd4a..0f8ebfaaef89e7202834b362560e557adc0dac64 100644
--- a/MNH/ppm.f90
+++ b/MNH/ppm.f90
@@ -542,9 +542,9 @@ ZFNEG=PSRC
 #ifdef TEMPO_JUAN  
 !$acc end kernels   
 CALL  GET_HALO_D(ZDMQ,HDIR="01_X") 
-IF (MPPDB_INITIALIZED) THEN
-!$acc update host(ZDMQ)
-ENDIF
+!!$IF (MPPDB_INITIALIZED) THEN
+!!$!$acc update host(ZDMQ)
+!!$ENDIF
 CALL MPPDB_CHECK3DM("PPM::PPM_01_X OPEN ::ZDMQ",PRECISION,ZDMQ)
 !$acc kernels
 #endif   
@@ -1575,9 +1575,9 @@ ZFNEG(:,:,IKE+1) = (ZQR(:,:,IKE)-PSRC(:,:,IKE+1))*PCR(:,:,IKE+1) + &
 #endif
 
 CALL GET_HALO_D(PR)
-IF (MPPDB_INITIALIZED) THEN
-!$acc update host(PR)
-ENDIF
+!!$IF (MPPDB_INITIALIZED) THEN
+!!$!$acc update host(PR)
+!!$ENDIF
 CALL MPPDB_CHECK3DM("PPM::PPM_01_Z ::PR",PRECISION,PR)
 !
 !!$CONTAINS
@@ -2003,10 +2003,10 @@ ENDIF
 !$acc end kernels 
 #endif
 !
-CALL GET_HALO(PR,HDIR="S0_X") 
-IF (MPPDB_INITIALIZED) THEN
-!$acc update host(PR)
-ENDIF
+CALL GET_HALO_D(PR,HDIR="S0_X") 
+!!$IF (MPPDB_INITIALIZED) THEN
+!!$!$acc update host(PR)
+!!$ENDIF
 CALL MPPDB_CHECK3DM("PPM::PPM_S0_X OPEN ::PR",PRECISION,PR)
 !!$!
 !!$END SELECT
@@ -2344,10 +2344,10 @@ ENDIF
 ! acc end data  
 #endif
 !
-   CALL GET_HALO(PR,HDIR="S0_Y") 
-   IF (MPPDB_INITIALIZED) THEN
-      !$acc update host(PR)
-   ENDIF
+   CALL GET_HALO_D(PR,HDIR="S0_Y") 
+!!$   IF (MPPDB_INITIALIZED) THEN
+!!$      !$acc update host(PR)
+!!$   ENDIF
    CALL MPPDB_CHECK3DM("PPM::PPM_S0_Y OPEN ::PR",PRECISION,PR)  
 ! 
 !!$END SELECT
@@ -2540,10 +2540,10 @@ ZFNEG(:,:,IKE+1) = (ZPHAT(:,:,IKE+1) - PSRC(:,:,IKE+1))*PCR(:,:,IKE+1) + &
 ! acc end data 
 #endif
 !
-   CALL GET_HALO(PR) ! JUAN
-   IF (MPPDB_INITIALIZED) THEN
-      !$acc update host(PR)
-   ENDIF
+   CALL GET_HALO_D(PR) ! JUAN
+!!$   IF (MPPDB_INITIALIZED) THEN
+!!$      !$acc update host(PR)
+!!$   ENDIF
    CALL MPPDB_CHECK3DM("PPM::PPM_S0_Z ::PR",PRECISION,PR)
 !
 END SUBROUTINE PPM_S0_Z_D