diff --git a/src/mesonh/aux/get_halo.f90 b/src/mesonh/aux/get_halo.f90
index 017870850781133159920f00b67fe800fbf2677a..75e2c1a5aa0a5de9590e94c0ee0e2b9c297e0a94 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)
 !