code-mods/s6t_32x32/w2_e2setup.F

C $Header: /u/gcmpack/MITgcm/utils/exch2/code-mods/s6t_32x32/w2_e2setup.F,v 1.2 2008/07/29 19:37:49 jmc Exp $
C $Name:  $

C      *** THIS FILE IS AUTOMATICALLY GENERATED ***
       SUBROUTINE W2_E2SETUP

C      Tile toplogy settings data structures
#include "W2_EXCH2_TOPOLOGY.h"

C      Tile settings table
       CALL W2_E2SETUP_1
       CALL W2_E2SETUP_2
       CALL W2_E2SETUP_3
       CALL W2_E2SETUP_4
       CALL W2_E2SETUP_5
       CALL W2_E2SETUP_6
       RETURN
       END

       SUBROUTINE W2_E2SETUP_1
C      Topology for tile 1
#include "W2_EXCH2_TOPOLOGY.h"
       exch2_tNx(1)=32
       exch2_tNy(1)=32
       exch2_tBasex(1)=0
       exch2_tBasey(1)=0
       exch2_txGlobalo(1)=1
       exch2_tyGlobalo(1)=1
       exch2_isWedge(1)=1
       exch2_isNedge(1)=1
       exch2_isEedge(1)=1
       exch2_isSedge(1)=1
       exch2_myFace(1)=1
       exch2_mydNx(1)=32
       exch2_mydNy(1)=32
       exch2_nNeighbours(1)=4

       exch2_neighbourId(1,1)=3
       exch2_iLo(1,1)=0
       exch2_iHi(1,1)=33
       exch2_jLo(1,1)=33
       exch2_jHi(1,1)=33
       exch2_opposingSend(1,1)=4
       exch2_pij(1,1,1)=0
       exch2_pij(2,1,1)=-1
       exch2_pij(3,1,1)=1
       exch2_pij(4,1,1)=0
       exch2_oi(1,1)=33
       exch2_oj(1,1)=32

       exch2_neighbourId(2,1)=6
       exch2_iLo(2,1)=0
       exch2_iHi(2,1)=33
       exch2_jLo(2,1)=0
       exch2_jHi(2,1)=0
       exch2_opposingSend(2,1)=1
       exch2_pij(1,2,1)=1
       exch2_pij(2,2,1)=0
       exch2_pij(3,2,1)=0
       exch2_pij(4,2,1)=1
       exch2_oi(2,1)=0
       exch2_oj(2,1)=-32

       exch2_neighbourId(3,1)=2
       exch2_iLo(3,1)=33
       exch2_iHi(3,1)=33
       exch2_jLo(3,1)=0
       exch2_jHi(3,1)=33
       exch2_opposingSend(3,1)=4
       exch2_pij(1,3,1)=1
       exch2_pij(2,3,1)=0
       exch2_pij(3,3,1)=0
       exch2_pij(4,3,1)=1
       exch2_oi(3,1)=32
       exch2_oj(3,1)=0

       exch2_neighbourId(4,1)=5
       exch2_iLo(4,1)=0
       exch2_iHi(4,1)=0
       exch2_jLo(4,1)=0
       exch2_jHi(4,1)=33
       exch2_opposingSend(4,1)=1
       exch2_pij(1,4,1)=0
       exch2_pij(2,4,1)=1
       exch2_pij(3,4,1)=-1
       exch2_pij(4,4,1)=0
       exch2_oi(4,1)=-32
       exch2_oj(4,1)=33
       RETURN
       END

       SUBROUTINE W2_E2SETUP_2
