diff --git a/src/MNH/get_halo.f90 b/src/MNH/get_halo.f90
index 91349f6ddc0a8d24d0d7cb8c75f14d8c60e5a42a..3a2b4a79261b5f39b2f1317ec46c0d3e74db1b53 100644
--- a/src/MNH/get_halo.f90
+++ b/src/MNH/get_halo.f90
@@ -2744,7 +2744,6 @@ END SUBROUTINE GET_HALO2_D
 !*       0.2   Declarations of local variables :
 !
   TYPE(HALO2LIST_ll), POINTER :: TZHALO2LIST
-  REAL , POINTER , CONTIGUOUS , DIMENSION(:,:) :: ZWEST,ZEAST,ZSOUTH,ZNORTH
 !
 !-------------------------------------------------------------------------------
 !
@@ -2754,12 +2753,8 @@ END SUBROUTINE GET_HALO2_D
 !
   DO WHILE(ASSOCIATED(TZHALO2LIST))
 !
-   ZWEST => TZHALO2LIST%HALO2%WEST
-   ZEAST => TZHALO2LIST%HALO2%EAST
-   ZSOUTH => TZHALO2LIST%HALO2%SOUTH
-   ZNORTH => TZHALO2LIST%HALO2%NORTH
-    !Remark: OpenACC data create done in INIT_HALO2_ll
-   !$acc exit data delete(ZWEST,ZEAST,ZSOUTH,ZNORTH)
+   !Remark: OpenACC data create done in INIT_HALO2_ll
+   !$acc exit data delete( TZHALO2LIST%HALO2%WEST, TZHALO2LIST%HALO2%EAST, TZHALO2LIST%HALO2%SOUTH, TZHALO2LIST%HALO2%NORTH )
 
    TPHALO2LIST => TZHALO2LIST%NEXT
     DEALLOCATE(TZHALO2LIST%HALO2%WEST)