From 156ef2ad67f74946449b9daea8b1375df21776cc Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Fri, 29 Jul 2022 16:59:30 +0200
Subject: [PATCH] Quentin 29/07/2022: get_halo bugfix turb HPACK

---
 src/mesonh/aux/get_halo.f90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/mesonh/aux/get_halo.f90 b/src/mesonh/aux/get_halo.f90
index 017870850..75e2c1a5a 100644
--- a/src/mesonh/aux/get_halo.f90
+++ b/src/mesonh/aux/get_halo.f90
@@ -30,7 +30,7 @@ SUBROUTINE GET_HALO_PHY(D,PSRC)
 USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
 !
 TYPE(DIMPHYEX_t),        INTENT(IN)   :: D
-REAL, DIMENSION(D%NIJT,D%NKT), INTENT(IN)  :: PSRC    ! variable at t
+REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN)  :: PSRC    ! variable at t
 !
 END SUBROUTINE GET_HALO_PHY
 !
@@ -113,14 +113,14 @@ USE MODD_ARGSLIST_ll, ONLY : LIST_ll
 IMPLICIT NONE
 !
 TYPE(DIMPHYEX_t),        INTENT(IN)   :: D
-REAL, DIMENSION(D%NIJT,D%NKT), INTENT(IN)  :: PSRC    ! variable at t
+REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN)  :: PSRC    ! variable at t
 !
 TYPE(LIST_ll)     , POINTER      :: TZ_PSRC_ll               ! halo
 INTEGER                          :: IERROR                 ! error return code 
 !
 NULLIFY( TZ_PSRC_ll)
 !
-CALL ADD2DFIELD_ll( TZ_PSRC_ll, PSRC, 'GET_HALO::PSRC' )
+CALL ADD3DFIELD_ll( TZ_PSRC_ll, PSRC, 'GET_HALO::PSRC' )
 CALL UPDATE_HALO_ll(TZ_PSRC_ll,IERROR)
 CALL CLEANLIST_ll(TZ_PSRC_ll)
 !
-- 
GitLab