C      Topology for tile 2
#include "W2_EXCH2_TOPOLOGY.h"
       exch2_tNx(2)=32
       exch2_tNy(2)=32
       exch2_tBasex(2)=0
       exch2_tBasey(2)=0
       exch2_txGlobalo(2)=33
       exch2_tyGlobalo(2)=1
       exch2_isWedge(2)=1
       exch2_isNedge(2)=1
       exch2_isEedge(2)=1
       exch2_isSedge(2)=1
       exch2_myFace(2)=2
       exch2_mydNx(2)=32
       exch2_mydNy(2)=32
       exch2_nNeighbours(2)=4

       exch2_neighbourId(1,2)=3
       exch2_iLo(1,2)=0
       exch2_iHi(1,2)=33
       exch2_jLo(1,2)=33
       exch2_jHi(1,2)=33
       exch2_opposingSend(1,2)=2
       exch2_pij(1,1,2)=1
       exch2_pij(2,1,2)=0
       exch2_pij(3,1,2)=0
       exch2_pij(4,1,2)=1
       exch2_oi(1,2)=0
       exch2_oj(1,2)=32

       exch2_neighbourId(2,2)=6
       exch2_iLo(2,2)=0
       exch2_iHi(2,2)=33
       exch2_jLo(2,2)=0
       exch2_jHi(2,2)=0
       exch2_opposingSend(2,2)=3
       exch2_pij(1,2,2)=0
       exch2_pij(2,2,2)=-1
       exch2_pij(3,2,2)=1
       exch2_pij(4,2,2)=0
       exch2_oi(2,2)=33
       exch2_oj(2,2)=-32

       exch2_neighbourId(3,2)=4
       exch2_iLo(3,2)=33
       exch2_iHi(3,2)=33
       exch2_jLo(3,2)=0
       exch2_jHi(3,2)=33
       exch2_opposingSend(3,2)=2
       exch2_pij(1,3,2)=0
       exch2_pij(2,3,2)=1
       exch2_pij(3,3,2)=-1
       exch2_pij(4,3,2)=0
       exch2_oi(3,2)=32
       exch2_oj(3,2)=33

       exch2_neighbourId(4,2)=1
       exch2_iLo(4,2)=0
       exch2_iHi(4,2)=0
       exch2_jLo(4,2)=0
       exch2_jHi(4,2)=33
       exch2_opposingSend(4,2)=3
       exch2_pij(1,4,2)=1
       exch2_pij(2,4,2)=0
       exch2_pij(3,4,2)=0
       exch2_pij(4,4,2)=1
       exch2_oi(4,2)=-32
       exch2_oj(4,2)=0
       RETURN
       END

       SUBROUTINE W2_E2SETUP_3
C      Topology for tile 3
#include "W2_EXCH2_TOPOLOGY.h"
       exch2_tNx(3)=32
       exch2_tNy(3)=32
       exch2_tBasex(3)=0
       exch2_tBasey(3)=0
       exch2_txGlobalo(3)=65
       exch2_tyGlobalo(3)=1
       exch2_isWedge(3)=1
       exch2_isNedge(3)=1
       exch2_isEedge(3)=1
       exch2_isSedge(3)=1
       exch2_myFace(3)=3
       exch2_mydNx(3)=32
       exch2_mydNy(3)=32
       exch2_nNeighbours(3)=4

       exch2_neighbourId(1,3)=5
       exch2_iLo(1,3)=0
       exch2_iHi(1,3)=33
       exch2_jLo(1,3)=33
       exch2_jHi(1,3)=33
       exch2_opposingSend(1,3)=4
       exch2_pij(1,1,3)=0
       exch2_pij(2,1,3)=-1
       exch2_pij(3,1,3)=1
       exch2_pij(4,1,3)=0
       exch2_oi(1,3)=33
       exch2_oj(1,3)=32

       exch2_neighbourId(2,3)=2
       exch2_iLo(2,3)=0
       exch2_iHi(2,3)=33
       exch2_jLo(2,3)=0
       exch2_jHi(2,3)=0
       exch2_opposingSend(2,3)=1
       exch2_pij(1,2,3)=1
       exch2_pij(2,2,3)=0
       exch2_pij(3,2,3)=0
       exch2_pij(4,2,3)=1
       exch2_oi(2,3)=0
       exch2_oj(2,3)=-32

       exch2_neighbourId(3,3)=4
       exch2_iLo(3,3)=33
       exch2_iHi(3,3)=33
       exch2_jLo(3,3)=0
       exch2_jHi(3,3)=33
       exch2_opposingSend(3,3)=4
       exch2_pij(1,3,3)=1
       exch2_pij(2,3,3)=0
       exch2_pij(3,3,3)=0
       exch2_pij(4,3,3)=1
       exch2_oi(3,3)=32
       exch2_oj(3,3)=0

       exch2_neighbourId(4,3)=1
       exch2_iLo(4,3)=0
       exch2_iHi(4,3)=0
       exch2_jLo(4,3)=0
       exch2_jHi(4,3)=33
       exch2_opposingSend(4,3)=1
       exch2_pij(1,4,3)=0
       exch2_pij(2,4,3)=1
       exch2_pij(3,4,3)=-1
       exch2_pij(4,4,3)=0
       exch2_oi(4,3)=-32
       exch2_oj(4,3)=33
       RETURN
       END

       SUBROUTINE W2_E2SETUP_4
