diff --git a/MNH/get_halo.f90 b/MNH/get_halo.f90
index 8cf520eaa5c34eb42164bd0424283e6560ed5566..86f1d1dc9dfc2b6bc78e005c7cbb5f0944692838 100644
--- a/MNH/get_halo.f90
+++ b/MNH/get_halo.f90
@@ -100,20 +100,9 @@ INTEGER                          :: IERROR                 ! error return code
 !
 NULLIFY( TZ_PSRC_ll)
 !
-! acc update host (PSRC( IIB:IIE        , IJB         :IJB+JPHEXT   , : ))
-! acc update host (PSRC( IIB:IIE        , IJE-JPHEXT  :IJE          , : ))
-! acc update host (PSRC( IIB:IIB+JPHEXT , IJB+JPHEXT+1:IJE-JPHEXT-1 , : ))
-! acc update host (PSRC( IIE-JPHEXT:IIE , IJB+JPHEXT+1:IJE-JPHEXT-1 , : ))
-
 CALL ADD3DFIELD_ll(TZ_PSRC_ll,PSRC)
 CALL UPDATE_HALO_ll(TZ_PSRC_ll,IERROR, HDIR=HDIR )
 CALL CLEANLIST_ll(TZ_PSRC_ll)
-
-! acc update device (PSRC(   IIB:IIE    ,      : IJB-1 , : ))
-! acc update device (PSRC(   IIB:IIE    , IJE+1:       , : ))
-! acc update device (PSRC(      :IIB-1  , IJB  :IJE    , : ))
-! acc update device (PSRC( IIE+1:       , IJB  :IJE    , : ))
-
 !
 END SUBROUTINE GET_HALO
 !-----------------------------------------------------------------------
@@ -142,20 +131,20 @@ NULLIFY( TZ_PSRC_ll)
 CALL GET_INDICE_ll(IIB,IJB,IIE,IJE)
 !
 !$acc update host (PSRC)
-! acc update host (PSRC(    :     , IJB:IJB  , : ))
-! acc update host (PSRC(    :     , IJE:IJE  , : ))
-! acc update host (PSRC( IIB:IIB  , IJB:IJE  , : ))
-! acc update host (PSRC( IIE:IIE  , IJB:IJE  , : ))
+! acc update host (PSRC(    :     ,    :IJB  , : ))
+! acc update host (PSRC(    :     , IJE:     , : ))
+! acc update host (PSRC(    :IIB  , IJB:IJE  , : ))
+! acc update host (PSRC( IIE:     , IJB:IJE  , : ))
 
 CALL ADD3DFIELD_ll(TZ_PSRC_ll,PSRC)
 CALL UPDATE_HALO_ll(TZ_PSRC_ll,IERROR, HDIR=HDIR )
 CALL CLEANLIST_ll(TZ_PSRC_ll)
 
-! acc update device (PSRC)
-!$acc update device (PSRC(      :       ,      : IJB-1 , : ))
-!$acc update device (PSRC(      :       , IJE+1:       , : ))
-!$acc update device (PSRC(      :IIB-1  ,      :       , : ))
-!$acc update device (PSRC( IIE+1:       ,      :       , : ))
+!$acc update device (PSRC)
+! acc update device (PSRC(      :       ,      : IJB-1 , : ))
+! acc update device (PSRC(      :       , IJE+1:       , : ))
+! acc update device (PSRC(      :IIB-1  ,      :       , : ))
+! acc update device (PSRC( IIE+1:       ,      :       , : ))
 
 !
 END SUBROUTINE GET_HALO_D