From cd3cb1ce271c9515fb54692c52eb178eddb54938 Mon Sep 17 00:00:00 2001
From: Juan Escobar <escj@aero.obs-mip.fr>
Date: Tue, 25 Oct 2016 16:18:37 +0200
Subject: [PATCH] Juan 25/10/2016:ppm.f90 , remove unusefull get_halo_d at end
 of PPM_01_Z

---
 src/MNH/ppm.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/MNH/ppm.f90 b/src/MNH/ppm.f90
index bf936d850..50259c91b 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
-- 
GitLab