C      Topology for tile 4
#include "W2_EXCH2_TOPOLOGY.h"
       exch2_tNx(4)=32
       exch2_tNy(4)=32
       exch2_tBasex(4)=0
       exch2_tBasey(4)=0
       exch2_txGlobalo(4)=97
       exch2_tyGlobalo(4)=1
       exch2_isWedge(4)=1
       exch2_isNedge(4)=1
       exch2_isEedge(4)=1
       exch2_isSedge(4)=1
       exch2_myFace(4)=4
       exch2_mydNx(4)=32
       exch2_mydNy(4)=32
       exch2_nNeighbours(4)=4

       exch2_neighbourId(1,4)=5
       exch2_iLo(1,4)=0
       exch2_iHi(1,4)=33
       exch2_jLo(1,4)=33
       exch2_jHi(1,4)=33
       exch2_opposingSend(1,4)=2
       exch2_pij(1,1,4)=1
       exch2_pij(2,1,4)=0
       exch2_pij(3,1,4)=0
       exch2_pij(4,1,4)=1
       exch2_oi(1,4)=0
       exch2_oj(1,4)=32

       exch2_neighbourId(2,4)=2
       exch2_iLo(2,4)=0
       exch2_iHi(2,4)=33
       exch2_jLo(2,4)=0
       exch2_jHi(2,4)=0
       exch2_opposingSend(2,4)=3
       exch2_pij(1,2,4)=0
       exch2_pij(2,2,4)=-1
       exch2_pij(3,2,4)=1
       exch2_pij(4,2,4)=0
       exch2_oi(2,4)=33
       exch2_oj(2,4)=-32

       exch2_neighbourId(3,4)=6
       exch2_iLo(3,4)=33
       exch2_iHi(3,4)=33
       exch2_jLo(3,4)=0
       exch2_jHi(3,4)=33
       exch2_opposingSend(3,4)=2
       exch2_pij(1,3,4)=0
       exch2_pij(2,3,4)=1
       exch2_pij(3,3,4)=-1
       exch2_pij(4,3,4)=0
       exch2_oi(3,4)=32
       exch2_oj(3,4)=33

       exch2_neighbourId(4,4)=3
       exch2_iLo(4,4)=0
       exch2_iHi(4,4)=0
       exch2_jLo(4,4)=0
       exch2_jHi(4,4)=33
       exch2_opposingSend(4,4)=3
       exch2_pij(1,4,4)=1
       exch2_pij(2,4,4)=0
       exch2_pij(3,4,4)=0
       exch2_pij(4,4,4)=1
       exch2_oi(4,4)=-32
       exch2_oj(4,4)=0
       RETURN
       END

       SUBROUTINE W2_E2SETUP_5
C      Topology for tile 5
#include "W2_EXCH2_TOPOLOGY.h"
       exch2_tNx(5)=32
       exch2_tNy(5)=32
       exch2_tBasex(5)=0
       exch2_tBasey(5)=0
       exch2_txGlobalo(5)=129
       exch2_tyGlobalo(5)=1
       exch2_isWedge(5)=1
       exch2_isNedge(5)=1
       exch2_isEedge(5)=1
       exch2_isSedge(5)=1
       exch2_myFace(5)=5
       exch2_mydNx(5)=32
       exch2_mydNy(5)=32
       exch2_nNeighbours(5)=4

       exch2_neighbourId(1,5)=1
       exch2_iLo(1,5)=0
       exch2_iHi(1,5)=33
       exch2_jLo(1,5)=33
       exch2_jHi(1,5)=33
       exch2_opposingSend(1,5)=4
       exch2_pij(1,1,5)=0
       exch2_pij(2,1,5)=-1
       exch2_pij(3,1,5)=1
       exch2_pij(4,1,5)=0
       exch2_oi(1,5)=33
       exch2_oj(1,5)=32

       exch2_neighbourId(2,5)=4
       exch2_iLo(2,5)=0
       exch2_iHi(2,5)=33
       exch2_jLo(2,5)=0
       exch2_jHi(2,5)=0
       exch2_opposingSend(2,5)=1
       exch2_pij(1,2,5)=1
       exch2_pij(2,2,5)=0
       exch2_pij(3,2,5)=0
       exch2_pij(4,2,5)=1
       exch2_oi(2,5)=0
       exch2_oj(2,5)=-32

       exch2_neighbourId(3,5)=6
       exch2_iLo(3,5)=33
       exch2_iHi(3,5)=33
       exch2_jLo(3,5)=0
       exch2_jHi(3,5)=33
       exch2_opposingSend(3,5)=4
       exch2_pij(1,3,5)=1
       exch2_pij(2,3,5)=0
       exch2_pij(3,3,5)=0
       exch2_pij(4,3,5)=1
       exch2_oi(3,5)=32
       exch2_oj(3,5)=0

       exch2_neighbourId(4,5)=3
       exch2_iLo(4,5)=0
       exch2_iHi(4,5)=0
       exch2_jLo(4,5)=0
       exch2_jHi(4,5)=33
       exch2_opposingSend(4,5)=1
       exch2_pij(1,4,5)=0
       exch2_pij(2,4,5)=1
       exch2_pij(3,4,5)=-1
       exch2_pij(4,4,5)=0
       exch2_oi(4,5)=-32
       exch2_oj(4,5)=33
       RETURN
       END

       SUBROUTINE W2_E2SETUP_6
