diff --git a/SURCOUCHE/mode_exchange_ll.f90 b/SURCOUCHE/mode_exchange_ll.f90
index 8d73f8b9cf63b4bacc67e783cad09e960392368d..9b481f6102ab605d76f3d9dd8aaf70b0c3de22a2 100644
--- a/SURCOUCHE/mode_exchange_ll.f90
+++ b/SURCOUCHE/mode_exchange_ll.f90
@@ -2429,7 +2429,9 @@ CONTAINS
     SUBROUTINE INIT_GOOD_DIR(HDIR)
       !
       ! init the direction of halo if needed
-      ! 
+      !
+      USE MODD_VAR_ll, ONLY : JPHALO
+      !
       IMPLICIT NONE
       CHARACTER(len=4), OPTIONAL :: HDIR
       !
@@ -2451,7 +2453,7 @@ CONTAINS
          ELSEIF ( HDIR == "S0_X" ) THEN
             !print*,"SSSSS0000_XXXXXXXXXXXXXXXX"
             GDIR_ALL = .TRUE.
-            INX = 1
+            INX = JPHALO
             GLX = .TRUE.
          ELSEIF ( HDIR == "Z0_Y" ) THEN
             !print*,"ZZZZZ0000_YYYYYYYYYYYYYYY"
@@ -2461,12 +2463,12 @@ CONTAINS
          ELSEIF ( HDIR == "S0_Y" ) THEN
             !print*,"SSSS0000_YYYYYYYYYYYYYYY"
             GDIR_ALL = .TRUE.
-            INY = 1
+            INY = JPHALO
             GLY = .TRUE.
          ELSEIF ( HDIR == "01_X" ) THEN
             !print*,"01_X" 
             !GDIR_ALL = .TRUE.
-            INX = 1
+            INX = JPHALO
             GLX = .TRUE.
          ELSEIF ( HDIR == "Z1_X" ) THEN
             !print*,"ZZZZZZZZZZZZZZZZ1_X" 
@@ -2476,7 +2478,7 @@ CONTAINS
          ELSEIF ( HDIR == "01_Y" ) THEN
             !print*,"01_YYYYYYYYYYYYY"
             !GDIR_ALL = .TRUE.
-            INY = 1
+            INY = JPHALO
             GLY = .TRUE.
          ELSE
             print*,"GOOD_DIR DEFAULT :: SOMETHING WRONG !!! HDIR=",HDIR,"####"
@@ -2489,6 +2491,8 @@ CONTAINS
       IMPLICIT NONE
       type(crspd_ll) :: TP
       !
+      !GOOD_DIR = .TRUE.  ; RETURN ! JUAN TEST  NHALO
+      !
       GOOD_DIR = .FALSE. 
       ! RETURN 
       IF (GDIR_ALL) THEN