From f51c5953ccd4e6227cb36abbadf9f1ed05bd68cf Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 2 Jan 2023 10:51:56 +0100
Subject: [PATCH] Philippe 02/01/2023: FLAT_INVZ: use GET_HALO_DDC for PF_1_Y
 This fixes problems with convergence of solver (on CPU and GPU)

---
 src/MNH/flat_invz.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/MNH/flat_invz.f90 b/src/MNH/flat_invz.f90
index 41538cd0e..3e4f4358d 100644
--- a/src/MNH/flat_invz.f90
+++ b/src/MNH/flat_invz.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1994-2022 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2023 CNRS, Meteo-France and Universite Paul Sabatier
 !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
 !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
 !MNH_LIC for details. version 1.
@@ -1140,7 +1140,7 @@ CALL PRINT_MSG( NVERB_WARNING, 'GEN', 'FLAT_INVZ', 'L2D=T not tested' )
 #ifndef MNH_OPENACC
   CALL GET_HALO( PF_1_Y, HNAME='PF_1_Y' )
 #else
-  CALL GET_HALO_D( PF_1_Y, HNAME='UPDATE_HALO_ll::GET_HALO::PF_1_Y' )
+  CALL GET_HALO_DDC( PF_1_Y, HNAME='PF_1_Y' )
 #endif
   !
   !JUAN Z_SPLITTING
-- 
GitLab