From cc427c51256210dc66788b38693d76bf2d110fea Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa>
Date: Wed, 12 Nov 2014 17:33:08 +0100
Subject: [PATCH] Juan 12/11/2014: manage correctly JPHALO & LX/LY in
mode_exchange
---
SURCOUCHE/mode_exchange_ll.f90 | 14 +++++++++-----
1 file changed, 9 insertions(+), 5 deletions(-)
diff --git a/SURCOUCHE/mode_exchange_ll.f90 b/SURCOUCHE/mode_exchange_ll.f90
index 8d73f8b9c..9b481f610 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
--
GitLab