Juan 09/11/2020:ppm.f90, comment not usefull get_halo(Z0..)

src/MNH/ppm.f90

@@ -2704,9 +2704,9 @@ ENDIF
 #ifndef MNH_OPENACC
 CALL  GET_HALO(ZPHAT, HNAME='ZPHAT')
 #else
-!$acc update self(ZPHAT)
-CALL GET_HALO(ZPHAT(:,:,:), HDIR="Z0_X", HNAME='ZPHAT')
-!$acc update device(ZPHAT)
+! acc update self(ZPHAT)
+!CALL GET_HALO_D(ZPHAT(:,:,:), HDIR="Z0_X", HNAME='ZPHAT')
+! acc update device(ZPHAT)
 #endif
 !
 !$acc kernels
@@ -2739,9 +2739,9 @@ CALL GET_HALO(ZPHAT(:,:,:), HDIR="Z0_X", HNAME='ZPHAT')
 #ifndef MNH_OPENACC
 CALL GET_HALO(ZFPOS, HNAME='ZFPOS') ! JUAN
 #else
-!$acc update self(ZFPOS)
-CALL GET_HALO(ZFPOS(:,:,:), HDIR="Z0_X", HNAME='ZFPOS') ! JUAN
-!$acc update device(ZFPOS)
+! acc update self(ZFPOS)
+!CALL GET_HALO_D(ZFPOS(:,:,:), HDIR="Z0_X", HNAME='ZFPOS') ! JUAN
+! acc update device(ZFPOS)
 #endif
 !
 !$acc kernels
@@ -2767,9 +2767,9 @@ CALL GET_HALO(ZFPOS(:,:,:), HDIR="Z0_X", HNAME='ZFPOS') ! JUAN
 #ifndef MNH_OPENACC
    CALL GET_HALO(ZFNEG, HNAME='ZFNEG') ! JUAN
 #else
-!$acc update self(ZFNEG)
-CALL GET_HALO(ZFNEG, HDIR="Z0_X", HNAME='ZFNEG') ! JUAN
-!$acc update device(ZFNEG)
+! acc update self(ZFNEG)
+!CALL GET_HALO_D(ZFNEG, HDIR="Z0_X", HNAME='ZFNEG') ! JUAN
+! acc update device(ZFNEG)
 #endif
 !
 !$acc kernels
@@ -3039,7 +3039,7 @@ IF ( L2D ) THEN
   CALL MPPDB_CHECK(PR,"PPM_S0_Y end:PR")
 !   RETURN
 ELSE !not L2D
-!
+   !   
 CALL GET_HALO2(PSRC, TZ_PSRC_HALO2_ll, HNAME='PSRC')
 ZPSRC_HALO2_SOUTH(:,:) = TZ_PSRC_HALO2_ll%HALO2%SOUTH(:,:)
 !$acc update device (ZPSRC_HALO2_SOUTH)
@@ -3150,9 +3150,9 @@ CASE ('OPEN')
 #ifndef MNH_OPENACC
 CALL  GET_HALO(ZPHAT, HNAME='ZPHAT')
 #else
-!$acc update self(ZPHAT)
-CALL  GET_HALO(ZPHAT(:,:,:), HDIR="Z0_Y", HNAME='ZPHAT')
-!$acc update device(ZPHAT)
+! acc update self(ZPHAT)
+!CALL  GET_HALO_D(ZPHAT(:,:,:), HDIR="Z0_Y", HNAME='ZPHAT')
+! acc update device(ZPHAT)
 #endif
 !
 !$acc kernels
@@ -3187,9 +3187,9 @@ CALL  GET_HALO(ZPHAT(:,:,:), HDIR="Z0_Y", HNAME='ZPHAT')
 #ifndef MNH_OPENACC
 CALL GET_HALO(ZFPOS, HNAME='ZFPOS') ! JUAN
 #else
-!$acc update self(ZFPOS)
-CALL GET_HALO(ZFPOS(:,:,:), HDIR="Z0_Y", HNAME='ZFPOS') ! JUAN
-!$acc update device(ZFPOS)
+! acc update self(ZFPOS)
+!CALL GET_HALO_D(ZFPOS(:,:,:), HDIR="Z0_Y", HNAME='ZFPOS') ! JUAN
+! acc update device(ZFPOS)
 #endif
 !
 !$acc kernels
@@ -3216,9 +3216,9 @@ CALL GET_HALO(ZFPOS(:,:,:), HDIR="Z0_Y", HNAME='ZFPOS') ! JUAN
 #ifndef MNH_OPENACC
    CALL GET_HALO(ZFNEG, HNAME='ZFNEG') ! JUAN
 #else
-!$acc update self(ZFNEG)
-   CALL GET_HALO(ZFNEG, HDIR="Z0_Y", HNAME='ZFNEG') ! JUAN
-!$acc update device(ZFNEG)
+! acc update self(ZFNEG)
+!   CALL GET_HALO_D(ZFNEG, HDIR="Z0_Y", HNAME='ZFNEG') ! JUAN
+! acc update device(ZFNEG)
 #endif
 !
 !$acc kernels