C      Topology for tile 6
#include "W2_EXCH2_TOPOLOGY.h"
       exch2_tNx(6)=32
       exch2_tNy(6)=32
       exch2_tBasex(6)=0
       exch2_tBasey(6)=0
       exch2_txGlobalo(6)=161
       exch2_tyGlobalo(6)=1
       exch2_isWedge(6)=1
       exch2_isNedge(6)=1
       exch2_isEedge(6)=1
       exch2_isSedge(6)=1
       exch2_myFace(6)=6
       exch2_mydNx(6)=32
       exch2_mydNy(6)=32
       exch2_nNeighbours(6)=4

       exch2_neighbourId(1,6)=1
       exch2_iLo(1,6)=0
       exch2_iHi(1,6)=33
       exch2_jLo(1,6)=33
       exch2_jHi(1,6)=33
       exch2_opposingSend(1,6)=2
       exch2_pij(1,1,6)=1
       exch2_pij(2,1,6)=0
       exch2_pij(3,1,6)=0
       exch2_pij(4,1,6)=1
       exch2_oi(1,6)=0
       exch2_oj(1,6)=32

       exch2_neighbourId(2,6)=4
       exch2_iLo(2,6)=0
       exch2_iHi(2,6)=33
       exch2_jLo(2,6)=0
       exch2_jHi(2,6)=0
       exch2_opposingSend(2,6)=3
       exch2_pij(1,2,6)=0
       exch2_pij(2,2,6)=-1
       exch2_pij(3,2,6)=1
       exch2_pij(4,2,6)=0
       exch2_oi(2,6)=33
       exch2_oj(2,6)=-32

       exch2_neighbourId(3,6)=2
       exch2_iLo(3,6)=33
       exch2_iHi(3,6)=33
       exch2_jLo(3,6)=0
       exch2_jHi(3,6)=33
       exch2_opposingSend(3,6)=2
       exch2_pij(1,3,6)=0
       exch2_pij(2,3,6)=1
       exch2_pij(3,3,6)=-1
       exch2_pij(4,3,6)=0
       exch2_oi(3,6)=32
       exch2_oj(3,6)=33

       exch2_neighbourId(4,6)=5
       exch2_iLo(4,6)=0
       exch2_iHi(4,6)=0
       exch2_jLo(4,6)=0
       exch2_jHi(4,6)=33
       exch2_opposingSend(4,6)=3
       exch2_pij(1,4,6)=1
       exch2_pij(2,4,6)=0
       exch2_pij(3,4,6)=0
       exch2_pij(4,4,6)=1
       exch2_oi(4,6)=-32
       exch2_oj(4,6)=0
       RETURN
       END

