Juan 12/11/2014: manage correctly JPHALO & LX/LY in mode_exchange

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