1 
C Tiling topology data structures header file 
2 
C *** THIS FILE IS AUTOMATICALLY GENERATED *** 
3 
C NTILES :: Number of tiles in this topology 
4 
C MAX_NEIGHBOURS :: Maximum number of neighbours any tile has. 
5 
C exch2_domain_nxt :: Total domain length in tiles. 
6 
C exch2_domain_nyt :: Maximum domain height in tiles. 
7 
C exch2_tnx :: Size in X for each tile. 
8 
C exch2_tny :: Size in Y for each tile. 
9 
C exch2_tbasex :: Tile offset in X within its subdomain (cube face) 
10 
C exch2_tbasey :: Tile offset in Y within its subdomain (cube face) 
11 
C exch2_tglobalxlo :: Tile base X index within global index space. 
12 
C exch2_tglobalylo :: Tile base Y index within global index space. 
13 
C exch2_isWedge :: 0 if West not at domain edge, 1 if it is. 
14 
C exch2_isNedge :: 0 if North not at domain edge, 1 if it is. 
15 
C exch2_isEedge :: 0 if East not at domain edge, 1 if it is. 
16 
C exch2_isSedge :: 0 if South not at domain edge, 1 if it is. 
17 
C exch2_myFace :: Cube face number used for I/O. 
18 
C exch2_nNeighbours :: Tile neighbour entries count. 
19 
C exch2_tProc :: Rank of process owning tile 
20 
C :: (filled at run time). 
21 
C exch2_neighbourId :: Tile number for each neighbour entry. 
22 
C exch2_opposingSend_record :: Record for entry in target tile send 
23 
C :: list that has this tile and face 
24 
C :: as its target. 
25 
C exch2_pi :: X index row of target to source permutation 
26 
C :: matrix for each neighbour entry. 
27 
C exch2_pj :: Y index row of target to source permutation 
28 
C :: matrix for each neighbour entry. 
29 
C exch2_oi :: X index element of target to source 
30 
C :: offset vector for cellcentered quantities 
31 
C :: of each neighbor entry. 
32 
C exch2_oj :: Y index element of target to source 
33 
C :: offset vector for cellcentered quantities 
34 
C :: of each neighbor entry. 
35 
C exch2_oi_f :: X index element of target to source 
36 
C :: offset vector for face quantities 
37 
C :: of each neighbor entry. 
38 
C exch2_oj_f :: Y index element of target to source 
39 
C :: offset vector for face quantities 
40 
C :: of each neighbor entry. 
41 
INTEGER NTILES 
42 
INTEGER MAX_NEIGHBOURS 
43 
INTEGER exch2_domain_nyt 
44 
INTEGER exch2_domain_nxt 
45 
PARAMETER ( NTILES = 176) 
46 
PARAMETER ( MAX_NEIGHBOURS = 5) 
47 
PARAMETER ( exch2_domain_nxt=24) 
48 
PARAMETER ( exch2_domain_nyt=8) 
49 
INTEGER exch2_tnx(NTILES) 
50 
INTEGER exch2_tny(NTILES) 
51 
INTEGER exch2_tbasex(NTILES) 
52 
INTEGER exch2_tbasey(NTILES) 
53 
INTEGER exch2_txglobalo(NTILES) 
54 
INTEGER exch2_tyglobalo(NTILES) 
55 
INTEGER exch2_isWedge(NTILES) 
56 
INTEGER exch2_isNedge(NTILES) 
57 
INTEGER exch2_isEedge(NTILES) 
58 
INTEGER exch2_isSedge(NTILES) 
59 
INTEGER exch2_myFace(NTILES) 
60 
INTEGER exch2_mydnx(NTILES) 
61 
INTEGER exch2_mydny(NTILES) 
62 
INTEGER exch2_nNeighbours(NTILES) 
63 
INTEGER exch2_tProc(NTILES) 
64 
INTEGER exch2_neighbourId(MAX_NEIGHBOURS,NTILES) 
65 
INTEGER exch2_opposingSend_record(MAX_NEIGHBOURS,NTILES) 
66 
INTEGER exch2_pi(2,MAX_NEIGHBOURS,NTILES) 
67 
INTEGER exch2_pj(2,MAX_NEIGHBOURS,NTILES) 
68 
INTEGER exch2_oi(MAX_NEIGHBOURS,NTILES) 
69 
INTEGER exch2_oj(MAX_NEIGHBOURS,NTILES) 
70 
INTEGER exch2_oi_f(MAX_NEIGHBOURS,NTILES) 
71 
INTEGER exch2_oj_f(MAX_NEIGHBOURS,NTILES) 
72 

73 

74 
C Exchange execution loop data structures 
75 
INTEGER exch2_itlo_c(MAX_NEIGHBOURS,NTILES) 
76 
INTEGER exch2_ithi_c(MAX_NEIGHBOURS,NTILES) 
77 
INTEGER exch2_jtlo_c(MAX_NEIGHBOURS,NTILES) 
78 
INTEGER exch2_jthi_c(MAX_NEIGHBOURS,NTILES) 
79 

80 
COMMON /W2_EXCH2_TOPO_I/ 
81 
& exch2_tnx, exch2_tny, 
82 
& exch2_tbasex,exch2_tbasey, 
83 
& exch2_txglobalo,exch2_tyglobalo, 
84 
& exch2_isWedge, exch2_isNedge, 
85 
& exch2_isEedge, exch2_isSedge, 
86 
& exch2_myFace, exch2_mydnx, exch2_mydny, 
87 
& exch2_nNeighbours,exch2_neighbourId, 
88 
& exch2_opposingSend_record, 
89 
& exch2_tProc, 
90 
& exch2_pi,exch2_pj, 
91 
& exch2_oi,exch2_oj, 
92 
& exch2_oi_f,exch2_oj_f 
93 

94 
COMMON /W2_EXCH2_HALO_SPEC/ 
95 
& exch2_itlo_c, exch2_ithi_c, 
96 
& exch2_jtlo_c, exch2_jthi_c 
97 
C *** THIS FILE IS AUTOMATICALLY GENERATED *** 