From 78260c3fe23f6e63299d87dbe0cc7af7ed43c6db Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Tue, 14 Nov 2023 17:21:10 +0100
Subject: [PATCH] Juan 14/11/2023:init_mnh.f90, add initialisation of GPU halo
 with INIT_HALO_D , to avoid some potentiel null pointer a first GET_HALO_D
 call

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

diff --git a/src/MNH/init_mnh.f90 b/src/MNH/init_mnh.f90
index 555f37fa2..3952bf8a5 100644
--- a/src/MNH/init_mnh.f90
+++ b/src/MNH/init_mnh.f90
@@ -103,6 +103,7 @@ USE MODI_RESET_EXSEG
 !
 #ifdef MNH_OPENACC
 USE MODE_MNH_ZWORK
+USE MODD_HALO_D
 #endif
 !
 !
@@ -226,6 +227,7 @@ ENDDO
 !
 #ifdef MNH_OPENACC
 CALL MNH_ALLOC_ZWORK(NMODEL)
+CALL INIT_HALO_D()
 #endif
 !
 !-------------------------------------------------------------------------------
-- 
GitLab