Juan 12/11/2014: S0_X/Y no really needed ?

SURCOUCHE/mode_exchange_ll.f90

@@ -2452,8 +2452,8 @@ CONTAINS
             GLX = .TRUE.
          ELSEIF ( HDIR == "S0_X" ) THEN
             !print*,"SSSSS0000_XXXXXXXXXXXXXXXX"
-            GDIR_ALL = .TRUE.
-            INX = JPHALO
+            !GDIR_ALL = .TRUE.
+            INX = -100. ! JPHALO
             GLX = .TRUE.
          ELSEIF ( HDIR == "Z0_Y" ) THEN
             !print*,"ZZZZZ0000_YYYYYYYYYYYYYYY"
@@ -2462,8 +2462,8 @@ CONTAINS
             GLY = .TRUE.
          ELSEIF ( HDIR == "S0_Y" ) THEN
             !print*,"SSSS0000_YYYYYYYYYYYYYYY"
-            GDIR_ALL = .TRUE.
-            INY = JPHALO
+            !GDIR_ALL = .TRUE.
+            INY =  -100. ! JPHALO
             GLY = .TRUE.
          ELSEIF ( HDIR == "01_X" ) THEN
             !print*,"01_X"