From 60c071be8de9318be28b9ab0d88a488a14980df2 Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Mon, 20 Mar 2023 16:42:28 +0100
Subject: [PATCH] Juan 20/03/2023:ZSOLVER/get_halo.f90, missing INIT_HALO_D, in
 some case, in GET_HALO2_DF

---
 src/ZSOLVER/get_halo.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/ZSOLVER/get_halo.f90 b/src/ZSOLVER/get_halo.f90
index a8665d205..e29e295d7 100644
--- a/src/ZSOLVER/get_halo.f90
+++ b/src/ZSOLVER/get_halo.f90
@@ -2320,6 +2320,8 @@ character(len=*), optional, intent(in) :: HNAME ! Name of the field to be added
 !
 REAL , DIMENSION(:,:) , POINTER , CONTIGUOUS :: ZH2F_EAST,ZH2F_WEST,ZH2F_NORTH,ZH2F_SOUTH
 !
+CALL INIT_HALO_D()
+!
 ZH2F_EAST => TP_PSRC_HALO2F_ll%HALO2%EAST
 ZH2F_WEST => TP_PSRC_HALO2F_ll%HALO2%WEST
 ZH2F_NORTH => TP_PSRC_HALO2F_ll%HALO2%NORTH
-- 
GitLab