diff --git a/src/ZSOLVER/get_halo.f90 b/src/ZSOLVER/get_halo.f90
index d3133b110a468b1dbd1c53f12db555d2597a7b60..9959c71d26b1be2de10e4c58d1d34c46ccdeb528 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)