Quentin 29/07/2022: get_halo bugfix turb HPACK

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)
 !