diff --git a/src/MNH/ppm.f90 b/src/MNH/ppm.f90
index bf936d850b266c187ee922502724b98ad0aa5a4a..50259c91bf0d963ae78141d595b9b0a63df3977a 100644
--- a/src/MNH/ppm.f90
+++ b/src/MNH/ppm.f90
@@ -1794,7 +1794,7 @@ ZFNEG(:,:,IKE+1) = (ZQR(:,:,IKE)-PSRC(:,:,IKE+1))*PCR(:,:,IKE+1) + &
 !acc end data 
 #endif
 
-CALL GET_HALO_D(PR)
+!JUAN INUTILE CALL GET_HALO_D(PR)
 !!$IF (MPPDB_INITIALIZED) THEN
 !!$!$acc update host(PR)
 !!$ENDIF