Skip to content
Snippets Groups Projects
Commit 5e270b75 authored by ESCOBAR Juan's avatar ESCOBAR Juan
Browse files

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

parent cc427c51
No related branches found
No related tags found
No related merge requests found
......@@ -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"
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment