From 5e270b758b2ec388dc12fe4e62ae215f052b1b30 Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa>
Date: Wed, 12 Nov 2014 18:59:50 +0100
Subject: [PATCH] Juan 12/11/2014: S0_X/Y no really needed ?
---
SURCOUCHE/mode_exchange_ll.f90 | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/SURCOUCHE/mode_exchange_ll.f90 b/SURCOUCHE/mode_exchange_ll.f90
index 9b481f610..96eed0ec8 100644
--- a/SURCOUCHE/mode_exchange_ll.f90
+++ b/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"
--
GitLab