1	C $Header: /u/gcmpack/MITgcm/utils/exch2/code-mods/s6t_32x32/w2_e2setup.F,v 1.2 2008/07/29 19:37:49 jmc Exp $
2	C $Name: $
3
4	C * THIS FILE IS AUTOMATICALLY GENERATED *
5	SUBROUTINE W2_E2SETUP
6
7	C Tile toplogy settings data structures
8	#include "W2_EXCH2_TOPOLOGY.h"
9
10	C Tile settings table
11	CALL W2_E2SETUP_1
12	CALL W2_E2SETUP_2
13	CALL W2_E2SETUP_3
14	CALL W2_E2SETUP_4
15	CALL W2_E2SETUP_5
16	CALL W2_E2SETUP_6
17	RETURN
18	END
19
20	SUBROUTINE W2_E2SETUP_1
21	C Topology for tile 1
22	#include "W2_EXCH2_TOPOLOGY.h"
23	exch2_tNx(1)=32
24	exch2_tNy(1)=32
25	exch2_tBasex(1)=0
26	exch2_tBasey(1)=0
27	exch2_txGlobalo(1)=1
28	exch2_tyGlobalo(1)=1
29	exch2_isWedge(1)=1
30	exch2_isNedge(1)=1
31	exch2_isEedge(1)=1
32	exch2_isSedge(1)=1
33	exch2_myFace(1)=1
34	exch2_mydNx(1)=32
35	exch2_mydNy(1)=32
36	exch2_nNeighbours(1)=4
37
38	exch2_neighbourId(1,1)=3
39	exch2_iLo(1,1)=0
40	exch2_iHi(1,1)=33
41	exch2_jLo(1,1)=33
42	exch2_jHi(1,1)=33
43	exch2_opposingSend(1,1)=4
44	exch2_pij(1,1,1)=0
45	exch2_pij(2,1,1)=-1
46	exch2_pij(3,1,1)=1
47	exch2_pij(4,1,1)=0
48	exch2_oi(1,1)=33
49	exch2_oj(1,1)=32
50
51	exch2_neighbourId(2,1)=6
52	exch2_iLo(2,1)=0
53	exch2_iHi(2,1)=33
54	exch2_jLo(2,1)=0
55	exch2_jHi(2,1)=0
56	exch2_opposingSend(2,1)=1
57	exch2_pij(1,2,1)=1
58	exch2_pij(2,2,1)=0
59	exch2_pij(3,2,1)=0
60	exch2_pij(4,2,1)=1
61	exch2_oi(2,1)=0
62	exch2_oj(2,1)=-32
63
64	exch2_neighbourId(3,1)=2
65	exch2_iLo(3,1)=33
66	exch2_iHi(3,1)=33
67	exch2_jLo(3,1)=0
68	exch2_jHi(3,1)=33
69	exch2_opposingSend(3,1)=4
70	exch2_pij(1,3,1)=1
71	exch2_pij(2,3,1)=0
72	exch2_pij(3,3,1)=0
73	exch2_pij(4,3,1)=1
74	exch2_oi(3,1)=32
75	exch2_oj(3,1)=0
76
77	exch2_neighbourId(4,1)=5
78	exch2_iLo(4,1)=0
79	exch2_iHi(4,1)=0
80	exch2_jLo(4,1)=0
81	exch2_jHi(4,1)=33
82	exch2_opposingSend(4,1)=1
83	exch2_pij(1,4,1)=0
84	exch2_pij(2,4,1)=1
85	exch2_pij(3,4,1)=-1
86	exch2_pij(4,4,1)=0
87	exch2_oi(4,1)=-32
88	exch2_oj(4,1)=33
89	RETURN
90	END
91
92	SUBROUTINE W2_E2SETUP_2
93	C Topology for tile 2
94	#include "W2_EXCH2_TOPOLOGY.h"
95	exch2_tNx(2)=32
96	exch2_tNy(2)=32
97	exch2_tBasex(2)=0
98	exch2_tBasey(2)=0
99	exch2_txGlobalo(2)=33
100	exch2_tyGlobalo(2)=1
101	exch2_isWedge(2)=1
102	exch2_isNedge(2)=1
103	exch2_isEedge(2)=1
104	exch2_isSedge(2)=1
105	exch2_myFace(2)=2
106	exch2_mydNx(2)=32
107	exch2_mydNy(2)=32
108	exch2_nNeighbours(2)=4
109
110	exch2_neighbourId(1,2)=3
111	exch2_iLo(1,2)=0
112	exch2_iHi(1,2)=33
113	exch2_jLo(1,2)=33
114	exch2_jHi(1,2)=33
115	exch2_opposingSend(1,2)=2
116	exch2_pij(1,1,2)=1
117	exch2_pij(2,1,2)=0
118	exch2_pij(3,1,2)=0
119	exch2_pij(4,1,2)=1
120	exch2_oi(1,2)=0
121	exch2_oj(1,2)=32
122
123	exch2_neighbourId(2,2)=6
124	exch2_iLo(2,2)=0
125	exch2_iHi(2,2)=33
126	exch2_jLo(2,2)=0
127	exch2_jHi(2,2)=0
128	exch2_opposingSend(2,2)=3
129	exch2_pij(1,2,2)=0
130	exch2_pij(2,2,2)=-1
131	exch2_pij(3,2,2)=1
132	exch2_pij(4,2,2)=0
133	exch2_oi(2,2)=33
134	exch2_oj(2,2)=-32
135
136	exch2_neighbourId(3,2)=4
137	exch2_iLo(3,2)=33
138	exch2_iHi(3,2)=33
139	exch2_jLo(3,2)=0
140	exch2_jHi(3,2)=33
141	exch2_opposingSend(3,2)=2
142	exch2_pij(1,3,2)=0
143	exch2_pij(2,3,2)=1
144	exch2_pij(3,3,2)=-1
145	exch2_pij(4,3,2)=0
146	exch2_oi(3,2)=32
147	exch2_oj(3,2)=33
148
149	exch2_neighbourId(4,2)=1
150	exch2_iLo(4,2)=0
151	exch2_iHi(4,2)=0
152	exch2_jLo(4,2)=0
153	exch2_jHi(4,2)=33
154	exch2_opposingSend(4,2)=3
155	exch2_pij(1,4,2)=1
156	exch2_pij(2,4,2)=0
157	exch2_pij(3,4,2)=0
158	exch2_pij(4,4,2)=1
159	exch2_oi(4,2)=-32
160	exch2_oj(4,2)=0
161	RETURN
162	END
163
164	SUBROUTINE W2_E2SETUP_3
165	C Topology for tile 3
166	#include "W2_EXCH2_TOPOLOGY.h"
167	exch2_tNx(3)=32
168	exch2_tNy(3)=32
169	exch2_tBasex(3)=0
170	exch2_tBasey(3)=0
171	exch2_txGlobalo(3)=65
172	exch2_tyGlobalo(3)=1
173	exch2_isWedge(3)=1
174	exch2_isNedge(3)=1
175	exch2_isEedge(3)=1
176	exch2_isSedge(3)=1
177	exch2_myFace(3)=3
178	exch2_mydNx(3)=32
179	exch2_mydNy(3)=32
180	exch2_nNeighbours(3)=4
181
182	exch2_neighbourId(1,3)=5
183	exch2_iLo(1,3)=0
184	exch2_iHi(1,3)=33
185	exch2_jLo(1,3)=33
186	exch2_jHi(1,3)=33
187	exch2_opposingSend(1,3)=4
188	exch2_pij(1,1,3)=0
189	exch2_pij(2,1,3)=-1
190	exch2_pij(3,1,3)=1
191	exch2_pij(4,1,3)=0
192	exch2_oi(1,3)=33
193	exch2_oj(1,3)=32
194
195	exch2_neighbourId(2,3)=2
196	exch2_iLo(2,3)=0
197	exch2_iHi(2,3)=33
198	exch2_jLo(2,3)=0
199	exch2_jHi(2,3)=0
200	exch2_opposingSend(2,3)=1
201	exch2_pij(1,2,3)=1
202	exch2_pij(2,2,3)=0
203	exch2_pij(3,2,3)=0
204	exch2_pij(4,2,3)=1
205	exch2_oi(2,3)=0
206	exch2_oj(2,3)=-32
207
208	exch2_neighbourId(3,3)=4
209	exch2_iLo(3,3)=33
210	exch2_iHi(3,3)=33
211	exch2_jLo(3,3)=0
212	exch2_jHi(3,3)=33
213	exch2_opposingSend(3,3)=4
214	exch2_pij(1,3,3)=1
215	exch2_pij(2,3,3)=0
216	exch2_pij(3,3,3)=0
217	exch2_pij(4,3,3)=1
218	exch2_oi(3,3)=32
219	exch2_oj(3,3)=0
220
221	exch2_neighbourId(4,3)=1
222	exch2_iLo(4,3)=0
223	exch2_iHi(4,3)=0
224	exch2_jLo(4,3)=0
225	exch2_jHi(4,3)=33
226	exch2_opposingSend(4,3)=1
227	exch2_pij(1,4,3)=0
228	exch2_pij(2,4,3)=1
229	exch2_pij(3,4,3)=-1
230	exch2_pij(4,4,3)=0
231	exch2_oi(4,3)=-32
232	exch2_oj(4,3)=33
233	RETURN
234	END
235
236	SUBROUTINE W2_E2SETUP_4
237	C Topology for tile 4
238	#include "W2_EXCH2_TOPOLOGY.h"
239	exch2_tNx(4)=32
240	exch2_tNy(4)=32
241	exch2_tBasex(4)=0
242	exch2_tBasey(4)=0
243	exch2_txGlobalo(4)=97
244	exch2_tyGlobalo(4)=1
245	exch2_isWedge(4)=1
246	exch2_isNedge(4)=1
247	exch2_isEedge(4)=1
248	exch2_isSedge(4)=1
249	exch2_myFace(4)=4
250	exch2_mydNx(4)=32
251	exch2_mydNy(4)=32
252	exch2_nNeighbours(4)=4
253
254	exch2_neighbourId(1,4)=5
255	exch2_iLo(1,4)=0
256	exch2_iHi(1,4)=33
257	exch2_jLo(1,4)=33
258	exch2_jHi(1,4)=33
259	exch2_opposingSend(1,4)=2
260	exch2_pij(1,1,4)=1
261	exch2_pij(2,1,4)=0
262	exch2_pij(3,1,4)=0
263	exch2_pij(4,1,4)=1
264	exch2_oi(1,4)=0
265	exch2_oj(1,4)=32
266
267	exch2_neighbourId(2,4)=2
268	exch2_iLo(2,4)=0
269	exch2_iHi(2,4)=33
270	exch2_jLo(2,4)=0
271	exch2_jHi(2,4)=0
272	exch2_opposingSend(2,4)=3
273	exch2_pij(1,2,4)=0
274	exch2_pij(2,2,4)=-1
275	exch2_pij(3,2,4)=1
276	exch2_pij(4,2,4)=0
277	exch2_oi(2,4)=33
278	exch2_oj(2,4)=-32
279
280	exch2_neighbourId(3,4)=6
281	exch2_iLo(3,4)=33
282	exch2_iHi(3,4)=33
283	exch2_jLo(3,4)=0
284	exch2_jHi(3,4)=33
285	exch2_opposingSend(3,4)=2
286	exch2_pij(1,3,4)=0
287	exch2_pij(2,3,4)=1
288	exch2_pij(3,3,4)=-1
289	exch2_pij(4,3,4)=0
290	exch2_oi(3,4)=32
291	exch2_oj(3,4)=33
292
293	exch2_neighbourId(4,4)=3
294	exch2_iLo(4,4)=0
295	exch2_iHi(4,4)=0
296	exch2_jLo(4,4)=0
297	exch2_jHi(4,4)=33
298	exch2_opposingSend(4,4)=3
299	exch2_pij(1,4,4)=1
300	exch2_pij(2,4,4)=0
301	exch2_pij(3,4,4)=0
302	exch2_pij(4,4,4)=1
303	exch2_oi(4,4)=-32
304	exch2_oj(4,4)=0
305	RETURN
306	END
307
308	SUBROUTINE W2_E2SETUP_5
309	C Topology for tile 5
310	#include "W2_EXCH2_TOPOLOGY.h"
311	exch2_tNx(5)=32
312	exch2_tNy(5)=32
313	exch2_tBasex(5)=0
314	exch2_tBasey(5)=0
315	exch2_txGlobalo(5)=129
316	exch2_tyGlobalo(5)=1
317	exch2_isWedge(5)=1
318	exch2_isNedge(5)=1
319	exch2_isEedge(5)=1
320	exch2_isSedge(5)=1
321	exch2_myFace(5)=5
322	exch2_mydNx(5)=32
323	exch2_mydNy(5)=32
324	exch2_nNeighbours(5)=4
325
326	exch2_neighbourId(1,5)=1
327	exch2_iLo(1,5)=0
328	exch2_iHi(1,5)=33
329	exch2_jLo(1,5)=33
330	exch2_jHi(1,5)=33
331	exch2_opposingSend(1,5)=4
332	exch2_pij(1,1,5)=0
333	exch2_pij(2,1,5)=-1
334	exch2_pij(3,1,5)=1
335	exch2_pij(4,1,5)=0
336	exch2_oi(1,5)=33
337	exch2_oj(1,5)=32
338
339	exch2_neighbourId(2,5)=4
340	exch2_iLo(2,5)=0
341	exch2_iHi(2,5)=33
342	exch2_jLo(2,5)=0
343	exch2_jHi(2,5)=0
344	exch2_opposingSend(2,5)=1
345	exch2_pij(1,2,5)=1
346	exch2_pij(2,2,5)=0
347	exch2_pij(3,2,5)=0
348	exch2_pij(4,2,5)=1
349	exch2_oi(2,5)=0
350	exch2_oj(2,5)=-32
351
352	exch2_neighbourId(3,5)=6
353	exch2_iLo(3,5)=33
354	exch2_iHi(3,5)=33
355	exch2_jLo(3,5)=0
356	exch2_jHi(3,5)=33
357	exch2_opposingSend(3,5)=4
358	exch2_pij(1,3,5)=1
359	exch2_pij(2,3,5)=0
360	exch2_pij(3,3,5)=0
361	exch2_pij(4,3,5)=1
362	exch2_oi(3,5)=32
363	exch2_oj(3,5)=0
364
365	exch2_neighbourId(4,5)=3
366	exch2_iLo(4,5)=0
367	exch2_iHi(4,5)=0
368	exch2_jLo(4,5)=0
369	exch2_jHi(4,5)=33
370	exch2_opposingSend(4,5)=1
371	exch2_pij(1,4,5)=0
372	exch2_pij(2,4,5)=1
373	exch2_pij(3,4,5)=-1
374	exch2_pij(4,4,5)=0
375	exch2_oi(4,5)=-32
376	exch2_oj(4,5)=33
377	RETURN
378	END
379
380	SUBROUTINE W2_E2SETUP_6
381	C Topology for tile 6
382	#include "W2_EXCH2_TOPOLOGY.h"
383	exch2_tNx(6)=32
384	exch2_tNy(6)=32
385	exch2_tBasex(6)=0
386	exch2_tBasey(6)=0
387	exch2_txGlobalo(6)=161
388	exch2_tyGlobalo(6)=1
389	exch2_isWedge(6)=1
390	exch2_isNedge(6)=1
391	exch2_isEedge(6)=1
392	exch2_isSedge(6)=1
393	exch2_myFace(6)=6
394	exch2_mydNx(6)=32
395	exch2_mydNy(6)=32
396	exch2_nNeighbours(6)=4
397
398	exch2_neighbourId(1,6)=1
399	exch2_iLo(1,6)=0
400	exch2_iHi(1,6)=33
401	exch2_jLo(1,6)=33
402	exch2_jHi(1,6)=33
403	exch2_opposingSend(1,6)=2
404	exch2_pij(1,1,6)=1
405	exch2_pij(2,1,6)=0
406	exch2_pij(3,1,6)=0
407	exch2_pij(4,1,6)=1
408	exch2_oi(1,6)=0
409	exch2_oj(1,6)=32
410
411	exch2_neighbourId(2,6)=4
412	exch2_iLo(2,6)=0
413	exch2_iHi(2,6)=33
414	exch2_jLo(2,6)=0
415	exch2_jHi(2,6)=0
416	exch2_opposingSend(2,6)=3
417	exch2_pij(1,2,6)=0
418	exch2_pij(2,2,6)=-1
419	exch2_pij(3,2,6)=1
420	exch2_pij(4,2,6)=0
421	exch2_oi(2,6)=33
422	exch2_oj(2,6)=-32
423
424	exch2_neighbourId(3,6)=2
425	exch2_iLo(3,6)=33
426	exch2_iHi(3,6)=33
427	exch2_jLo(3,6)=0
428	exch2_jHi(3,6)=33
429	exch2_opposingSend(3,6)=2
430	exch2_pij(1,3,6)=0
431	exch2_pij(2,3,6)=1
432	exch2_pij(3,3,6)=-1
433	exch2_pij(4,3,6)=0
434	exch2_oi(3,6)=32
435	exch2_oj(3,6)=33
436
437	exch2_neighbourId(4,6)=5
438	exch2_iLo(4,6)=0
439	exch2_iHi(4,6)=0
440	exch2_jLo(4,6)=0
441	exch2_jHi(4,6)=33
442	exch2_opposingSend(4,6)=3
443	exch2_pij(1,4,6)=1
444	exch2_pij(2,4,6)=0
445	exch2_pij(3,4,6)=0
446	exch2_pij(4,4,6)=1
447	exch2_oi(4,6)=-32
448	exch2_oj(4,6)=0
449	RETURN
450	END
451