From 387ddd0ccdb214793fdf22deace72daca3a11646 Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa>
Date: Thu, 10 Mar 2022 14:57:09 +0100
Subject: [PATCH] Juan 10/03/2022:ZSOLVER/get_halo.f90, initialize halo also 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 d3133b110..9959c71d2 100644
--- a/src/ZSOLVER/get_halo.f90
+++ b/src/ZSOLVER/get_halo.f90
@@ -2229,6 +2229,8 @@ REAL , DIMENSION(:,:) , POINTER , CONTIGUOUS :: ZH2F_EAST,ZH2F_WEST,ZH2F_NORTH,Z
 
 if ( NPROC == 1 ) RETURN
 
+CALL INIT_HALO_D()
+
 !$acc data present ( PSRC ) &
 !$acc present (ZNORTH2F_IN, ZSOUTH2F_IN, ZWEST2F_IN, ZEAST2F_IN) &
 !$acc present (ZNORTH2F_OUT, ZSOUTH2F_OUT, ZWEST2F_OUT, ZEAST2F_OUT)
-- 
GitLab