/[MITgcm]/MITgcm_contrib/onedegcube/w2_e2setup.F
ViewVC logotype

Annotation of /MITgcm_contrib/onedegcube/w2_e2setup.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.1 - (hide annotations) (download)
Thu Oct 4 17:57:01 2007 UTC (17 years, 9 months ago) by molod
Branch: MAIN
CVS Tags: HEAD 
One degree cube - files used to create, resulting grid files, gcm-generated
grid output files to verify required symmetries
1 molod 1.1 SUBROUTINE W2_E2SETUP
2    
3     C Tile toplogy settings data structures
4     #include "W2_EXCH2_TOPOLOGY.h"
5    
6     C Tile settings table
7     CALL W2_E2SETUP_1
8     CALL W2_E2SETUP_2
9     CALL W2_E2SETUP_3
10     CALL W2_E2SETUP_4
11     CALL W2_E2SETUP_5
12     CALL W2_E2SETUP_6
13     CALL W2_E2SETUP_7
14     CALL W2_E2SETUP_8
15     CALL W2_E2SETUP_9
16     CALL W2_E2SETUP_10
17     CALL W2_E2SETUP_11
18     CALL W2_E2SETUP_12
19     CALL W2_E2SETUP_13
20     CALL W2_E2SETUP_14
21     CALL W2_E2SETUP_15
22     CALL W2_E2SETUP_16
23     CALL W2_E2SETUP_17
24     CALL W2_E2SETUP_18
25     CALL W2_E2SETUP_19
26     CALL W2_E2SETUP_20
27     CALL W2_E2SETUP_21
28     CALL W2_E2SETUP_22
29     CALL W2_E2SETUP_23
30     CALL W2_E2SETUP_24
31     RETURN
32     END
33     SUBROUTINE W2_E2SETUP_1
34     C Topology for tile 1
35     #include "W2_EXCH2_TOPOLOGY.h"
36     exch2_tnx(1)=51
37     exch2_tny(1)=51
38     exch2_tbasex(1)=0
39     exch2_tbasey(1)=0
40     exch2_txglobalo(1)=1
41     exch2_tyglobalo(1)=1
42     exch2_isWedge(1)=1
43     exch2_isNedge(1)=0
44     exch2_isEedge(1)=0
45     exch2_isSedge(1)=1
46     exch2_myFace(1)=1
47     exch2_mydnx(1)=102
48     exch2_mydny(1)=102
49     exch2_nNeighbours(1)=4
50    
51     exch2_neighbourId(1,1)=3
52     exch2_pi(1,1,1)=1
53     exch2_pi(2,1,1)=0
54     exch2_pj(1,1,1)=0
55     exch2_pj(2,1,1)=1
56     exch2_oi(1,1)=0
57     exch2_oi_f(1,1)=0
58     exch2_oj(1,1)=0
59     exch2_oj_f(1,1)=0
60     exch2_itlo_c(1,1)=0
61     exch2_ithi_c(1,1)=52
62     exch2_jtlo_c(1,1)=0
63     exch2_jthi_c(1,1)=0
64     exch2_opposingSend_record(1,1)=2
65    
66     exch2_neighbourId(2,1)=23
67     exch2_pi(1,2,1)=1
68     exch2_pi(2,2,1)=0
69     exch2_pj(1,2,1)=0
70     exch2_pj(2,2,1)=1
71     exch2_oi(2,1)=0
72     exch2_oi_f(2,1)=0
73     exch2_oj(2,1)=-102
74     exch2_oj_f(2,1)=-102
75     exch2_itlo_c(2,1)=0
76     exch2_ithi_c(2,1)=52
77     exch2_jtlo_c(2,1)=52
78     exch2_jthi_c(2,1)=52
79     exch2_opposingSend_record(2,1)=1
80    
81     exch2_neighbourId(3,1)=2
82     exch2_pi(1,3,1)=1
83     exch2_pi(2,3,1)=0
84     exch2_pj(1,3,1)=0
85     exch2_pj(2,3,1)=1
86     exch2_oi(3,1)=0
87     exch2_oi_f(3,1)=0
88     exch2_oj(3,1)=0
89     exch2_oj_f(3,1)=0
90     exch2_itlo_c(3,1)=0
91     exch2_ithi_c(3,1)=0
92     exch2_jtlo_c(3,1)=0
93     exch2_jthi_c(3,1)=52
94     exch2_opposingSend_record(3,1)=4
95    
96     exch2_neighbourId(4,1)=20
97     exch2_pi(1,4,1)=0
98     exch2_pi(2,4,1)=1
99     exch2_pj(1,4,1)=-1
100     exch2_pj(2,4,1)=0
101     exch2_oi(4,1)=-102
102     exch2_oi_f(4,1)=-102
103     exch2_oj(4,1)=103
104     exch2_oj_f(4,1)=104
105     exch2_itlo_c(4,1)=0
106     exch2_ithi_c(4,1)=52
107     exch2_jtlo_c(4,1)=52
108     exch2_jthi_c(4,1)=52
109     exch2_opposingSend_record(4,1)=1
110     RETURN
111     END
112    
113     SUBROUTINE W2_E2SETUP_2
114     C Topology for tile 2
115     #include "W2_EXCH2_TOPOLOGY.h"
116     exch2_tnx(2)=51
117     exch2_tny(2)=51
118     exch2_tbasex(2)=51
119     exch2_tbasey(2)=0
120     exch2_txglobalo(2)=52
121     exch2_tyglobalo(2)=1
122     exch2_isWedge(2)=0
123     exch2_isNedge(2)=0
124     exch2_isEedge(2)=1
125     exch2_isSedge(2)=1
126     exch2_myFace(2)=1
127     exch2_mydnx(2)=102
128     exch2_mydny(2)=102
129     exch2_nNeighbours(2)=4
130    
131     exch2_neighbourId(1,2)=4
132     exch2_pi(1,1,2)=1
133     exch2_pi(2,1,2)=0
134     exch2_pj(1,1,2)=0
135     exch2_pj(2,1,2)=1
136     exch2_oi(1,2)=0
137     exch2_oi_f(1,2)=0
138     exch2_oj(1,2)=0
139     exch2_oj_f(1,2)=0
140     exch2_itlo_c(1,2)=0
141     exch2_ithi_c(1,2)=52
142     exch2_jtlo_c(1,2)=0
143     exch2_jthi_c(1,2)=0
144     exch2_opposingSend_record(1,2)=2
145    
146     exch2_neighbourId(2,2)=24
147     exch2_pi(1,2,2)=1
148     exch2_pi(2,2,2)=0
149     exch2_pj(1,2,2)=0
150     exch2_pj(2,2,2)=1
151     exch2_oi(2,2)=0
152     exch2_oi_f(2,2)=0
153     exch2_oj(2,2)=-102
154     exch2_oj_f(2,2)=-102
155     exch2_itlo_c(2,2)=0
156     exch2_ithi_c(2,2)=52
157     exch2_jtlo_c(2,2)=52
158     exch2_jthi_c(2,2)=52
159     exch2_opposingSend_record(2,2)=1
160    
161     exch2_neighbourId(3,2)=5
162     exch2_pi(1,3,2)=1
163     exch2_pi(2,3,2)=0
164     exch2_pj(1,3,2)=0
165     exch2_pj(2,3,2)=1
166     exch2_oi(3,2)=102
167     exch2_oi_f(3,2)=102
168     exch2_oj(3,2)=0
169     exch2_oj_f(3,2)=0
170     exch2_itlo_c(3,2)=0
171     exch2_ithi_c(3,2)=0
172     exch2_jtlo_c(3,2)=0
173     exch2_jthi_c(3,2)=52
174     exch2_opposingSend_record(3,2)=4
175    
176     exch2_neighbourId(4,2)=1
177     exch2_pi(1,4,2)=1
178     exch2_pi(2,4,2)=0
179     exch2_pj(1,4,2)=0
180     exch2_pj(2,4,2)=1
181     exch2_oi(4,2)=0
182     exch2_oi_f(4,2)=0
183     exch2_oj(4,2)=0
184     exch2_oj_f(4,2)=0
185     exch2_itlo_c(4,2)=52
186     exch2_ithi_c(4,2)=52
187     exch2_jtlo_c(4,2)=0
188     exch2_jthi_c(4,2)=52
189     exch2_opposingSend_record(4,2)=3
190     RETURN
191     END
192    
193     SUBROUTINE W2_E2SETUP_3
194     C Topology for tile 3
195     #include "W2_EXCH2_TOPOLOGY.h"
196     exch2_tnx(3)=51
197     exch2_tny(3)=51
198     exch2_tbasex(3)=0
199     exch2_tbasey(3)=51
200     exch2_txglobalo(3)=1
201     exch2_tyglobalo(3)=52
202     exch2_isWedge(3)=1
203     exch2_isNedge(3)=1
204     exch2_isEedge(3)=0
205     exch2_isSedge(3)=0
206     exch2_myFace(3)=1
207     exch2_mydnx(3)=102
208     exch2_mydny(3)=102
209     exch2_nNeighbours(3)=4
210    
211     exch2_neighbourId(1,3)=11
212     exch2_pi(1,1,3)=0
213     exch2_pi(2,1,3)=-1
214     exch2_pj(1,1,3)=1
215     exch2_pj(2,1,3)=0
216     exch2_oi(1,3)=103
217     exch2_oi_f(1,3)=104
218     exch2_oj(1,3)=102
219     exch2_oj_f(1,3)=102
220     exch2_itlo_c(1,3)=0
221     exch2_ithi_c(1,3)=0
222     exch2_jtlo_c(1,3)=0
223     exch2_jthi_c(1,3)=52
224     exch2_opposingSend_record(1,3)=4
225    
226     exch2_neighbourId(2,3)=1
227     exch2_pi(1,2,3)=1
228     exch2_pi(2,2,3)=0
229     exch2_pj(1,2,3)=0
230     exch2_pj(2,2,3)=1
231     exch2_oi(2,3)=0
232     exch2_oi_f(2,3)=0
233     exch2_oj(2,3)=0
234     exch2_oj_f(2,3)=0
235     exch2_itlo_c(2,3)=1
236     exch2_ithi_c(2,3)=51
237     exch2_jtlo_c(2,3)=52
238     exch2_jthi_c(2,3)=52
239     exch2_opposingSend_record(2,3)=1
240    
241     exch2_neighbourId(3,3)=4
242     exch2_pi(1,3,3)=1
243     exch2_pi(2,3,3)=0
244     exch2_pj(1,3,3)=0
245     exch2_pj(2,3,3)=1
246     exch2_oi(3,3)=0
247     exch2_oi_f(3,3)=0
248     exch2_oj(3,3)=0
249     exch2_oj_f(3,3)=0
250     exch2_itlo_c(3,3)=0
251     exch2_ithi_c(3,3)=0
252     exch2_jtlo_c(3,3)=0
253     exch2_jthi_c(3,3)=52
254     exch2_opposingSend_record(3,3)=4
255    
256     exch2_neighbourId(4,3)=19
257     exch2_pi(1,4,3)=0
258     exch2_pi(2,4,3)=1
259     exch2_pj(1,4,3)=-1
260     exch2_pj(2,4,3)=0
261     exch2_oi(4,3)=-102
262     exch2_oi_f(4,3)=-102
263     exch2_oj(4,3)=103
264     exch2_oj_f(4,3)=104
265     exch2_itlo_c(4,3)=0
266     exch2_ithi_c(4,3)=52
267     exch2_jtlo_c(4,3)=52
268     exch2_jthi_c(4,3)=52
269     exch2_opposingSend_record(4,3)=1
270     RETURN
271     END
272    
273     SUBROUTINE W2_E2SETUP_4
274     C Topology for tile 4
275     #include "W2_EXCH2_TOPOLOGY.h"
276     exch2_tnx(4)=51
277     exch2_tny(4)=51
278     exch2_tbasex(4)=51
279     exch2_tbasey(4)=51
280     exch2_txglobalo(4)=52
281     exch2_tyglobalo(4)=52
282     exch2_isWedge(4)=0
283     exch2_isNedge(4)=1
284     exch2_isEedge(4)=1
285     exch2_isSedge(4)=0
286     exch2_myFace(4)=1
287     exch2_mydnx(4)=102
288     exch2_mydny(4)=102
289     exch2_nNeighbours(4)=4
290    
291     exch2_neighbourId(1,4)=9
292     exch2_pi(1,1,4)=0
293     exch2_pi(2,1,4)=-1
294     exch2_pj(1,1,4)=1
295     exch2_pj(2,1,4)=0
296     exch2_oi(1,4)=103
297     exch2_oi_f(1,4)=104
298     exch2_oj(1,4)=102
299     exch2_oj_f(1,4)=102
300     exch2_itlo_c(1,4)=0
301     exch2_ithi_c(1,4)=0
302     exch2_jtlo_c(1,4)=0
303     exch2_jthi_c(1,4)=52
304     exch2_opposingSend_record(1,4)=4
305    
306     exch2_neighbourId(2,4)=2
307     exch2_pi(1,2,4)=1
308     exch2_pi(2,2,4)=0
309     exch2_pj(1,2,4)=0
310     exch2_pj(2,2,4)=1
311     exch2_oi(2,4)=0
312     exch2_oi_f(2,4)=0
313     exch2_oj(2,4)=0
314     exch2_oj_f(2,4)=0
315     exch2_itlo_c(2,4)=1
316     exch2_ithi_c(2,4)=51
317     exch2_jtlo_c(2,4)=52
318     exch2_jthi_c(2,4)=52
319     exch2_opposingSend_record(2,4)=1
320    
321     exch2_neighbourId(3,4)=7
322     exch2_pi(1,3,4)=1
323     exch2_pi(2,3,4)=0
324     exch2_pj(1,3,4)=0
325     exch2_pj(2,3,4)=1
326     exch2_oi(3,4)=102
327     exch2_oi_f(3,4)=102
328     exch2_oj(3,4)=0
329     exch2_oj_f(3,4)=0
330     exch2_itlo_c(3,4)=0
331     exch2_ithi_c(3,4)=0
332     exch2_jtlo_c(3,4)=0
333     exch2_jthi_c(3,4)=52
334     exch2_opposingSend_record(3,4)=4
335    
336     exch2_neighbourId(4,4)=3
337     exch2_pi(1,4,4)=1
338     exch2_pi(2,4,4)=0
339     exch2_pj(1,4,4)=0
340     exch2_pj(2,4,4)=1
341     exch2_oi(4,4)=0
342     exch2_oi_f(4,4)=0
343     exch2_oj(4,4)=0
344     exch2_oj_f(4,4)=0
345     exch2_itlo_c(4,4)=52
346     exch2_ithi_c(4,4)=52
347     exch2_jtlo_c(4,4)=0
348     exch2_jthi_c(4,4)=52
349     exch2_opposingSend_record(4,4)=3
350     RETURN
351     END
352    
353     SUBROUTINE W2_E2SETUP_5
354     C Topology for tile 5
355     #include "W2_EXCH2_TOPOLOGY.h"
356     exch2_tnx(5)=51
357     exch2_tny(5)=51
358     exch2_tbasex(5)=0
359     exch2_tbasey(5)=0
360     exch2_txglobalo(5)=103
361     exch2_tyglobalo(5)=1
362     exch2_isWedge(5)=1
363     exch2_isNedge(5)=0
364     exch2_isEedge(5)=0
365     exch2_isSedge(5)=1
366     exch2_myFace(5)=2
367     exch2_mydnx(5)=102
368     exch2_mydny(5)=102
369     exch2_nNeighbours(5)=4
370    
371     exch2_neighbourId(1,5)=7
372     exch2_pi(1,1,5)=1
373     exch2_pi(2,1,5)=0
374     exch2_pj(1,1,5)=0
375     exch2_pj(2,1,5)=1
376     exch2_oi(1,5)=0
377     exch2_oi_f(1,5)=0
378     exch2_oj(1,5)=0
379     exch2_oj_f(1,5)=0
380     exch2_itlo_c(1,5)=0
381     exch2_ithi_c(1,5)=52
382     exch2_jtlo_c(1,5)=0
383     exch2_jthi_c(1,5)=0
384     exch2_opposingSend_record(1,5)=2
385    
386     exch2_neighbourId(2,5)=24
387     exch2_pi(1,2,5)=0
388     exch2_pi(2,2,5)=-1
389     exch2_pj(1,2,5)=1
390     exch2_pj(2,2,5)=0
391     exch2_oi(2,5)=103
392     exch2_oi_f(2,5)=104
393     exch2_oj(2,5)=-102
394     exch2_oj_f(2,5)=-102
395     exch2_itlo_c(2,5)=52
396     exch2_ithi_c(2,5)=52
397     exch2_jtlo_c(2,5)=0
398     exch2_jthi_c(2,5)=52
399     exch2_opposingSend_record(2,5)=3
400    
401     exch2_neighbourId(3,5)=6
402     exch2_pi(1,3,5)=1
403     exch2_pi(2,3,5)=0
404     exch2_pj(1,3,5)=0
405     exch2_pj(2,3,5)=1
406     exch2_oi(3,5)=0
407     exch2_oi_f(3,5)=0
408     exch2_oj(3,5)=0
409     exch2_oj_f(3,5)=0
410     exch2_itlo_c(3,5)=0
411     exch2_ithi_c(3,5)=0
412     exch2_jtlo_c(3,5)=0
413     exch2_jthi_c(3,5)=52
414     exch2_opposingSend_record(3,5)=4
415    
416     exch2_neighbourId(4,5)=2
417     exch2_pi(1,4,5)=1
418     exch2_pi(2,4,5)=0
419     exch2_pj(1,4,5)=0
420     exch2_pj(2,4,5)=1
421     exch2_oi(4,5)=-102
422     exch2_oi_f(4,5)=-102
423     exch2_oj(4,5)=0
424     exch2_oj_f(4,5)=0
425     exch2_itlo_c(4,5)=52
426     exch2_ithi_c(4,5)=52
427     exch2_jtlo_c(4,5)=0
428     exch2_jthi_c(4,5)=52
429     exch2_opposingSend_record(4,5)=3
430     RETURN
431     END
432    
433     SUBROUTINE W2_E2SETUP_6
434     C Topology for tile 6
435     #include "W2_EXCH2_TOPOLOGY.h"
436     exch2_tnx(6)=51
437     exch2_tny(6)=51
438     exch2_tbasex(6)=51
439     exch2_tbasey(6)=0
440     exch2_txglobalo(6)=154
441     exch2_tyglobalo(6)=1
442     exch2_isWedge(6)=0
443     exch2_isNedge(6)=0
444     exch2_isEedge(6)=1
445     exch2_isSedge(6)=1
446     exch2_myFace(6)=2
447     exch2_mydnx(6)=102
448     exch2_mydny(6)=102
449     exch2_nNeighbours(6)=4
450    
451     exch2_neighbourId(1,6)=8
452     exch2_pi(1,1,6)=1
453     exch2_pi(2,1,6)=0
454     exch2_pj(1,1,6)=0
455     exch2_pj(2,1,6)=1
456     exch2_oi(1,6)=0
457     exch2_oi_f(1,6)=0
458     exch2_oj(1,6)=0
459     exch2_oj_f(1,6)=0
460     exch2_itlo_c(1,6)=0
461     exch2_ithi_c(1,6)=52
462     exch2_jtlo_c(1,6)=0
463     exch2_jthi_c(1,6)=0
464     exch2_opposingSend_record(1,6)=2
465    
466     exch2_neighbourId(2,6)=22
467     exch2_pi(1,2,6)=0
468     exch2_pi(2,2,6)=-1
469     exch2_pj(1,2,6)=1
470     exch2_pj(2,2,6)=0
471     exch2_oi(2,6)=103
472     exch2_oi_f(2,6)=104
473     exch2_oj(2,6)=-102
474     exch2_oj_f(2,6)=-102
475     exch2_itlo_c(2,6)=52
476     exch2_ithi_c(2,6)=52
477     exch2_jtlo_c(2,6)=0
478     exch2_jthi_c(2,6)=52
479     exch2_opposingSend_record(2,6)=3
480    
481     exch2_neighbourId(3,6)=14
482     exch2_pi(1,3,6)=0
483     exch2_pi(2,3,6)=1
484     exch2_pj(1,3,6)=-1
485     exch2_pj(2,3,6)=0
486     exch2_oi(3,6)=102
487     exch2_oi_f(3,6)=102
488     exch2_oj(3,6)=103
489     exch2_oj_f(3,6)=104
490     exch2_itlo_c(3,6)=0
491     exch2_ithi_c(3,6)=52
492     exch2_jtlo_c(3,6)=0
493     exch2_jthi_c(3,6)=0
494     exch2_opposingSend_record(3,6)=2
495    
496     exch2_neighbourId(4,6)=5
497     exch2_pi(1,4,6)=1
498     exch2_pi(2,4,6)=0
499     exch2_pj(1,4,6)=0
500     exch2_pj(2,4,6)=1
501     exch2_oi(4,6)=0
502     exch2_oi_f(4,6)=0
503     exch2_oj(4,6)=0
504     exch2_oj_f(4,6)=0
505     exch2_itlo_c(4,6)=52
506     exch2_ithi_c(4,6)=52
507     exch2_jtlo_c(4,6)=0
508     exch2_jthi_c(4,6)=52
509     exch2_opposingSend_record(4,6)=3
510     RETURN
511     END
512    
513     SUBROUTINE W2_E2SETUP_7
514     C Topology for tile 7
515     #include "W2_EXCH2_TOPOLOGY.h"
516     exch2_tnx(7)=51
517     exch2_tny(7)=51
518     exch2_tbasex(7)=0
519     exch2_tbasey(7)=51
520     exch2_txglobalo(7)=103
521     exch2_tyglobalo(7)=52
522     exch2_isWedge(7)=1
523     exch2_isNedge(7)=1
524     exch2_isEedge(7)=0
525     exch2_isSedge(7)=0
526     exch2_myFace(7)=2
527     exch2_mydnx(7)=102
528     exch2_mydny(7)=102
529     exch2_nNeighbours(7)=4
530    
531     exch2_neighbourId(1,7)=9
532     exch2_pi(1,1,7)=1
533     exch2_pi(2,1,7)=0
534     exch2_pj(1,1,7)=0
535     exch2_pj(2,1,7)=1
536     exch2_oi(1,7)=0
537     exch2_oi_f(1,7)=0
538     exch2_oj(1,7)=102
539     exch2_oj_f(1,7)=102
540     exch2_itlo_c(1,7)=0
541     exch2_ithi_c(1,7)=52
542     exch2_jtlo_c(1,7)=0
543     exch2_jthi_c(1,7)=0
544     exch2_opposingSend_record(1,7)=2
545    
546     exch2_neighbourId(2,7)=5
547     exch2_pi(1,2,7)=1
548     exch2_pi(2,2,7)=0
549     exch2_pj(1,2,7)=0
550     exch2_pj(2,2,7)=1
551     exch2_oi(2,7)=0
552     exch2_oi_f(2,7)=0
553     exch2_oj(2,7)=0
554     exch2_oj_f(2,7)=0
555     exch2_itlo_c(2,7)=1
556     exch2_ithi_c(2,7)=51
557     exch2_jtlo_c(2,7)=52
558     exch2_jthi_c(2,7)=52
559     exch2_opposingSend_record(2,7)=1
560    
561     exch2_neighbourId(3,7)=8
562     exch2_pi(1,3,7)=1
563     exch2_pi(2,3,7)=0
564     exch2_pj(1,3,7)=0
565     exch2_pj(2,3,7)=1
566     exch2_oi(3,7)=0
567     exch2_oi_f(3,7)=0
568     exch2_oj(3,7)=0
569     exch2_oj_f(3,7)=0
570     exch2_itlo_c(3,7)=0
571     exch2_ithi_c(3,7)=0
572     exch2_jtlo_c(3,7)=0
573     exch2_jthi_c(3,7)=52
574     exch2_opposingSend_record(3,7)=4
575    
576     exch2_neighbourId(4,7)=4
577     exch2_pi(1,4,7)=1
578     exch2_pi(2,4,7)=0
579     exch2_pj(1,4,7)=0
580     exch2_pj(2,4,7)=1
581     exch2_oi(4,7)=-102
582     exch2_oi_f(4,7)=-102
583     exch2_oj(4,7)=0
584     exch2_oj_f(4,7)=0
585     exch2_itlo_c(4,7)=52
586     exch2_ithi_c(4,7)=52
587     exch2_jtlo_c(4,7)=0
588     exch2_jthi_c(4,7)=52
589     exch2_opposingSend_record(4,7)=3
590     RETURN
591     END
592    
593     SUBROUTINE W2_E2SETUP_8
594     C Topology for tile 8
595     #include "W2_EXCH2_TOPOLOGY.h"
596     exch2_tnx(8)=51
597     exch2_tny(8)=51
598     exch2_tbasex(8)=51
599     exch2_tbasey(8)=51
600     exch2_txglobalo(8)=154
601     exch2_tyglobalo(8)=52
602     exch2_isWedge(8)=0
603     exch2_isNedge(8)=1
604     exch2_isEedge(8)=1
605     exch2_isSedge(8)=0
606     exch2_myFace(8)=2
607     exch2_mydnx(8)=102
608     exch2_mydny(8)=102
609     exch2_nNeighbours(8)=4
610    
611     exch2_neighbourId(1,8)=10
612     exch2_pi(1,1,8)=1
613     exch2_pi(2,1,8)=0
614     exch2_pj(1,1,8)=0
615     exch2_pj(2,1,8)=1
616     exch2_oi(1,8)=0
617     exch2_oi_f(1,8)=0
618     exch2_oj(1,8)=102
619     exch2_oj_f(1,8)=102
620     exch2_itlo_c(1,8)=0
621     exch2_ithi_c(1,8)=52
622     exch2_jtlo_c(1,8)=0
623     exch2_jthi_c(1,8)=0
624     exch2_opposingSend_record(1,8)=2
625    
626     exch2_neighbourId(2,8)=6
627     exch2_pi(1,2,8)=1
628     exch2_pi(2,2,8)=0
629     exch2_pj(1,2,8)=0
630     exch2_pj(2,2,8)=1
631     exch2_oi(2,8)=0
632     exch2_oi_f(2,8)=0
633     exch2_oj(2,8)=0
634     exch2_oj_f(2,8)=0
635     exch2_itlo_c(2,8)=1
636     exch2_ithi_c(2,8)=51
637     exch2_jtlo_c(2,8)=52
638     exch2_jthi_c(2,8)=52
639     exch2_opposingSend_record(2,8)=1
640    
641     exch2_neighbourId(3,8)=13
642     exch2_pi(1,3,8)=0
643     exch2_pi(2,3,8)=1
644     exch2_pj(1,3,8)=-1
645     exch2_pj(2,3,8)=0
646     exch2_oi(3,8)=102
647     exch2_oi_f(3,8)=102
648     exch2_oj(3,8)=103
649     exch2_oj_f(3,8)=104
650     exch2_itlo_c(3,8)=0
651     exch2_ithi_c(3,8)=52
652     exch2_jtlo_c(3,8)=0
653     exch2_jthi_c(3,8)=0
654     exch2_opposingSend_record(3,8)=2
655    
656     exch2_neighbourId(4,8)=7
657     exch2_pi(1,4,8)=1
658     exch2_pi(2,4,8)=0
659     exch2_pj(1,4,8)=0
660     exch2_pj(2,4,8)=1
661     exch2_oi(4,8)=0
662     exch2_oi_f(4,8)=0
663     exch2_oj(4,8)=0
664     exch2_oj_f(4,8)=0
665     exch2_itlo_c(4,8)=52
666     exch2_ithi_c(4,8)=52
667     exch2_jtlo_c(4,8)=0
668     exch2_jthi_c(4,8)=52
669     exch2_opposingSend_record(4,8)=3
670     RETURN
671     END
672    
673     SUBROUTINE W2_E2SETUP_9
674     C Topology for tile 9
675     #include "W2_EXCH2_TOPOLOGY.h"
676     exch2_tnx(9)=51
677     exch2_tny(9)=51
678     exch2_tbasex(9)=0
679     exch2_tbasey(9)=0
680     exch2_txglobalo(9)=205
681     exch2_tyglobalo(9)=1
682     exch2_isWedge(9)=1
683     exch2_isNedge(9)=0
684     exch2_isEedge(9)=0
685     exch2_isSedge(9)=1
686     exch2_myFace(9)=3
687     exch2_mydnx(9)=102
688     exch2_mydny(9)=102
689     exch2_nNeighbours(9)=4
690    
691     exch2_neighbourId(1,9)=11
692     exch2_pi(1,1,9)=1
693     exch2_pi(2,1,9)=0
694     exch2_pj(1,1,9)=0
695     exch2_pj(2,1,9)=1
696     exch2_oi(1,9)=0
697     exch2_oi_f(1,9)=0
698     exch2_oj(1,9)=0
699     exch2_oj_f(1,9)=0
700     exch2_itlo_c(1,9)=0
701     exch2_ithi_c(1,9)=52
702     exch2_jtlo_c(1,9)=0
703     exch2_jthi_c(1,9)=0
704     exch2_opposingSend_record(1,9)=2
705    
706     exch2_neighbourId(2,9)=7
707     exch2_pi(1,2,9)=1
708     exch2_pi(2,2,9)=0
709     exch2_pj(1,2,9)=0
710     exch2_pj(2,2,9)=1
711     exch2_oi(2,9)=0
712     exch2_oi_f(2,9)=0
713     exch2_oj(2,9)=-102
714     exch2_oj_f(2,9)=-102
715     exch2_itlo_c(2,9)=0
716     exch2_ithi_c(2,9)=52
717     exch2_jtlo_c(2,9)=52
718     exch2_jthi_c(2,9)=52
719     exch2_opposingSend_record(2,9)=1
720    
721     exch2_neighbourId(3,9)=10
722     exch2_pi(1,3,9)=1
723     exch2_pi(2,3,9)=0
724     exch2_pj(1,3,9)=0
725     exch2_pj(2,3,9)=1
726     exch2_oi(3,9)=0
727     exch2_oi_f(3,9)=0
728     exch2_oj(3,9)=0
729     exch2_oj_f(3,9)=0
730     exch2_itlo_c(3,9)=0
731     exch2_ithi_c(3,9)=0
732     exch2_jtlo_c(3,9)=0
733     exch2_jthi_c(3,9)=52
734     exch2_opposingSend_record(3,9)=4
735    
736     exch2_neighbourId(4,9)=4
737     exch2_pi(1,4,9)=0
738     exch2_pi(2,4,9)=1
739     exch2_pj(1,4,9)=-1
740     exch2_pj(2,4,9)=0
741     exch2_oi(4,9)=-102
742     exch2_oi_f(4,9)=-102
743     exch2_oj(4,9)=103
744     exch2_oj_f(4,9)=104
745     exch2_itlo_c(4,9)=0
746     exch2_ithi_c(4,9)=52
747     exch2_jtlo_c(4,9)=52
748     exch2_jthi_c(4,9)=52
749     exch2_opposingSend_record(4,9)=1
750     RETURN
751     END
752    
753     SUBROUTINE W2_E2SETUP_10
754     C Topology for tile 10
755     #include "W2_EXCH2_TOPOLOGY.h"
756     exch2_tnx(10)=51
757     exch2_tny(10)=51
758     exch2_tbasex(10)=51
759     exch2_tbasey(10)=0
760     exch2_txglobalo(10)=256
761     exch2_tyglobalo(10)=1
762     exch2_isWedge(10)=0
763     exch2_isNedge(10)=0
764     exch2_isEedge(10)=1
765     exch2_isSedge(10)=1
766     exch2_myFace(10)=3
767     exch2_mydnx(10)=102
768     exch2_mydny(10)=102
769     exch2_nNeighbours(10)=4
770    
771     exch2_neighbourId(1,10)=12
772     exch2_pi(1,1,10)=1
773     exch2_pi(2,1,10)=0
774     exch2_pj(1,1,10)=0
775     exch2_pj(2,1,10)=1
776     exch2_oi(1,10)=0
777     exch2_oi_f(1,10)=0
778     exch2_oj(1,10)=0
779     exch2_oj_f(1,10)=0
780     exch2_itlo_c(1,10)=0
781     exch2_ithi_c(1,10)=52
782     exch2_jtlo_c(1,10)=0
783     exch2_jthi_c(1,10)=0
784     exch2_opposingSend_record(1,10)=2
785    
786     exch2_neighbourId(2,10)=8
787     exch2_pi(1,2,10)=1
788     exch2_pi(2,2,10)=0
789     exch2_pj(1,2,10)=0
790     exch2_pj(2,2,10)=1
791     exch2_oi(2,10)=0
792     exch2_oi_f(2,10)=0
793     exch2_oj(2,10)=-102
794     exch2_oj_f(2,10)=-102
795     exch2_itlo_c(2,10)=0
796     exch2_ithi_c(2,10)=52
797     exch2_jtlo_c(2,10)=52
798     exch2_jthi_c(2,10)=52
799     exch2_opposingSend_record(2,10)=1
800    
801     exch2_neighbourId(3,10)=13
802     exch2_pi(1,3,10)=1
803     exch2_pi(2,3,10)=0
804     exch2_pj(1,3,10)=0
805     exch2_pj(2,3,10)=1
806     exch2_oi(3,10)=102
807     exch2_oi_f(3,10)=102
808     exch2_oj(3,10)=0
809     exch2_oj_f(3,10)=0
810     exch2_itlo_c(3,10)=0
811     exch2_ithi_c(3,10)=0
812     exch2_jtlo_c(3,10)=0
813     exch2_jthi_c(3,10)=52
814     exch2_opposingSend_record(3,10)=4
815    
816     exch2_neighbourId(4,10)=9
817     exch2_pi(1,4,10)=1
818     exch2_pi(2,4,10)=0
819     exch2_pj(1,4,10)=0
820     exch2_pj(2,4,10)=1
821     exch2_oi(4,10)=0
822     exch2_oi_f(4,10)=0
823     exch2_oj(4,10)=0
824     exch2_oj_f(4,10)=0
825     exch2_itlo_c(4,10)=52
826     exch2_ithi_c(4,10)=52
827     exch2_jtlo_c(4,10)=0
828     exch2_jthi_c(4,10)=52
829     exch2_opposingSend_record(4,10)=3
830     RETURN
831     END
832    
833     SUBROUTINE W2_E2SETUP_11
834     C Topology for tile 11
835     #include "W2_EXCH2_TOPOLOGY.h"
836     exch2_tnx(11)=51
837     exch2_tny(11)=51
838     exch2_tbasex(11)=0
839     exch2_tbasey(11)=51
840     exch2_txglobalo(11)=205
841     exch2_tyglobalo(11)=52
842     exch2_isWedge(11)=1
843     exch2_isNedge(11)=1
844     exch2_isEedge(11)=0
845     exch2_isSedge(11)=0
846     exch2_myFace(11)=3
847     exch2_mydnx(11)=102
848     exch2_mydny(11)=102
849     exch2_nNeighbours(11)=4
850    
851     exch2_neighbourId(1,11)=19
852     exch2_pi(1,1,11)=0
853     exch2_pi(2,1,11)=-1
854     exch2_pj(1,1,11)=1
855     exch2_pj(2,1,11)=0
856     exch2_oi(1,11)=103
857     exch2_oi_f(1,11)=104
858     exch2_oj(1,11)=102
859     exch2_oj_f(1,11)=102
860     exch2_itlo_c(1,11)=0
861     exch2_ithi_c(1,11)=0
862     exch2_jtlo_c(1,11)=0
863     exch2_jthi_c(1,11)=52
864     exch2_opposingSend_record(1,11)=4
865    
866     exch2_neighbourId(2,11)=9
867     exch2_pi(1,2,11)=1
868     exch2_pi(2,2,11)=0
869     exch2_pj(1,2,11)=0
870     exch2_pj(2,2,11)=1
871     exch2_oi(2,11)=0
872     exch2_oi_f(2,11)=0
873     exch2_oj(2,11)=0
874     exch2_oj_f(2,11)=0
875     exch2_itlo_c(2,11)=1
876     exch2_ithi_c(2,11)=51
877     exch2_jtlo_c(2,11)=52
878     exch2_jthi_c(2,11)=52
879     exch2_opposingSend_record(2,11)=1
880    
881     exch2_neighbourId(3,11)=12
882     exch2_pi(1,3,11)=1
883     exch2_pi(2,3,11)=0
884     exch2_pj(1,3,11)=0
885     exch2_pj(2,3,11)=1
886     exch2_oi(3,11)=0
887     exch2_oi_f(3,11)=0
888     exch2_oj(3,11)=0
889     exch2_oj_f(3,11)=0
890     exch2_itlo_c(3,11)=0
891     exch2_ithi_c(3,11)=0
892     exch2_jtlo_c(3,11)=0
893     exch2_jthi_c(3,11)=52
894     exch2_opposingSend_record(3,11)=4
895    
896     exch2_neighbourId(4,11)=3
897     exch2_pi(1,4,11)=0
898     exch2_pi(2,4,11)=1
899     exch2_pj(1,4,11)=-1
900     exch2_pj(2,4,11)=0
901     exch2_oi(4,11)=-102
902     exch2_oi_f(4,11)=-102
903     exch2_oj(4,11)=103
904     exch2_oj_f(4,11)=104
905     exch2_itlo_c(4,11)=0
906     exch2_ithi_c(4,11)=52
907     exch2_jtlo_c(4,11)=52
908     exch2_jthi_c(4,11)=52
909     exch2_opposingSend_record(4,11)=1
910     RETURN
911     END
912    
913     SUBROUTINE W2_E2SETUP_12
914     C Topology for tile 12
915     #include "W2_EXCH2_TOPOLOGY.h"
916     exch2_tnx(12)=51
917     exch2_tny(12)=51
918     exch2_tbasex(12)=51
919     exch2_tbasey(12)=51
920     exch2_txglobalo(12)=256
921     exch2_tyglobalo(12)=52
922     exch2_isWedge(12)=0
923     exch2_isNedge(12)=1
924     exch2_isEedge(12)=1
925     exch2_isSedge(12)=0
926     exch2_myFace(12)=3
927     exch2_mydnx(12)=102
928     exch2_mydny(12)=102
929     exch2_nNeighbours(12)=4
930    
931     exch2_neighbourId(1,12)=17
932     exch2_pi(1,1,12)=0
933     exch2_pi(2,1,12)=-1
934     exch2_pj(1,1,12)=1
935     exch2_pj(2,1,12)=0
936     exch2_oi(1,12)=103
937     exch2_oi_f(1,12)=104
938     exch2_oj(1,12)=102
939     exch2_oj_f(1,12)=102
940     exch2_itlo_c(1,12)=0
941     exch2_ithi_c(1,12)=0
942     exch2_jtlo_c(1,12)=0
943     exch2_jthi_c(1,12)=52
944     exch2_opposingSend_record(1,12)=4
945    
946     exch2_neighbourId(2,12)=10
947     exch2_pi(1,2,12)=1
948     exch2_pi(2,2,12)=0
949     exch2_pj(1,2,12)=0
950     exch2_pj(2,2,12)=1
951     exch2_oi(2,12)=0
952     exch2_oi_f(2,12)=0
953     exch2_oj(2,12)=0
954     exch2_oj_f(2,12)=0
955     exch2_itlo_c(2,12)=1
956     exch2_ithi_c(2,12)=51
957     exch2_jtlo_c(2,12)=52
958     exch2_jthi_c(2,12)=52
959     exch2_opposingSend_record(2,12)=1
960    
961     exch2_neighbourId(3,12)=15
962     exch2_pi(1,3,12)=1
963     exch2_pi(2,3,12)=0
964     exch2_pj(1,3,12)=0
965     exch2_pj(2,3,12)=1
966     exch2_oi(3,12)=102
967     exch2_oi_f(3,12)=102
968     exch2_oj(3,12)=0
969     exch2_oj_f(3,12)=0
970     exch2_itlo_c(3,12)=0
971     exch2_ithi_c(3,12)=0
972     exch2_jtlo_c(3,12)=0
973     exch2_jthi_c(3,12)=52
974     exch2_opposingSend_record(3,12)=4
975    
976     exch2_neighbourId(4,12)=11
977     exch2_pi(1,4,12)=1
978     exch2_pi(2,4,12)=0
979     exch2_pj(1,4,12)=0
980     exch2_pj(2,4,12)=1
981     exch2_oi(4,12)=0
982     exch2_oi_f(4,12)=0
983     exch2_oj(4,12)=0
984     exch2_oj_f(4,12)=0
985     exch2_itlo_c(4,12)=52
986     exch2_ithi_c(4,12)=52
987     exch2_jtlo_c(4,12)=0
988     exch2_jthi_c(4,12)=52
989     exch2_opposingSend_record(4,12)=3
990     RETURN
991     END
992    
993     SUBROUTINE W2_E2SETUP_13
994     C Topology for tile 13
995     #include "W2_EXCH2_TOPOLOGY.h"
996     exch2_tnx(13)=51
997     exch2_tny(13)=51
998     exch2_tbasex(13)=0
999     exch2_tbasey(13)=0
1000     exch2_txglobalo(13)=307
1001     exch2_tyglobalo(13)=1
1002     exch2_isWedge(13)=1
1003     exch2_isNedge(13)=0
1004     exch2_isEedge(13)=0
1005     exch2_isSedge(13)=1
1006     exch2_myFace(13)=4
1007     exch2_mydnx(13)=102
1008     exch2_mydny(13)=102
1009     exch2_nNeighbours(13)=4
1010    
1011     exch2_neighbourId(1,13)=15
1012     exch2_pi(1,1,13)=1
1013     exch2_pi(2,1,13)=0
1014     exch2_pj(1,1,13)=0
1015     exch2_pj(2,1,13)=1
1016     exch2_oi(1,13)=0
1017     exch2_oi_f(1,13)=0
1018     exch2_oj(1,13)=0
1019     exch2_oj_f(1,13)=0
1020     exch2_itlo_c(1,13)=0
1021     exch2_ithi_c(1,13)=52
1022     exch2_jtlo_c(1,13)=0
1023     exch2_jthi_c(1,13)=0
1024     exch2_opposingSend_record(1,13)=2
1025    
1026     exch2_neighbourId(2,13)=8
1027     exch2_pi(1,2,13)=0
1028     exch2_pi(2,2,13)=-1
1029     exch2_pj(1,2,13)=1
1030     exch2_pj(2,2,13)=0
1031     exch2_oi(2,13)=103
1032     exch2_oi_f(2,13)=104
1033     exch2_oj(2,13)=-102
1034     exch2_oj_f(2,13)=-102
1035     exch2_itlo_c(2,13)=52
1036     exch2_ithi_c(2,13)=52
1037     exch2_jtlo_c(2,13)=0
1038     exch2_jthi_c(2,13)=52
1039     exch2_opposingSend_record(2,13)=3
1040    
1041     exch2_neighbourId(3,13)=14
1042     exch2_pi(1,3,13)=1
1043     exch2_pi(2,3,13)=0
1044     exch2_pj(1,3,13)=0
1045     exch2_pj(2,3,13)=1
1046     exch2_oi(3,13)=0
1047     exch2_oi_f(3,13)=0
1048     exch2_oj(3,13)=0
1049     exch2_oj_f(3,13)=0
1050     exch2_itlo_c(3,13)=0
1051     exch2_ithi_c(3,13)=0
1052     exch2_jtlo_c(3,13)=0
1053     exch2_jthi_c(3,13)=52
1054     exch2_opposingSend_record(3,13)=4
1055    
1056     exch2_neighbourId(4,13)=10
1057     exch2_pi(1,4,13)=1
1058     exch2_pi(2,4,13)=0
1059     exch2_pj(1,4,13)=0
1060     exch2_pj(2,4,13)=1
1061     exch2_oi(4,13)=-102
1062     exch2_oi_f(4,13)=-102
1063     exch2_oj(4,13)=0
1064     exch2_oj_f(4,13)=0
1065     exch2_itlo_c(4,13)=52
1066     exch2_ithi_c(4,13)=52
1067     exch2_jtlo_c(4,13)=0
1068     exch2_jthi_c(4,13)=52
1069     exch2_opposingSend_record(4,13)=3
1070     RETURN
1071     END
1072    
1073     SUBROUTINE W2_E2SETUP_14
1074     C Topology for tile 14
1075     #include "W2_EXCH2_TOPOLOGY.h"
1076     exch2_tnx(14)=51
1077     exch2_tny(14)=51
1078     exch2_tbasex(14)=51
1079     exch2_tbasey(14)=0
1080     exch2_txglobalo(14)=358
1081     exch2_tyglobalo(14)=1
1082     exch2_isWedge(14)=0
1083     exch2_isNedge(14)=0
1084     exch2_isEedge(14)=1
1085     exch2_isSedge(14)=1
1086     exch2_myFace(14)=4
1087     exch2_mydnx(14)=102
1088     exch2_mydny(14)=102
1089     exch2_nNeighbours(14)=4
1090    
1091     exch2_neighbourId(1,14)=16
1092     exch2_pi(1,1,14)=1
1093     exch2_pi(2,1,14)=0
1094     exch2_pj(1,1,14)=0
1095     exch2_pj(2,1,14)=1
1096     exch2_oi(1,14)=0
1097     exch2_oi_f(1,14)=0
1098     exch2_oj(1,14)=0
1099     exch2_oj_f(1,14)=0
1100     exch2_itlo_c(1,14)=0
1101     exch2_ithi_c(1,14)=52
1102     exch2_jtlo_c(1,14)=0
1103     exch2_jthi_c(1,14)=0
1104     exch2_opposingSend_record(1,14)=2
1105    
1106     exch2_neighbourId(2,14)=6
1107     exch2_pi(1,2,14)=0
1108     exch2_pi(2,2,14)=-1
1109     exch2_pj(1,2,14)=1
1110     exch2_pj(2,2,14)=0
1111     exch2_oi(2,14)=103
1112     exch2_oi_f(2,14)=104
1113     exch2_oj(2,14)=-102
1114     exch2_oj_f(2,14)=-102
1115     exch2_itlo_c(2,14)=52
1116     exch2_ithi_c(2,14)=52
1117     exch2_jtlo_c(2,14)=0
1118     exch2_jthi_c(2,14)=52
1119     exch2_opposingSend_record(2,14)=3
1120    
1121     exch2_neighbourId(3,14)=22
1122     exch2_pi(1,3,14)=0
1123     exch2_pi(2,3,14)=1
1124     exch2_pj(1,3,14)=-1
1125     exch2_pj(2,3,14)=0
1126     exch2_oi(3,14)=102
1127     exch2_oi_f(3,14)=102
1128     exch2_oj(3,14)=103
1129     exch2_oj_f(3,14)=104
1130     exch2_itlo_c(3,14)=0
1131     exch2_ithi_c(3,14)=52
1132     exch2_jtlo_c(3,14)=0
1133     exch2_jthi_c(3,14)=0
1134     exch2_opposingSend_record(3,14)=2
1135    
1136     exch2_neighbourId(4,14)=13
1137     exch2_pi(1,4,14)=1
1138     exch2_pi(2,4,14)=0
1139     exch2_pj(1,4,14)=0
1140     exch2_pj(2,4,14)=1
1141     exch2_oi(4,14)=0
1142     exch2_oi_f(4,14)=0
1143     exch2_oj(4,14)=0
1144     exch2_oj_f(4,14)=0
1145     exch2_itlo_c(4,14)=52
1146     exch2_ithi_c(4,14)=52
1147     exch2_jtlo_c(4,14)=0
1148     exch2_jthi_c(4,14)=52
1149     exch2_opposingSend_record(4,14)=3
1150     RETURN
1151     END
1152    
1153     SUBROUTINE W2_E2SETUP_15
1154     C Topology for tile 15
1155     #include "W2_EXCH2_TOPOLOGY.h"
1156     exch2_tnx(15)=51
1157     exch2_tny(15)=51
1158     exch2_tbasex(15)=0
1159     exch2_tbasey(15)=51
1160     exch2_txglobalo(15)=307
1161     exch2_tyglobalo(15)=52
1162     exch2_isWedge(15)=1
1163     exch2_isNedge(15)=1
1164     exch2_isEedge(15)=0
1165     exch2_isSedge(15)=0
1166     exch2_myFace(15)=4
1167     exch2_mydnx(15)=102
1168     exch2_mydny(15)=102
1169     exch2_nNeighbours(15)=4
1170    
1171     exch2_neighbourId(1,15)=17
1172     exch2_pi(1,1,15)=1
1173     exch2_pi(2,1,15)=0
1174     exch2_pj(1,1,15)=0
1175     exch2_pj(2,1,15)=1
1176     exch2_oi(1,15)=0
1177     exch2_oi_f(1,15)=0
1178     exch2_oj(1,15)=102
1179     exch2_oj_f(1,15)=102
1180     exch2_itlo_c(1,15)=0
1181     exch2_ithi_c(1,15)=52
1182     exch2_jtlo_c(1,15)=0
1183     exch2_jthi_c(1,15)=0
1184     exch2_opposingSend_record(1,15)=2
1185    
1186     exch2_neighbourId(2,15)=13
1187     exch2_pi(1,2,15)=1
1188     exch2_pi(2,2,15)=0
1189     exch2_pj(1,2,15)=0
1190     exch2_pj(2,2,15)=1
1191     exch2_oi(2,15)=0
1192     exch2_oi_f(2,15)=0
1193     exch2_oj(2,15)=0
1194     exch2_oj_f(2,15)=0
1195     exch2_itlo_c(2,15)=1
1196     exch2_ithi_c(2,15)=51
1197     exch2_jtlo_c(2,15)=52
1198     exch2_jthi_c(2,15)=52
1199     exch2_opposingSend_record(2,15)=1
1200    
1201     exch2_neighbourId(3,15)=16
1202     exch2_pi(1,3,15)=1
1203     exch2_pi(2,3,15)=0
1204     exch2_pj(1,3,15)=0
1205     exch2_pj(2,3,15)=1
1206     exch2_oi(3,15)=0
1207     exch2_oi_f(3,15)=0
1208     exch2_oj(3,15)=0
1209     exch2_oj_f(3,15)=0
1210     exch2_itlo_c(3,15)=0
1211     exch2_ithi_c(3,15)=0
1212     exch2_jtlo_c(3,15)=0
1213     exch2_jthi_c(3,15)=52
1214     exch2_opposingSend_record(3,15)=4
1215    
1216     exch2_neighbourId(4,15)=12
1217     exch2_pi(1,4,15)=1
1218     exch2_pi(2,4,15)=0
1219     exch2_pj(1,4,15)=0
1220     exch2_pj(2,4,15)=1
1221     exch2_oi(4,15)=-102
1222     exch2_oi_f(4,15)=-102
1223     exch2_oj(4,15)=0
1224     exch2_oj_f(4,15)=0
1225     exch2_itlo_c(4,15)=52
1226     exch2_ithi_c(4,15)=52
1227     exch2_jtlo_c(4,15)=0
1228     exch2_jthi_c(4,15)=52
1229     exch2_opposingSend_record(4,15)=3
1230     RETURN
1231     END
1232    
1233     SUBROUTINE W2_E2SETUP_16
1234     C Topology for tile 16
1235     #include "W2_EXCH2_TOPOLOGY.h"
1236     exch2_tnx(16)=51
1237     exch2_tny(16)=51
1238     exch2_tbasex(16)=51
1239     exch2_tbasey(16)=51
1240     exch2_txglobalo(16)=358
1241     exch2_tyglobalo(16)=52
1242     exch2_isWedge(16)=0
1243     exch2_isNedge(16)=1
1244     exch2_isEedge(16)=1
1245     exch2_isSedge(16)=0
1246     exch2_myFace(16)=4
1247     exch2_mydnx(16)=102
1248     exch2_mydny(16)=102
1249     exch2_nNeighbours(16)=4
1250    
1251     exch2_neighbourId(1,16)=18
1252     exch2_pi(1,1,16)=1
1253     exch2_pi(2,1,16)=0
1254     exch2_pj(1,1,16)=0
1255     exch2_pj(2,1,16)=1
1256     exch2_oi(1,16)=0
1257     exch2_oi_f(1,16)=0
1258     exch2_oj(1,16)=102
1259     exch2_oj_f(1,16)=102
1260     exch2_itlo_c(1,16)=0
1261     exch2_ithi_c(1,16)=52
1262     exch2_jtlo_c(1,16)=0
1263     exch2_jthi_c(1,16)=0
1264     exch2_opposingSend_record(1,16)=2
1265    
1266     exch2_neighbourId(2,16)=14
1267     exch2_pi(1,2,16)=1
1268     exch2_pi(2,2,16)=0
1269     exch2_pj(1,2,16)=0
1270     exch2_pj(2,2,16)=1
1271     exch2_oi(2,16)=0
1272     exch2_oi_f(2,16)=0
1273     exch2_oj(2,16)=0
1274     exch2_oj_f(2,16)=0
1275     exch2_itlo_c(2,16)=1
1276     exch2_ithi_c(2,16)=51
1277     exch2_jtlo_c(2,16)=52
1278     exch2_jthi_c(2,16)=52
1279     exch2_opposingSend_record(2,16)=1
1280    
1281     exch2_neighbourId(3,16)=21
1282     exch2_pi(1,3,16)=0
1283     exch2_pi(2,3,16)=1
1284     exch2_pj(1,3,16)=-1
1285     exch2_pj(2,3,16)=0
1286     exch2_oi(3,16)=102
1287     exch2_oi_f(3,16)=102
1288     exch2_oj(3,16)=103
1289     exch2_oj_f(3,16)=104
1290     exch2_itlo_c(3,16)=0
1291     exch2_ithi_c(3,16)=52
1292     exch2_jtlo_c(3,16)=0
1293     exch2_jthi_c(3,16)=0
1294     exch2_opposingSend_record(3,16)=2
1295    
1296     exch2_neighbourId(4,16)=15
1297     exch2_pi(1,4,16)=1
1298     exch2_pi(2,4,16)=0
1299     exch2_pj(1,4,16)=0
1300     exch2_pj(2,4,16)=1
1301     exch2_oi(4,16)=0
1302     exch2_oi_f(4,16)=0
1303     exch2_oj(4,16)=0
1304     exch2_oj_f(4,16)=0
1305     exch2_itlo_c(4,16)=52
1306     exch2_ithi_c(4,16)=52
1307     exch2_jtlo_c(4,16)=0
1308     exch2_jthi_c(4,16)=52
1309     exch2_opposingSend_record(4,16)=3
1310     RETURN
1311     END
1312    
1313     SUBROUTINE W2_E2SETUP_17
1314     C Topology for tile 17
1315     #include "W2_EXCH2_TOPOLOGY.h"
1316     exch2_tnx(17)=51
1317     exch2_tny(17)=51
1318     exch2_tbasex(17)=0
1319     exch2_tbasey(17)=0
1320     exch2_txglobalo(17)=409
1321     exch2_tyglobalo(17)=1
1322     exch2_isWedge(17)=1
1323     exch2_isNedge(17)=0
1324     exch2_isEedge(17)=0
1325     exch2_isSedge(17)=1
1326     exch2_myFace(17)=5
1327     exch2_mydnx(17)=102
1328     exch2_mydny(17)=102
1329     exch2_nNeighbours(17)=4
1330    
1331     exch2_neighbourId(1,17)=19
1332     exch2_pi(1,1,17)=1
1333     exch2_pi(2,1,17)=0
1334     exch2_pj(1,1,17)=0
1335     exch2_pj(2,1,17)=1
1336     exch2_oi(1,17)=0
1337     exch2_oi_f(1,17)=0
1338     exch2_oj(1,17)=0
1339     exch2_oj_f(1,17)=0
1340     exch2_itlo_c(1,17)=0
1341     exch2_ithi_c(1,17)=52
1342     exch2_jtlo_c(1,17)=0
1343     exch2_jthi_c(1,17)=0
1344     exch2_opposingSend_record(1,17)=2
1345    
1346     exch2_neighbourId(2,17)=15
1347     exch2_pi(1,2,17)=1
1348     exch2_pi(2,2,17)=0
1349     exch2_pj(1,2,17)=0
1350     exch2_pj(2,2,17)=1
1351     exch2_oi(2,17)=0
1352     exch2_oi_f(2,17)=0
1353     exch2_oj(2,17)=-102
1354     exch2_oj_f(2,17)=-102
1355     exch2_itlo_c(2,17)=0
1356     exch2_ithi_c(2,17)=52
1357     exch2_jtlo_c(2,17)=52
1358     exch2_jthi_c(2,17)=52
1359     exch2_opposingSend_record(2,17)=1
1360    
1361     exch2_neighbourId(3,17)=18
1362     exch2_pi(1,3,17)=1
1363     exch2_pi(2,3,17)=0
1364     exch2_pj(1,3,17)=0
1365     exch2_pj(2,3,17)=1
1366     exch2_oi(3,17)=0
1367     exch2_oi_f(3,17)=0
1368     exch2_oj(3,17)=0
1369     exch2_oj_f(3,17)=0
1370     exch2_itlo_c(3,17)=0
1371     exch2_ithi_c(3,17)=0
1372     exch2_jtlo_c(3,17)=0
1373     exch2_jthi_c(3,17)=52
1374     exch2_opposingSend_record(3,17)=4
1375    
1376     exch2_neighbourId(4,17)=12
1377     exch2_pi(1,4,17)=0
1378     exch2_pi(2,4,17)=1
1379     exch2_pj(1,4,17)=-1
1380     exch2_pj(2,4,17)=0
1381     exch2_oi(4,17)=-102
1382     exch2_oi_f(4,17)=-102
1383     exch2_oj(4,17)=103
1384     exch2_oj_f(4,17)=104
1385     exch2_itlo_c(4,17)=0
1386     exch2_ithi_c(4,17)=52
1387     exch2_jtlo_c(4,17)=52
1388     exch2_jthi_c(4,17)=52
1389     exch2_opposingSend_record(4,17)=1
1390     RETURN
1391     END
1392    
1393     SUBROUTINE W2_E2SETUP_18
1394     C Topology for tile 18
1395     #include "W2_EXCH2_TOPOLOGY.h"
1396     exch2_tnx(18)=51
1397     exch2_tny(18)=51
1398     exch2_tbasex(18)=51
1399     exch2_tbasey(18)=0
1400     exch2_txglobalo(18)=460
1401     exch2_tyglobalo(18)=1
1402     exch2_isWedge(18)=0
1403     exch2_isNedge(18)=0
1404     exch2_isEedge(18)=1
1405     exch2_isSedge(18)=1
1406     exch2_myFace(18)=5
1407     exch2_mydnx(18)=102
1408     exch2_mydny(18)=102
1409     exch2_nNeighbours(18)=4
1410    
1411     exch2_neighbourId(1,18)=20
1412     exch2_pi(1,1,18)=1
1413     exch2_pi(2,1,18)=0
1414     exch2_pj(1,1,18)=0
1415     exch2_pj(2,1,18)=1
1416     exch2_oi(1,18)=0
1417     exch2_oi_f(1,18)=0
1418     exch2_oj(1,18)=0
1419     exch2_oj_f(1,18)=0
1420     exch2_itlo_c(1,18)=0
1421     exch2_ithi_c(1,18)=52
1422     exch2_jtlo_c(1,18)=0
1423     exch2_jthi_c(1,18)=0
1424     exch2_opposingSend_record(1,18)=2
1425    
1426     exch2_neighbourId(2,18)=16
1427     exch2_pi(1,2,18)=1
1428     exch2_pi(2,2,18)=0
1429     exch2_pj(1,2,18)=0
1430     exch2_pj(2,2,18)=1
1431     exch2_oi(2,18)=0
1432     exch2_oi_f(2,18)=0
1433     exch2_oj(2,18)=-102
1434     exch2_oj_f(2,18)=-102
1435     exch2_itlo_c(2,18)=0
1436     exch2_ithi_c(2,18)=52
1437     exch2_jtlo_c(2,18)=52
1438     exch2_jthi_c(2,18)=52
1439     exch2_opposingSend_record(2,18)=1
1440    
1441     exch2_neighbourId(3,18)=21
1442     exch2_pi(1,3,18)=1
1443     exch2_pi(2,3,18)=0
1444     exch2_pj(1,3,18)=0
1445     exch2_pj(2,3,18)=1
1446     exch2_oi(3,18)=102
1447     exch2_oi_f(3,18)=102
1448     exch2_oj(3,18)=0
1449     exch2_oj_f(3,18)=0
1450     exch2_itlo_c(3,18)=0
1451     exch2_ithi_c(3,18)=0
1452     exch2_jtlo_c(3,18)=0
1453     exch2_jthi_c(3,18)=52
1454     exch2_opposingSend_record(3,18)=4
1455    
1456     exch2_neighbourId(4,18)=17
1457     exch2_pi(1,4,18)=1
1458     exch2_pi(2,4,18)=0
1459     exch2_pj(1,4,18)=0
1460     exch2_pj(2,4,18)=1
1461     exch2_oi(4,18)=0
1462     exch2_oi_f(4,18)=0
1463     exch2_oj(4,18)=0
1464     exch2_oj_f(4,18)=0
1465     exch2_itlo_c(4,18)=52
1466     exch2_ithi_c(4,18)=52
1467     exch2_jtlo_c(4,18)=0
1468     exch2_jthi_c(4,18)=52
1469     exch2_opposingSend_record(4,18)=3
1470     RETURN
1471     END
1472    
1473     SUBROUTINE W2_E2SETUP_19
1474     C Topology for tile 19
1475     #include "W2_EXCH2_TOPOLOGY.h"
1476     exch2_tnx(19)=51
1477     exch2_tny(19)=51
1478     exch2_tbasex(19)=0
1479     exch2_tbasey(19)=51
1480     exch2_txglobalo(19)=409
1481     exch2_tyglobalo(19)=52
1482     exch2_isWedge(19)=1
1483     exch2_isNedge(19)=1
1484     exch2_isEedge(19)=0
1485     exch2_isSedge(19)=0
1486     exch2_myFace(19)=5
1487     exch2_mydnx(19)=102
1488     exch2_mydny(19)=102
1489     exch2_nNeighbours(19)=4
1490    
1491     exch2_neighbourId(1,19)=3
1492     exch2_pi(1,1,19)=0
1493     exch2_pi(2,1,19)=-1
1494     exch2_pj(1,1,19)=1
1495     exch2_pj(2,1,19)=0
1496     exch2_oi(1,19)=103
1497     exch2_oi_f(1,19)=104
1498     exch2_oj(1,19)=102
1499     exch2_oj_f(1,19)=102
1500     exch2_itlo_c(1,19)=0
1501     exch2_ithi_c(1,19)=0
1502     exch2_jtlo_c(1,19)=0
1503     exch2_jthi_c(1,19)=52
1504     exch2_opposingSend_record(1,19)=4
1505    
1506     exch2_neighbourId(2,19)=17
1507     exch2_pi(1,2,19)=1
1508     exch2_pi(2,2,19)=0
1509     exch2_pj(1,2,19)=0
1510     exch2_pj(2,2,19)=1
1511     exch2_oi(2,19)=0
1512     exch2_oi_f(2,19)=0
1513     exch2_oj(2,19)=0
1514     exch2_oj_f(2,19)=0
1515     exch2_itlo_c(2,19)=1
1516     exch2_ithi_c(2,19)=51
1517     exch2_jtlo_c(2,19)=52
1518     exch2_jthi_c(2,19)=52
1519     exch2_opposingSend_record(2,19)=1
1520    
1521     exch2_neighbourId(3,19)=20
1522     exch2_pi(1,3,19)=1
1523     exch2_pi(2,3,19)=0
1524     exch2_pj(1,3,19)=0
1525     exch2_pj(2,3,19)=1
1526     exch2_oi(3,19)=0
1527     exch2_oi_f(3,19)=0
1528     exch2_oj(3,19)=0
1529     exch2_oj_f(3,19)=0
1530     exch2_itlo_c(3,19)=0
1531     exch2_ithi_c(3,19)=0
1532     exch2_jtlo_c(3,19)=0
1533     exch2_jthi_c(3,19)=52
1534     exch2_opposingSend_record(3,19)=4
1535    
1536     exch2_neighbourId(4,19)=11
1537     exch2_pi(1,4,19)=0
1538     exch2_pi(2,4,19)=1
1539     exch2_pj(1,4,19)=-1
1540     exch2_pj(2,4,19)=0
1541     exch2_oi(4,19)=-102
1542     exch2_oi_f(4,19)=-102
1543     exch2_oj(4,19)=103
1544     exch2_oj_f(4,19)=104
1545     exch2_itlo_c(4,19)=0
1546     exch2_ithi_c(4,19)=52
1547     exch2_jtlo_c(4,19)=52
1548     exch2_jthi_c(4,19)=52
1549     exch2_opposingSend_record(4,19)=1
1550     RETURN
1551     END
1552    
1553     SUBROUTINE W2_E2SETUP_20
1554     C Topology for tile 20
1555     #include "W2_EXCH2_TOPOLOGY.h"
1556     exch2_tnx(20)=51
1557     exch2_tny(20)=51
1558     exch2_tbasex(20)=51
1559     exch2_tbasey(20)=51
1560     exch2_txglobalo(20)=460
1561     exch2_tyglobalo(20)=52
1562     exch2_isWedge(20)=0
1563     exch2_isNedge(20)=1
1564     exch2_isEedge(20)=1
1565     exch2_isSedge(20)=0
1566     exch2_myFace(20)=5
1567     exch2_mydnx(20)=102
1568     exch2_mydny(20)=102
1569     exch2_nNeighbours(20)=4
1570    
1571     exch2_neighbourId(1,20)=1
1572     exch2_pi(1,1,20)=0
1573     exch2_pi(2,1,20)=-1
1574     exch2_pj(1,1,20)=1
1575     exch2_pj(2,1,20)=0
1576     exch2_oi(1,20)=103
1577     exch2_oi_f(1,20)=104
1578     exch2_oj(1,20)=102
1579     exch2_oj_f(1,20)=102
1580     exch2_itlo_c(1,20)=0
1581     exch2_ithi_c(1,20)=0
1582     exch2_jtlo_c(1,20)=0
1583     exch2_jthi_c(1,20)=52
1584     exch2_opposingSend_record(1,20)=4
1585    
1586     exch2_neighbourId(2,20)=18
1587     exch2_pi(1,2,20)=1
1588     exch2_pi(2,2,20)=0
1589     exch2_pj(1,2,20)=0
1590     exch2_pj(2,2,20)=1
1591     exch2_oi(2,20)=0
1592     exch2_oi_f(2,20)=0
1593     exch2_oj(2,20)=0
1594     exch2_oj_f(2,20)=0
1595     exch2_itlo_c(2,20)=1
1596     exch2_ithi_c(2,20)=51
1597     exch2_jtlo_c(2,20)=52
1598     exch2_jthi_c(2,20)=52
1599     exch2_opposingSend_record(2,20)=1
1600    
1601     exch2_neighbourId(3,20)=23
1602     exch2_pi(1,3,20)=1
1603     exch2_pi(2,3,20)=0
1604     exch2_pj(1,3,20)=0
1605     exch2_pj(2,3,20)=1
1606     exch2_oi(3,20)=102
1607     exch2_oi_f(3,20)=102
1608     exch2_oj(3,20)=0
1609     exch2_oj_f(3,20)=0
1610     exch2_itlo_c(3,20)=0
1611     exch2_ithi_c(3,20)=0
1612     exch2_jtlo_c(3,20)=0
1613     exch2_jthi_c(3,20)=52
1614     exch2_opposingSend_record(3,20)=4
1615    
1616     exch2_neighbourId(4,20)=19
1617     exch2_pi(1,4,20)=1
1618     exch2_pi(2,4,20)=0
1619     exch2_pj(1,4,20)=0
1620     exch2_pj(2,4,20)=1
1621     exch2_oi(4,20)=0
1622     exch2_oi_f(4,20)=0
1623     exch2_oj(4,20)=0
1624     exch2_oj_f(4,20)=0
1625     exch2_itlo_c(4,20)=52
1626     exch2_ithi_c(4,20)=52
1627     exch2_jtlo_c(4,20)=0
1628     exch2_jthi_c(4,20)=52
1629     exch2_opposingSend_record(4,20)=3
1630     RETURN
1631     END
1632    
1633     SUBROUTINE W2_E2SETUP_21
1634     C Topology for tile 21
1635     #include "W2_EXCH2_TOPOLOGY.h"
1636     exch2_tnx(21)=51
1637     exch2_tny(21)=51
1638     exch2_tbasex(21)=0
1639     exch2_tbasey(21)=0
1640     exch2_txglobalo(21)=511
1641     exch2_tyglobalo(21)=1
1642     exch2_isWedge(21)=1
1643     exch2_isNedge(21)=0
1644     exch2_isEedge(21)=0
1645     exch2_isSedge(21)=1
1646     exch2_myFace(21)=6
1647     exch2_mydnx(21)=102
1648     exch2_mydny(21)=102
1649     exch2_nNeighbours(21)=4
1650    
1651     exch2_neighbourId(1,21)=23
1652     exch2_pi(1,1,21)=1
1653     exch2_pi(2,1,21)=0
1654     exch2_pj(1,1,21)=0
1655     exch2_pj(2,1,21)=1
1656     exch2_oi(1,21)=0
1657     exch2_oi_f(1,21)=0
1658     exch2_oj(1,21)=0
1659     exch2_oj_f(1,21)=0
1660     exch2_itlo_c(1,21)=0
1661     exch2_ithi_c(1,21)=52
1662     exch2_jtlo_c(1,21)=0
1663     exch2_jthi_c(1,21)=0
1664     exch2_opposingSend_record(1,21)=2
1665    
1666     exch2_neighbourId(2,21)=16
1667     exch2_pi(1,2,21)=0
1668     exch2_pi(2,2,21)=-1
1669     exch2_pj(1,2,21)=1
1670     exch2_pj(2,2,21)=0
1671     exch2_oi(2,21)=103
1672     exch2_oi_f(2,21)=104
1673     exch2_oj(2,21)=-102
1674     exch2_oj_f(2,21)=-102
1675     exch2_itlo_c(2,21)=52
1676     exch2_ithi_c(2,21)=52
1677     exch2_jtlo_c(2,21)=0
1678     exch2_jthi_c(2,21)=52
1679     exch2_opposingSend_record(2,21)=3
1680    
1681     exch2_neighbourId(3,21)=22
1682     exch2_pi(1,3,21)=1
1683     exch2_pi(2,3,21)=0
1684     exch2_pj(1,3,21)=0
1685     exch2_pj(2,3,21)=1
1686     exch2_oi(3,21)=0
1687     exch2_oi_f(3,21)=0
1688     exch2_oj(3,21)=0
1689     exch2_oj_f(3,21)=0
1690     exch2_itlo_c(3,21)=0
1691     exch2_ithi_c(3,21)=0
1692     exch2_jtlo_c(3,21)=0
1693     exch2_jthi_c(3,21)=52
1694     exch2_opposingSend_record(3,21)=4
1695    
1696     exch2_neighbourId(4,21)=18
1697     exch2_pi(1,4,21)=1
1698     exch2_pi(2,4,21)=0
1699     exch2_pj(1,4,21)=0
1700     exch2_pj(2,4,21)=1
1701     exch2_oi(4,21)=-102
1702     exch2_oi_f(4,21)=-102
1703     exch2_oj(4,21)=0
1704     exch2_oj_f(4,21)=0
1705     exch2_itlo_c(4,21)=52
1706     exch2_ithi_c(4,21)=52
1707     exch2_jtlo_c(4,21)=0
1708     exch2_jthi_c(4,21)=52
1709     exch2_opposingSend_record(4,21)=3
1710     RETURN
1711     END
1712    
1713     SUBROUTINE W2_E2SETUP_22
1714     C Topology for tile 22
1715     #include "W2_EXCH2_TOPOLOGY.h"
1716     exch2_tnx(22)=51
1717     exch2_tny(22)=51
1718     exch2_tbasex(22)=51
1719     exch2_tbasey(22)=0
1720     exch2_txglobalo(22)=562
1721     exch2_tyglobalo(22)=1
1722     exch2_isWedge(22)=0
1723     exch2_isNedge(22)=0
1724     exch2_isEedge(22)=1
1725     exch2_isSedge(22)=1
1726     exch2_myFace(22)=6
1727     exch2_mydnx(22)=102
1728     exch2_mydny(22)=102
1729     exch2_nNeighbours(22)=4
1730    
1731     exch2_neighbourId(1,22)=24
1732     exch2_pi(1,1,22)=1
1733     exch2_pi(2,1,22)=0
1734     exch2_pj(1,1,22)=0
1735     exch2_pj(2,1,22)=1
1736     exch2_oi(1,22)=0
1737     exch2_oi_f(1,22)=0
1738     exch2_oj(1,22)=0
1739     exch2_oj_f(1,22)=0
1740     exch2_itlo_c(1,22)=0
1741     exch2_ithi_c(1,22)=52
1742     exch2_jtlo_c(1,22)=0
1743     exch2_jthi_c(1,22)=0
1744     exch2_opposingSend_record(1,22)=2
1745    
1746     exch2_neighbourId(2,22)=14
1747     exch2_pi(1,2,22)=0
1748     exch2_pi(2,2,22)=-1
1749     exch2_pj(1,2,22)=1
1750     exch2_pj(2,2,22)=0
1751     exch2_oi(2,22)=103
1752     exch2_oi_f(2,22)=104
1753     exch2_oj(2,22)=-102
1754     exch2_oj_f(2,22)=-102
1755     exch2_itlo_c(2,22)=52
1756     exch2_ithi_c(2,22)=52
1757     exch2_jtlo_c(2,22)=0
1758     exch2_jthi_c(2,22)=52
1759     exch2_opposingSend_record(2,22)=3
1760    
1761     exch2_neighbourId(3,22)=6
1762     exch2_pi(1,3,22)=0
1763     exch2_pi(2,3,22)=1
1764     exch2_pj(1,3,22)=-1
1765     exch2_pj(2,3,22)=0
1766     exch2_oi(3,22)=102
1767     exch2_oi_f(3,22)=102
1768     exch2_oj(3,22)=103
1769     exch2_oj_f(3,22)=104
1770     exch2_itlo_c(3,22)=0
1771     exch2_ithi_c(3,22)=52
1772     exch2_jtlo_c(3,22)=0
1773     exch2_jthi_c(3,22)=0
1774     exch2_opposingSend_record(3,22)=2
1775    
1776     exch2_neighbourId(4,22)=21
1777     exch2_pi(1,4,22)=1
1778     exch2_pi(2,4,22)=0
1779     exch2_pj(1,4,22)=0
1780     exch2_pj(2,4,22)=1
1781     exch2_oi(4,22)=0
1782     exch2_oi_f(4,22)=0
1783     exch2_oj(4,22)=0
1784     exch2_oj_f(4,22)=0
1785     exch2_itlo_c(4,22)=52
1786     exch2_ithi_c(4,22)=52
1787     exch2_jtlo_c(4,22)=0
1788     exch2_jthi_c(4,22)=52
1789     exch2_opposingSend_record(4,22)=3
1790     RETURN
1791     END
1792    
1793     SUBROUTINE W2_E2SETUP_23
1794     C Topology for tile 23
1795     #include "W2_EXCH2_TOPOLOGY.h"
1796     exch2_tnx(23)=51
1797     exch2_tny(23)=51
1798     exch2_tbasex(23)=0
1799     exch2_tbasey(23)=51
1800     exch2_txglobalo(23)=511
1801     exch2_tyglobalo(23)=52
1802     exch2_isWedge(23)=1
1803     exch2_isNedge(23)=1
1804     exch2_isEedge(23)=0
1805     exch2_isSedge(23)=0
1806     exch2_myFace(23)=6
1807     exch2_mydnx(23)=102
1808     exch2_mydny(23)=102
1809     exch2_nNeighbours(23)=4
1810    
1811     exch2_neighbourId(1,23)=1
1812     exch2_pi(1,1,23)=1
1813     exch2_pi(2,1,23)=0
1814     exch2_pj(1,1,23)=0
1815     exch2_pj(2,1,23)=1
1816     exch2_oi(1,23)=0
1817     exch2_oi_f(1,23)=0
1818     exch2_oj(1,23)=102
1819     exch2_oj_f(1,23)=102
1820     exch2_itlo_c(1,23)=0
1821     exch2_ithi_c(1,23)=52
1822     exch2_jtlo_c(1,23)=0
1823     exch2_jthi_c(1,23)=0
1824     exch2_opposingSend_record(1,23)=2
1825    
1826     exch2_neighbourId(2,23)=21
1827     exch2_pi(1,2,23)=1
1828     exch2_pi(2,2,23)=0
1829     exch2_pj(1,2,23)=0
1830     exch2_pj(2,2,23)=1
1831     exch2_oi(2,23)=0
1832     exch2_oi_f(2,23)=0
1833     exch2_oj(2,23)=0
1834     exch2_oj_f(2,23)=0
1835     exch2_itlo_c(2,23)=1
1836     exch2_ithi_c(2,23)=51
1837     exch2_jtlo_c(2,23)=52
1838     exch2_jthi_c(2,23)=52
1839     exch2_opposingSend_record(2,23)=1
1840    
1841     exch2_neighbourId(3,23)=24
1842     exch2_pi(1,3,23)=1
1843     exch2_pi(2,3,23)=0
1844     exch2_pj(1,3,23)=0
1845     exch2_pj(2,3,23)=1
1846     exch2_oi(3,23)=0
1847     exch2_oi_f(3,23)=0
1848     exch2_oj(3,23)=0
1849     exch2_oj_f(3,23)=0
1850     exch2_itlo_c(3,23)=0
1851     exch2_ithi_c(3,23)=0
1852     exch2_jtlo_c(3,23)=0
1853     exch2_jthi_c(3,23)=52
1854     exch2_opposingSend_record(3,23)=4
1855    
1856     exch2_neighbourId(4,23)=20
1857     exch2_pi(1,4,23)=1
1858     exch2_pi(2,4,23)=0
1859     exch2_pj(1,4,23)=0
1860     exch2_pj(2,4,23)=1
1861     exch2_oi(4,23)=-102
1862     exch2_oi_f(4,23)=-102
1863     exch2_oj(4,23)=0
1864     exch2_oj_f(4,23)=0
1865     exch2_itlo_c(4,23)=52
1866     exch2_ithi_c(4,23)=52
1867     exch2_jtlo_c(4,23)=0
1868     exch2_jthi_c(4,23)=52
1869     exch2_opposingSend_record(4,23)=3
1870     RETURN
1871     END
1872    
1873     SUBROUTINE W2_E2SETUP_24
1874     C Topology for tile 24
1875     #include "W2_EXCH2_TOPOLOGY.h"
1876     exch2_tnx(24)=51
1877     exch2_tny(24)=51
1878     exch2_tbasex(24)=51
1879     exch2_tbasey(24)=51
1880     exch2_txglobalo(24)=562
1881     exch2_tyglobalo(24)=52
1882     exch2_isWedge(24)=0
1883     exch2_isNedge(24)=1
1884     exch2_isEedge(24)=1
1885     exch2_isSedge(24)=0
1886     exch2_myFace(24)=6
1887     exch2_mydnx(24)=102
1888     exch2_mydny(24)=102
1889     exch2_nNeighbours(24)=4
1890    
1891     exch2_neighbourId(1,24)=2
1892     exch2_pi(1,1,24)=1
1893     exch2_pi(2,1,24)=0
1894     exch2_pj(1,1,24)=0
1895     exch2_pj(2,1,24)=1
1896     exch2_oi(1,24)=0
1897     exch2_oi_f(1,24)=0
1898     exch2_oj(1,24)=102
1899     exch2_oj_f(1,24)=102
1900     exch2_itlo_c(1,24)=0
1901     exch2_ithi_c(1,24)=52
1902     exch2_jtlo_c(1,24)=0
1903     exch2_jthi_c(1,24)=0
1904     exch2_opposingSend_record(1,24)=2
1905    
1906     exch2_neighbourId(2,24)=22
1907     exch2_pi(1,2,24)=1
1908     exch2_pi(2,2,24)=0
1909     exch2_pj(1,2,24)=0
1910     exch2_pj(2,2,24)=1
1911     exch2_oi(2,24)=0
1912     exch2_oi_f(2,24)=0
1913     exch2_oj(2,24)=0
1914     exch2_oj_f(2,24)=0
1915     exch2_itlo_c(2,24)=1
1916     exch2_ithi_c(2,24)=51
1917     exch2_jtlo_c(2,24)=52
1918     exch2_jthi_c(2,24)=52
1919     exch2_opposingSend_record(2,24)=1
1920    
1921     exch2_neighbourId(3,24)=5
1922     exch2_pi(1,3,24)=0
1923     exch2_pi(2,3,24)=1
1924     exch2_pj(1,3,24)=-1
1925     exch2_pj(2,3,24)=0
1926     exch2_oi(3,24)=102
1927     exch2_oi_f(3,24)=102
1928     exch2_oj(3,24)=103
1929     exch2_oj_f(3,24)=104
1930     exch2_itlo_c(3,24)=0
1931     exch2_ithi_c(3,24)=52
1932     exch2_jtlo_c(3,24)=0
1933     exch2_jthi_c(3,24)=0
1934     exch2_opposingSend_record(3,24)=2
1935    
1936     exch2_neighbourId(4,24)=23
1937     exch2_pi(1,4,24)=1
1938     exch2_pi(2,4,24)=0
1939     exch2_pj(1,4,24)=0
1940     exch2_pj(2,4,24)=1
1941     exch2_oi(4,24)=0
1942     exch2_oi_f(4,24)=0
1943     exch2_oj(4,24)=0
1944     exch2_oj_f(4,24)=0
1945     exch2_itlo_c(4,24)=52
1946     exch2_ithi_c(4,24)=52
1947     exch2_jtlo_c(4,24)=0
1948     exch2_jthi_c(4,24)=52
1949     exch2_opposingSend_record(4,24)=3
1950     RETURN
1951     END
1952    
  ViewVC Help
Powered by ViewVC 1.1.22