/[MITgcm]/MITgcm_contrib/eh3/llc/ecco-godae/code_50lev/w2_e2setup.F
ViewVC logotype

Annotation of /MITgcm_contrib/eh3/llc/ecco-godae/code_50lev/w2_e2setup.F

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

Revision 1.2 - (hide annotations) (download)
Thu Mar 29 10:55:36 2007 UTC (18 years, 4 months ago) by heimbach
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +28 -28 lines 
Modifying exch2 topology files in accordance with new compact format.
1 heimbach 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     RETURN
26     END
27     SUBROUTINE W2_E2SETUP_1
28     C Topology for tile 1
29     #include "W2_EXCH2_TOPOLOGY.h"
30     exch2_tnx(1)=90
31     exch2_tny(1)=90
32     exch2_tbasex(1)=0
33     exch2_tbasey(1)=0
34     exch2_txglobalo(1)=1
35     exch2_tyglobalo(1)=1
36     exch2_isWedge(1)=1
37     exch2_isNedge(1)=0
38     exch2_isEedge(1)=1
39     exch2_isSedge(1)=1
40     exch2_myFace(1)=1
41     exch2_mydnx(1)=90
42     exch2_mydny(1)=360
43     exch2_nNeighbours(1)=4
44    
45     exch2_neighbourId(1,1)=2
46     exch2_pi(1,1,1)=1
47     exch2_pi(2,1,1)=0
48     exch2_pj(1,1,1)=0
49     exch2_pj(2,1,1)=1
50     exch2_oi(1,1)=0
51     exch2_oi_f(1,1)=0
52     exch2_oj(1,1)=0
53     exch2_oj_f(1,1)=0
54     exch2_itlo_c(1,1)=0
55     exch2_ithi_c(1,1)=91
56     exch2_jtlo_c(1,1)=0
57     exch2_jthi_c(1,1)=0
58     exch2_opposingSend_record(1,1)=2
59    
60     exch2_neighbourId(2,1)=18
61     exch2_pi(1,2,1)=1
62     exch2_pi(2,2,1)=0
63     exch2_pj(1,2,1)=0
64     exch2_pj(2,2,1)=1
65     exch2_oi(2,1)=0
66     exch2_oi_f(2,1)=0
67     exch2_oj(2,1)=-90
68     exch2_oj_f(2,1)=-90
69     exch2_itlo_c(2,1)=0
70     exch2_ithi_c(2,1)=91
71     exch2_jtlo_c(2,1)=91
72     exch2_jthi_c(2,1)=91
73     exch2_opposingSend_record(2,1)=1
74    
75     exch2_neighbourId(3,1)=5
76     exch2_pi(1,3,1)=1
77     exch2_pi(2,3,1)=0
78     exch2_pj(1,3,1)=0
79     exch2_pj(2,3,1)=1
80     exch2_oi(3,1)=90
81     exch2_oi_f(3,1)=90
82     exch2_oj(3,1)=0
83     exch2_oj_f(3,1)=0
84     exch2_itlo_c(3,1)=0
85     exch2_ithi_c(3,1)=0
86     exch2_jtlo_c(3,1)=0
87     exch2_jthi_c(3,1)=91
88     exch2_opposingSend_record(3,1)=4
89    
90     exch2_neighbourId(4,1)=17
91     exch2_pi(1,4,1)=0
92     exch2_pi(2,4,1)=1
93     exch2_pj(1,4,1)=-1
94     exch2_pj(2,4,1)=0
95     exch2_oi(4,1)=-90
96     exch2_oi_f(4,1)=-90
97     exch2_oj(4,1)=361
98     exch2_oj_f(4,1)=362
99     exch2_itlo_c(4,1)=0
100     exch2_ithi_c(4,1)=91
101     exch2_jtlo_c(4,1)=91
102     exch2_jthi_c(4,1)=91
103     exch2_opposingSend_record(4,1)=1
104     RETURN
105     END
106    
107     SUBROUTINE W2_E2SETUP_2
108     C Topology for tile 2
109     #include "W2_EXCH2_TOPOLOGY.h"
110     exch2_tnx(2)=90
111     exch2_tny(2)=90
112     exch2_tbasex(2)=0
113     exch2_tbasey(2)=90
114     exch2_txglobalo(2)=1
115     exch2_tyglobalo(2)=91
116     exch2_isWedge(2)=1
117     exch2_isNedge(2)=0
118     exch2_isEedge(2)=1
119     exch2_isSedge(2)=0
120     exch2_myFace(2)=1
121     exch2_mydnx(2)=90
122     exch2_mydny(2)=360
123     exch2_nNeighbours(2)=4
124    
125     exch2_neighbourId(1,2)=3
126     exch2_pi(1,1,2)=1
127     exch2_pi(2,1,2)=0
128     exch2_pj(1,1,2)=0
129     exch2_pj(2,1,2)=1
130     exch2_oi(1,2)=0
131     exch2_oi_f(1,2)=0
132     exch2_oj(1,2)=0
133     exch2_oj_f(1,2)=0
134     exch2_itlo_c(1,2)=0
135     exch2_ithi_c(1,2)=91
136     exch2_jtlo_c(1,2)=0
137     exch2_jthi_c(1,2)=0
138     exch2_opposingSend_record(1,2)=2
139    
140     exch2_neighbourId(2,2)=1
141     exch2_pi(1,2,2)=1
142     exch2_pi(2,2,2)=0
143     exch2_pj(1,2,2)=0
144     exch2_pj(2,2,2)=1
145     exch2_oi(2,2)=0
146     exch2_oi_f(2,2)=0
147     exch2_oj(2,2)=0
148     exch2_oj_f(2,2)=0
149     exch2_itlo_c(2,2)=1
150     exch2_ithi_c(2,2)=90
151     exch2_jtlo_c(2,2)=91
152     exch2_jthi_c(2,2)=91
153     exch2_opposingSend_record(2,2)=1
154    
155     exch2_neighbourId(3,2)=6
156     exch2_pi(1,3,2)=1
157     exch2_pi(2,3,2)=0
158     exch2_pj(1,3,2)=0
159     exch2_pj(2,3,2)=1
160     exch2_oi(3,2)=90
161     exch2_oi_f(3,2)=90
162     exch2_oj(3,2)=0
163     exch2_oj_f(3,2)=0
164     exch2_itlo_c(3,2)=0
165     exch2_ithi_c(3,2)=0
166     exch2_jtlo_c(3,2)=0
167     exch2_jthi_c(3,2)=91
168     exch2_opposingSend_record(3,2)=4
169    
170     exch2_neighbourId(4,2)=16
171     exch2_pi(1,4,2)=0
172     exch2_pi(2,4,2)=1
173     exch2_pj(1,4,2)=-1
174     exch2_pj(2,4,2)=0
175     exch2_oi(4,2)=-90
176     exch2_oi_f(4,2)=-90
177     exch2_oj(4,2)=361
178     exch2_oj_f(4,2)=362
179     exch2_itlo_c(4,2)=0
180     exch2_ithi_c(4,2)=91
181     exch2_jtlo_c(4,2)=91
182     exch2_jthi_c(4,2)=91
183     exch2_opposingSend_record(4,2)=1
184     RETURN
185     END
186    
187     SUBROUTINE W2_E2SETUP_3
188     C Topology for tile 3
189     #include "W2_EXCH2_TOPOLOGY.h"
190     exch2_tnx(3)=90
191     exch2_tny(3)=90
192     exch2_tbasex(3)=0
193     exch2_tbasey(3)=180
194     exch2_txglobalo(3)=1
195     exch2_tyglobalo(3)=181
196     exch2_isWedge(3)=1
197     exch2_isNedge(3)=0
198     exch2_isEedge(3)=1
199     exch2_isSedge(3)=0
200     exch2_myFace(3)=1
201     exch2_mydnx(3)=90
202     exch2_mydny(3)=360
203     exch2_nNeighbours(3)=4
204    
205     exch2_neighbourId(1,3)=4
206     exch2_pi(1,1,3)=1
207     exch2_pi(2,1,3)=0
208     exch2_pj(1,1,3)=0
209     exch2_pj(2,1,3)=1
210     exch2_oi(1,3)=0
211     exch2_oi_f(1,3)=0
212     exch2_oj(1,3)=0
213     exch2_oj_f(1,3)=0
214     exch2_itlo_c(1,3)=0
215     exch2_ithi_c(1,3)=91
216     exch2_jtlo_c(1,3)=0
217     exch2_jthi_c(1,3)=0
218     exch2_opposingSend_record(1,3)=2
219    
220     exch2_neighbourId(2,3)=2
221     exch2_pi(1,2,3)=1
222     exch2_pi(2,2,3)=0
223     exch2_pj(1,2,3)=0
224     exch2_pj(2,2,3)=1
225     exch2_oi(2,3)=0
226     exch2_oi_f(2,3)=0
227     exch2_oj(2,3)=0
228     exch2_oj_f(2,3)=0
229     exch2_itlo_c(2,3)=1
230     exch2_ithi_c(2,3)=90
231     exch2_jtlo_c(2,3)=91
232     exch2_jthi_c(2,3)=91
233     exch2_opposingSend_record(2,3)=1
234    
235     exch2_neighbourId(3,3)=7
236     exch2_pi(1,3,3)=1
237     exch2_pi(2,3,3)=0
238     exch2_pj(1,3,3)=0
239     exch2_pj(2,3,3)=1
240     exch2_oi(3,3)=90
241     exch2_oi_f(3,3)=90
242     exch2_oj(3,3)=0
243     exch2_oj_f(3,3)=0
244     exch2_itlo_c(3,3)=0
245     exch2_ithi_c(3,3)=0
246     exch2_jtlo_c(3,3)=0
247     exch2_jthi_c(3,3)=91
248     exch2_opposingSend_record(3,3)=4
249    
250     exch2_neighbourId(4,3)=15
251     exch2_pi(1,4,3)=0
252     exch2_pi(2,4,3)=1
253     exch2_pj(1,4,3)=-1
254     exch2_pj(2,4,3)=0
255     exch2_oi(4,3)=-90
256     exch2_oi_f(4,3)=-90
257     exch2_oj(4,3)=361
258     exch2_oj_f(4,3)=362
259     exch2_itlo_c(4,3)=0
260     exch2_ithi_c(4,3)=91
261     exch2_jtlo_c(4,3)=91
262     exch2_jthi_c(4,3)=91
263     exch2_opposingSend_record(4,3)=1
264     RETURN
265     END
266    
267     SUBROUTINE W2_E2SETUP_4
268     C Topology for tile 4
269     #include "W2_EXCH2_TOPOLOGY.h"
270     exch2_tnx(4)=90
271     exch2_tny(4)=90
272     exch2_tbasex(4)=0
273     exch2_tbasey(4)=270
274     exch2_txglobalo(4)=1
275     exch2_tyglobalo(4)=271
276     exch2_isWedge(4)=1
277     exch2_isNedge(4)=1
278     exch2_isEedge(4)=1
279     exch2_isSedge(4)=0
280     exch2_myFace(4)=1
281     exch2_mydnx(4)=90
282     exch2_mydny(4)=360
283     exch2_nNeighbours(4)=4
284    
285     exch2_neighbourId(1,4)=9
286     exch2_pi(1,1,4)=0
287     exch2_pi(2,1,4)=-1
288     exch2_pj(1,1,4)=1
289     exch2_pj(2,1,4)=0
290     exch2_oi(1,4)=91
291     exch2_oi_f(1,4)=92
292     exch2_oj(1,4)=360
293     exch2_oj_f(1,4)=360
294     exch2_itlo_c(1,4)=0
295     exch2_ithi_c(1,4)=0
296     exch2_jtlo_c(1,4)=0
297     exch2_jthi_c(1,4)=91
298     exch2_opposingSend_record(1,4)=4
299    
300     exch2_neighbourId(2,4)=3
301     exch2_pi(1,2,4)=1
302     exch2_pi(2,2,4)=0
303     exch2_pj(1,2,4)=0
304     exch2_pj(2,2,4)=1
305     exch2_oi(2,4)=0
306     exch2_oi_f(2,4)=0
307     exch2_oj(2,4)=0
308     exch2_oj_f(2,4)=0
309     exch2_itlo_c(2,4)=1
310     exch2_ithi_c(2,4)=90
311     exch2_jtlo_c(2,4)=91
312     exch2_jthi_c(2,4)=91
313     exch2_opposingSend_record(2,4)=1
314    
315     exch2_neighbourId(3,4)=8
316     exch2_pi(1,3,4)=1
317     exch2_pi(2,3,4)=0
318     exch2_pj(1,3,4)=0
319     exch2_pj(2,3,4)=1
320     exch2_oi(3,4)=90
321     exch2_oi_f(3,4)=90
322     exch2_oj(3,4)=0
323     exch2_oj_f(3,4)=0
324     exch2_itlo_c(3,4)=0
325     exch2_ithi_c(3,4)=0
326     exch2_jtlo_c(3,4)=0
327     exch2_jthi_c(3,4)=91
328     exch2_opposingSend_record(3,4)=4
329    
330     exch2_neighbourId(4,4)=14
331     exch2_pi(1,4,4)=0
332     exch2_pi(2,4,4)=1
333     exch2_pj(1,4,4)=-1
334     exch2_pj(2,4,4)=0
335     exch2_oi(4,4)=-90
336     exch2_oi_f(4,4)=-90
337     exch2_oj(4,4)=361
338     exch2_oj_f(4,4)=362
339     exch2_itlo_c(4,4)=0
340     exch2_ithi_c(4,4)=91
341     exch2_jtlo_c(4,4)=91
342     exch2_jthi_c(4,4)=91
343     exch2_opposingSend_record(4,4)=1
344     RETURN
345     END
346    
347     SUBROUTINE W2_E2SETUP_5
348     C Topology for tile 5
349     #include "W2_EXCH2_TOPOLOGY.h"
350     exch2_tnx(5)=90
351     exch2_tny(5)=90
352     exch2_tbasex(5)=0
353     exch2_tbasey(5)=0
354 heimbach 1.2 exch2_txglobalo(5)=1
355     exch2_tyglobalo(5)=361
356 heimbach 1.1 exch2_isWedge(5)=1
357     exch2_isNedge(5)=0
358     exch2_isEedge(5)=1
359     exch2_isSedge(5)=1
360     exch2_myFace(5)=2
361     exch2_mydnx(5)=90
362     exch2_mydny(5)=360
363     exch2_nNeighbours(5)=4
364    
365     exch2_neighbourId(1,5)=6
366     exch2_pi(1,1,5)=1
367     exch2_pi(2,1,5)=0
368     exch2_pj(1,1,5)=0
369     exch2_pj(2,1,5)=1
370     exch2_oi(1,5)=0
371     exch2_oi_f(1,5)=0
372     exch2_oj(1,5)=0
373     exch2_oj_f(1,5)=0
374     exch2_itlo_c(1,5)=0
375     exch2_ithi_c(1,5)=91
376     exch2_jtlo_c(1,5)=0
377     exch2_jthi_c(1,5)=0
378     exch2_opposingSend_record(1,5)=2
379    
380     exch2_neighbourId(2,5)=18
381     exch2_pi(1,2,5)=0
382     exch2_pi(2,2,5)=-1
383     exch2_pj(1,2,5)=1
384     exch2_pj(2,2,5)=0
385     exch2_oi(2,5)=91
386     exch2_oi_f(2,5)=92
387     exch2_oj(2,5)=-90
388     exch2_oj_f(2,5)=-90
389     exch2_itlo_c(2,5)=91
390     exch2_ithi_c(2,5)=91
391     exch2_jtlo_c(2,5)=0
392     exch2_jthi_c(2,5)=91
393     exch2_opposingSend_record(2,5)=3
394    
395     exch2_neighbourId(3,5)=13
396     exch2_pi(1,3,5)=0
397     exch2_pi(2,3,5)=1
398     exch2_pj(1,3,5)=-1
399     exch2_pj(2,3,5)=0
400     exch2_oi(3,5)=90
401     exch2_oi_f(3,5)=90
402     exch2_oj(3,5)=361
403     exch2_oj_f(3,5)=362
404     exch2_itlo_c(3,5)=0
405     exch2_ithi_c(3,5)=91
406     exch2_jtlo_c(3,5)=0
407     exch2_jthi_c(3,5)=0
408     exch2_opposingSend_record(3,5)=2
409    
410     exch2_neighbourId(4,5)=1
411     exch2_pi(1,4,5)=1
412     exch2_pi(2,4,5)=0
413     exch2_pj(1,4,5)=0
414     exch2_pj(2,4,5)=1
415     exch2_oi(4,5)=-90
416     exch2_oi_f(4,5)=-90
417     exch2_oj(4,5)=0
418     exch2_oj_f(4,5)=0
419     exch2_itlo_c(4,5)=91
420     exch2_ithi_c(4,5)=91
421     exch2_jtlo_c(4,5)=0
422     exch2_jthi_c(4,5)=91
423     exch2_opposingSend_record(4,5)=3
424     RETURN
425     END
426    
427     SUBROUTINE W2_E2SETUP_6
428     C Topology for tile 6
429     #include "W2_EXCH2_TOPOLOGY.h"
430     exch2_tnx(6)=90
431     exch2_tny(6)=90
432     exch2_tbasex(6)=0
433     exch2_tbasey(6)=90
434 heimbach 1.2 exch2_txglobalo(6)=1
435     exch2_tyglobalo(6)=451
436 heimbach 1.1 exch2_isWedge(6)=1
437     exch2_isNedge(6)=0
438     exch2_isEedge(6)=1
439     exch2_isSedge(6)=0
440     exch2_myFace(6)=2
441     exch2_mydnx(6)=90
442     exch2_mydny(6)=360
443     exch2_nNeighbours(6)=4
444    
445     exch2_neighbourId(1,6)=7
446     exch2_pi(1,1,6)=1
447     exch2_pi(2,1,6)=0
448     exch2_pj(1,1,6)=0
449     exch2_pj(2,1,6)=1
450     exch2_oi(1,6)=0
451     exch2_oi_f(1,6)=0
452     exch2_oj(1,6)=0
453     exch2_oj_f(1,6)=0
454     exch2_itlo_c(1,6)=0
455     exch2_ithi_c(1,6)=91
456     exch2_jtlo_c(1,6)=0
457     exch2_jthi_c(1,6)=0
458     exch2_opposingSend_record(1,6)=2
459    
460     exch2_neighbourId(2,6)=5
461     exch2_pi(1,2,6)=1
462     exch2_pi(2,2,6)=0
463     exch2_pj(1,2,6)=0
464     exch2_pj(2,2,6)=1
465     exch2_oi(2,6)=0
466     exch2_oi_f(2,6)=0
467     exch2_oj(2,6)=0
468     exch2_oj_f(2,6)=0
469     exch2_itlo_c(2,6)=1
470     exch2_ithi_c(2,6)=90
471     exch2_jtlo_c(2,6)=91
472     exch2_jthi_c(2,6)=91
473     exch2_opposingSend_record(2,6)=1
474    
475     exch2_neighbourId(3,6)=12
476     exch2_pi(1,3,6)=0
477     exch2_pi(2,3,6)=1
478     exch2_pj(1,3,6)=-1
479     exch2_pj(2,3,6)=0
480     exch2_oi(3,6)=90
481     exch2_oi_f(3,6)=90
482     exch2_oj(3,6)=361
483     exch2_oj_f(3,6)=362
484     exch2_itlo_c(3,6)=0
485     exch2_ithi_c(3,6)=91
486     exch2_jtlo_c(3,6)=0
487     exch2_jthi_c(3,6)=0
488     exch2_opposingSend_record(3,6)=2
489    
490     exch2_neighbourId(4,6)=2
491     exch2_pi(1,4,6)=1
492     exch2_pi(2,4,6)=0
493     exch2_pj(1,4,6)=0
494     exch2_pj(2,4,6)=1
495     exch2_oi(4,6)=-90
496     exch2_oi_f(4,6)=-90
497     exch2_oj(4,6)=0
498     exch2_oj_f(4,6)=0
499     exch2_itlo_c(4,6)=91
500     exch2_ithi_c(4,6)=91
501     exch2_jtlo_c(4,6)=0
502     exch2_jthi_c(4,6)=91
503     exch2_opposingSend_record(4,6)=3
504     RETURN
505     END
506    
507     SUBROUTINE W2_E2SETUP_7
508     C Topology for tile 7
509     #include "W2_EXCH2_TOPOLOGY.h"
510     exch2_tnx(7)=90
511     exch2_tny(7)=90
512     exch2_tbasex(7)=0
513     exch2_tbasey(7)=180
514 heimbach 1.2 exch2_txglobalo(7)=1
515     exch2_tyglobalo(7)=541
516 heimbach 1.1 exch2_isWedge(7)=1
517     exch2_isNedge(7)=0
518     exch2_isEedge(7)=1
519     exch2_isSedge(7)=0
520     exch2_myFace(7)=2
521     exch2_mydnx(7)=90
522     exch2_mydny(7)=360
523     exch2_nNeighbours(7)=4
524    
525     exch2_neighbourId(1,7)=8
526     exch2_pi(1,1,7)=1
527     exch2_pi(2,1,7)=0
528     exch2_pj(1,1,7)=0
529     exch2_pj(2,1,7)=1
530     exch2_oi(1,7)=0
531     exch2_oi_f(1,7)=0
532     exch2_oj(1,7)=0
533     exch2_oj_f(1,7)=0
534     exch2_itlo_c(1,7)=0
535     exch2_ithi_c(1,7)=91
536     exch2_jtlo_c(1,7)=0
537     exch2_jthi_c(1,7)=0
538     exch2_opposingSend_record(1,7)=2
539    
540     exch2_neighbourId(2,7)=6
541     exch2_pi(1,2,7)=1
542     exch2_pi(2,2,7)=0
543     exch2_pj(1,2,7)=0
544     exch2_pj(2,2,7)=1
545     exch2_oi(2,7)=0
546     exch2_oi_f(2,7)=0
547     exch2_oj(2,7)=0
548     exch2_oj_f(2,7)=0
549     exch2_itlo_c(2,7)=1
550     exch2_ithi_c(2,7)=90
551     exch2_jtlo_c(2,7)=91
552     exch2_jthi_c(2,7)=91
553     exch2_opposingSend_record(2,7)=1
554    
555     exch2_neighbourId(3,7)=11
556     exch2_pi(1,3,7)=0
557     exch2_pi(2,3,7)=1
558     exch2_pj(1,3,7)=-1
559     exch2_pj(2,3,7)=0
560     exch2_oi(3,7)=90
561     exch2_oi_f(3,7)=90
562     exch2_oj(3,7)=361
563     exch2_oj_f(3,7)=362
564     exch2_itlo_c(3,7)=0
565     exch2_ithi_c(3,7)=91
566     exch2_jtlo_c(3,7)=0
567     exch2_jthi_c(3,7)=0
568     exch2_opposingSend_record(3,7)=2
569    
570     exch2_neighbourId(4,7)=3
571     exch2_pi(1,4,7)=1
572     exch2_pi(2,4,7)=0
573     exch2_pj(1,4,7)=0
574     exch2_pj(2,4,7)=1
575     exch2_oi(4,7)=-90
576     exch2_oi_f(4,7)=-90
577     exch2_oj(4,7)=0
578     exch2_oj_f(4,7)=0
579     exch2_itlo_c(4,7)=91
580     exch2_ithi_c(4,7)=91
581     exch2_jtlo_c(4,7)=0
582     exch2_jthi_c(4,7)=91
583     exch2_opposingSend_record(4,7)=3
584     RETURN
585     END
586    
587     SUBROUTINE W2_E2SETUP_8
588     C Topology for tile 8
589     #include "W2_EXCH2_TOPOLOGY.h"
590     exch2_tnx(8)=90
591     exch2_tny(8)=90
592     exch2_tbasex(8)=0
593     exch2_tbasey(8)=270
594 heimbach 1.2 exch2_txglobalo(8)=1
595     exch2_tyglobalo(8)=631
596 heimbach 1.1 exch2_isWedge(8)=1
597     exch2_isNedge(8)=1
598     exch2_isEedge(8)=1
599     exch2_isSedge(8)=0
600     exch2_myFace(8)=2
601     exch2_mydnx(8)=90
602     exch2_mydny(8)=360
603     exch2_nNeighbours(8)=4
604    
605     exch2_neighbourId(1,8)=9
606     exch2_pi(1,1,8)=1
607     exch2_pi(2,1,8)=0
608     exch2_pj(1,1,8)=0
609     exch2_pj(2,1,8)=1
610     exch2_oi(1,8)=0
611     exch2_oi_f(1,8)=0
612     exch2_oj(1,8)=360
613     exch2_oj_f(1,8)=360
614     exch2_itlo_c(1,8)=0
615     exch2_ithi_c(1,8)=91
616     exch2_jtlo_c(1,8)=0
617     exch2_jthi_c(1,8)=0
618     exch2_opposingSend_record(1,8)=2
619    
620     exch2_neighbourId(2,8)=7
621     exch2_pi(1,2,8)=1
622     exch2_pi(2,2,8)=0
623     exch2_pj(1,2,8)=0
624     exch2_pj(2,2,8)=1
625     exch2_oi(2,8)=0
626     exch2_oi_f(2,8)=0
627     exch2_oj(2,8)=0
628     exch2_oj_f(2,8)=0
629     exch2_itlo_c(2,8)=1
630     exch2_ithi_c(2,8)=90
631     exch2_jtlo_c(2,8)=91
632     exch2_jthi_c(2,8)=91
633     exch2_opposingSend_record(2,8)=1
634    
635     exch2_neighbourId(3,8)=10
636     exch2_pi(1,3,8)=0
637     exch2_pi(2,3,8)=1
638     exch2_pj(1,3,8)=-1
639     exch2_pj(2,3,8)=0
640     exch2_oi(3,8)=90
641     exch2_oi_f(3,8)=90
642     exch2_oj(3,8)=361
643     exch2_oj_f(3,8)=362
644     exch2_itlo_c(3,8)=0
645     exch2_ithi_c(3,8)=91
646     exch2_jtlo_c(3,8)=0
647     exch2_jthi_c(3,8)=0
648     exch2_opposingSend_record(3,8)=2
649    
650     exch2_neighbourId(4,8)=4
651     exch2_pi(1,4,8)=1
652     exch2_pi(2,4,8)=0
653     exch2_pj(1,4,8)=0
654     exch2_pj(2,4,8)=1
655     exch2_oi(4,8)=-90
656     exch2_oi_f(4,8)=-90
657     exch2_oj(4,8)=0
658     exch2_oj_f(4,8)=0
659     exch2_itlo_c(4,8)=91
660     exch2_ithi_c(4,8)=91
661     exch2_jtlo_c(4,8)=0
662     exch2_jthi_c(4,8)=91
663     exch2_opposingSend_record(4,8)=3
664     RETURN
665     END
666    
667     SUBROUTINE W2_E2SETUP_9
668     C Topology for tile 9
669     #include "W2_EXCH2_TOPOLOGY.h"
670     exch2_tnx(9)=90
671     exch2_tny(9)=90
672     exch2_tbasex(9)=0
673     exch2_tbasey(9)=0
674 heimbach 1.2 exch2_txglobalo(9)=1
675     exch2_tyglobalo(9)=721
676 heimbach 1.1 exch2_isWedge(9)=1
677     exch2_isNedge(9)=1
678     exch2_isEedge(9)=1
679     exch2_isSedge(9)=1
680     exch2_myFace(9)=3
681     exch2_mydnx(9)=90
682     exch2_mydny(9)=90
683     exch2_nNeighbours(9)=4
684    
685     exch2_neighbourId(1,9)=14
686     exch2_pi(1,1,9)=0
687     exch2_pi(2,1,9)=-1
688     exch2_pj(1,1,9)=1
689     exch2_pj(2,1,9)=0
690     exch2_oi(1,9)=91
691     exch2_oi_f(1,9)=92
692     exch2_oj(1,9)=90
693     exch2_oj_f(1,9)=90
694     exch2_itlo_c(1,9)=0
695     exch2_ithi_c(1,9)=0
696     exch2_jtlo_c(1,9)=0
697     exch2_jthi_c(1,9)=91
698     exch2_opposingSend_record(1,9)=4
699    
700     exch2_neighbourId(2,9)=8
701     exch2_pi(1,2,9)=1
702     exch2_pi(2,2,9)=0
703     exch2_pj(1,2,9)=0
704     exch2_pj(2,2,9)=1
705     exch2_oi(2,9)=0
706     exch2_oi_f(2,9)=0
707     exch2_oj(2,9)=-360
708     exch2_oj_f(2,9)=-360
709     exch2_itlo_c(2,9)=0
710     exch2_ithi_c(2,9)=91
711     exch2_jtlo_c(2,9)=91
712     exch2_jthi_c(2,9)=91
713     exch2_opposingSend_record(2,9)=1
714    
715     exch2_neighbourId(3,9)=10
716     exch2_pi(1,3,9)=1
717     exch2_pi(2,3,9)=0
718     exch2_pj(1,3,9)=0
719     exch2_pj(2,3,9)=1
720     exch2_oi(3,9)=90
721     exch2_oi_f(3,9)=90
722     exch2_oj(3,9)=0
723     exch2_oj_f(3,9)=0
724     exch2_itlo_c(3,9)=0
725     exch2_ithi_c(3,9)=0
726     exch2_jtlo_c(3,9)=0
727     exch2_jthi_c(3,9)=91
728     exch2_opposingSend_record(3,9)=4
729    
730     exch2_neighbourId(4,9)=4
731     exch2_pi(1,4,9)=0
732     exch2_pi(2,4,9)=1
733     exch2_pj(1,4,9)=-1
734     exch2_pj(2,4,9)=0
735     exch2_oi(4,9)=-360
736     exch2_oi_f(4,9)=-360
737     exch2_oj(4,9)=91
738     exch2_oj_f(4,9)=92
739     exch2_itlo_c(4,9)=0
740     exch2_ithi_c(4,9)=91
741     exch2_jtlo_c(4,9)=91
742     exch2_jthi_c(4,9)=91
743     exch2_opposingSend_record(4,9)=1
744     RETURN
745     END
746    
747     SUBROUTINE W2_E2SETUP_10
748     C Topology for tile 10
749     #include "W2_EXCH2_TOPOLOGY.h"
750     exch2_tnx(10)=90
751     exch2_tny(10)=90
752     exch2_tbasex(10)=0
753     exch2_tbasey(10)=0
754 heimbach 1.2 exch2_txglobalo(10)=1
755     exch2_tyglobalo(10)=811
756 heimbach 1.1 exch2_isWedge(10)=1
757     exch2_isNedge(10)=1
758     exch2_isEedge(10)=0
759     exch2_isSedge(10)=1
760     exch2_myFace(10)=4
761     exch2_mydnx(10)=360
762     exch2_mydny(10)=90
763     exch2_nNeighbours(10)=4
764    
765     exch2_neighbourId(1,10)=14
766     exch2_pi(1,1,10)=1
767     exch2_pi(2,1,10)=0
768     exch2_pj(1,1,10)=0
769     exch2_pj(2,1,10)=1
770     exch2_oi(1,10)=0
771     exch2_oi_f(1,10)=0
772     exch2_oj(1,10)=90
773     exch2_oj_f(1,10)=90
774     exch2_itlo_c(1,10)=0
775     exch2_ithi_c(1,10)=91
776     exch2_jtlo_c(1,10)=0
777     exch2_jthi_c(1,10)=0
778     exch2_opposingSend_record(1,10)=2
779    
780     exch2_neighbourId(2,10)=8
781     exch2_pi(1,2,10)=0
782     exch2_pi(2,2,10)=-1
783     exch2_pj(1,2,10)=1
784     exch2_pj(2,2,10)=0
785     exch2_oi(2,10)=361
786     exch2_oi_f(2,10)=362
787     exch2_oj(2,10)=-90
788     exch2_oj_f(2,10)=-90
789     exch2_itlo_c(2,10)=91
790     exch2_ithi_c(2,10)=91
791     exch2_jtlo_c(2,10)=0
792     exch2_jthi_c(2,10)=91
793     exch2_opposingSend_record(2,10)=3
794    
795     exch2_neighbourId(3,10)=11
796     exch2_pi(1,3,10)=1
797     exch2_pi(2,3,10)=0
798     exch2_pj(1,3,10)=0
799     exch2_pj(2,3,10)=1
800     exch2_oi(3,10)=0
801     exch2_oi_f(3,10)=0
802     exch2_oj(3,10)=0
803     exch2_oj_f(3,10)=0
804     exch2_itlo_c(3,10)=0
805     exch2_ithi_c(3,10)=0
806     exch2_jtlo_c(3,10)=0
807     exch2_jthi_c(3,10)=91
808     exch2_opposingSend_record(3,10)=4
809    
810     exch2_neighbourId(4,10)=9
811     exch2_pi(1,4,10)=1
812     exch2_pi(2,4,10)=0
813     exch2_pj(1,4,10)=0
814     exch2_pj(2,4,10)=1
815     exch2_oi(4,10)=-90
816     exch2_oi_f(4,10)=-90
817     exch2_oj(4,10)=0
818     exch2_oj_f(4,10)=0
819     exch2_itlo_c(4,10)=91
820     exch2_ithi_c(4,10)=91
821     exch2_jtlo_c(4,10)=0
822     exch2_jthi_c(4,10)=91
823     exch2_opposingSend_record(4,10)=3
824     RETURN
825     END
826    
827     SUBROUTINE W2_E2SETUP_11
828     C Topology for tile 11
829     #include "W2_EXCH2_TOPOLOGY.h"
830     exch2_tnx(11)=90
831     exch2_tny(11)=90
832     exch2_tbasex(11)=90
833     exch2_tbasey(11)=0
834 heimbach 1.2 exch2_txglobalo(11)=1
835     exch2_tyglobalo(11)=812
836 heimbach 1.1 exch2_isWedge(11)=0
837     exch2_isNedge(11)=1
838     exch2_isEedge(11)=0
839     exch2_isSedge(11)=1
840     exch2_myFace(11)=4
841     exch2_mydnx(11)=360
842     exch2_mydny(11)=90
843     exch2_nNeighbours(11)=4
844    
845     exch2_neighbourId(1,11)=15
846     exch2_pi(1,1,11)=1
847     exch2_pi(2,1,11)=0
848     exch2_pj(1,1,11)=0
849     exch2_pj(2,1,11)=1
850     exch2_oi(1,11)=0
851     exch2_oi_f(1,11)=0
852     exch2_oj(1,11)=90
853     exch2_oj_f(1,11)=90
854     exch2_itlo_c(1,11)=0
855     exch2_ithi_c(1,11)=91
856     exch2_jtlo_c(1,11)=0
857     exch2_jthi_c(1,11)=0
858     exch2_opposingSend_record(1,11)=2
859    
860     exch2_neighbourId(2,11)=7
861     exch2_pi(1,2,11)=0
862     exch2_pi(2,2,11)=-1
863     exch2_pj(1,2,11)=1
864     exch2_pj(2,2,11)=0
865     exch2_oi(2,11)=361
866     exch2_oi_f(2,11)=362
867     exch2_oj(2,11)=-90
868     exch2_oj_f(2,11)=-90
869     exch2_itlo_c(2,11)=91
870     exch2_ithi_c(2,11)=91
871     exch2_jtlo_c(2,11)=0
872     exch2_jthi_c(2,11)=91
873     exch2_opposingSend_record(2,11)=3
874    
875     exch2_neighbourId(3,11)=12
876     exch2_pi(1,3,11)=1
877     exch2_pi(2,3,11)=0
878     exch2_pj(1,3,11)=0
879     exch2_pj(2,3,11)=1
880     exch2_oi(3,11)=0
881     exch2_oi_f(3,11)=0
882     exch2_oj(3,11)=0
883     exch2_oj_f(3,11)=0
884     exch2_itlo_c(3,11)=0
885     exch2_ithi_c(3,11)=0
886     exch2_jtlo_c(3,11)=0
887     exch2_jthi_c(3,11)=91
888     exch2_opposingSend_record(3,11)=4
889    
890     exch2_neighbourId(4,11)=10
891     exch2_pi(1,4,11)=1
892     exch2_pi(2,4,11)=0
893     exch2_pj(1,4,11)=0
894     exch2_pj(2,4,11)=1
895     exch2_oi(4,11)=0
896     exch2_oi_f(4,11)=0
897     exch2_oj(4,11)=0
898     exch2_oj_f(4,11)=0
899     exch2_itlo_c(4,11)=91
900     exch2_ithi_c(4,11)=91
901     exch2_jtlo_c(4,11)=0
902     exch2_jthi_c(4,11)=91
903     exch2_opposingSend_record(4,11)=3
904     RETURN
905     END
906    
907     SUBROUTINE W2_E2SETUP_12
908     C Topology for tile 12
909     #include "W2_EXCH2_TOPOLOGY.h"
910     exch2_tnx(12)=90
911     exch2_tny(12)=90
912     exch2_tbasex(12)=180
913     exch2_tbasey(12)=0
914 heimbach 1.2 exch2_txglobalo(12)=1
915     exch2_tyglobalo(12)=813
916 heimbach 1.1 exch2_isWedge(12)=0
917     exch2_isNedge(12)=1
918     exch2_isEedge(12)=0
919     exch2_isSedge(12)=1
920     exch2_myFace(12)=4
921     exch2_mydnx(12)=360
922     exch2_mydny(12)=90
923     exch2_nNeighbours(12)=4
924    
925     exch2_neighbourId(1,12)=16
926     exch2_pi(1,1,12)=1
927     exch2_pi(2,1,12)=0
928     exch2_pj(1,1,12)=0
929     exch2_pj(2,1,12)=1
930     exch2_oi(1,12)=0
931     exch2_oi_f(1,12)=0
932     exch2_oj(1,12)=90
933     exch2_oj_f(1,12)=90
934     exch2_itlo_c(1,12)=0
935     exch2_ithi_c(1,12)=91
936     exch2_jtlo_c(1,12)=0
937     exch2_jthi_c(1,12)=0
938     exch2_opposingSend_record(1,12)=2
939    
940     exch2_neighbourId(2,12)=6
941     exch2_pi(1,2,12)=0
942     exch2_pi(2,2,12)=-1
943     exch2_pj(1,2,12)=1
944     exch2_pj(2,2,12)=0
945     exch2_oi(2,12)=361
946     exch2_oi_f(2,12)=362
947     exch2_oj(2,12)=-90
948     exch2_oj_f(2,12)=-90
949     exch2_itlo_c(2,12)=91
950     exch2_ithi_c(2,12)=91
951     exch2_jtlo_c(2,12)=0
952     exch2_jthi_c(2,12)=91
953     exch2_opposingSend_record(2,12)=3
954    
955     exch2_neighbourId(3,12)=13
956     exch2_pi(1,3,12)=1
957     exch2_pi(2,3,12)=0
958     exch2_pj(1,3,12)=0
959     exch2_pj(2,3,12)=1
960     exch2_oi(3,12)=0
961     exch2_oi_f(3,12)=0
962     exch2_oj(3,12)=0
963     exch2_oj_f(3,12)=0
964     exch2_itlo_c(3,12)=0
965     exch2_ithi_c(3,12)=0
966     exch2_jtlo_c(3,12)=0
967     exch2_jthi_c(3,12)=91
968     exch2_opposingSend_record(3,12)=4
969    
970     exch2_neighbourId(4,12)=11
971     exch2_pi(1,4,12)=1
972     exch2_pi(2,4,12)=0
973     exch2_pj(1,4,12)=0
974     exch2_pj(2,4,12)=1
975     exch2_oi(4,12)=0
976     exch2_oi_f(4,12)=0
977     exch2_oj(4,12)=0
978     exch2_oj_f(4,12)=0
979     exch2_itlo_c(4,12)=91
980     exch2_ithi_c(4,12)=91
981     exch2_jtlo_c(4,12)=0
982     exch2_jthi_c(4,12)=91
983     exch2_opposingSend_record(4,12)=3
984     RETURN
985     END
986    
987     SUBROUTINE W2_E2SETUP_13
988     C Topology for tile 13
989     #include "W2_EXCH2_TOPOLOGY.h"
990     exch2_tnx(13)=90
991     exch2_tny(13)=90
992     exch2_tbasex(13)=270
993     exch2_tbasey(13)=0
994 heimbach 1.2 exch2_txglobalo(13)=1
995     exch2_tyglobalo(13)=814
996 heimbach 1.1 exch2_isWedge(13)=0
997     exch2_isNedge(13)=1
998     exch2_isEedge(13)=1
999     exch2_isSedge(13)=1
1000     exch2_myFace(13)=4
1001     exch2_mydnx(13)=360
1002     exch2_mydny(13)=90
1003     exch2_nNeighbours(13)=4
1004    
1005     exch2_neighbourId(1,13)=17
1006     exch2_pi(1,1,13)=1
1007     exch2_pi(2,1,13)=0
1008     exch2_pj(1,1,13)=0
1009     exch2_pj(2,1,13)=1
1010     exch2_oi(1,13)=0
1011     exch2_oi_f(1,13)=0
1012     exch2_oj(1,13)=90
1013     exch2_oj_f(1,13)=90
1014     exch2_itlo_c(1,13)=0
1015     exch2_ithi_c(1,13)=91
1016     exch2_jtlo_c(1,13)=0
1017     exch2_jthi_c(1,13)=0
1018     exch2_opposingSend_record(1,13)=2
1019    
1020     exch2_neighbourId(2,13)=5
1021     exch2_pi(1,2,13)=0
1022     exch2_pi(2,2,13)=-1
1023     exch2_pj(1,2,13)=1
1024     exch2_pj(2,2,13)=0
1025     exch2_oi(2,13)=361
1026     exch2_oi_f(2,13)=362
1027     exch2_oj(2,13)=-90
1028     exch2_oj_f(2,13)=-90
1029     exch2_itlo_c(2,13)=91
1030     exch2_ithi_c(2,13)=91
1031     exch2_jtlo_c(2,13)=0
1032     exch2_jthi_c(2,13)=91
1033     exch2_opposingSend_record(2,13)=3
1034    
1035     exch2_neighbourId(3,13)=18
1036     exch2_pi(1,3,13)=0
1037     exch2_pi(2,3,13)=1
1038     exch2_pj(1,3,13)=-1
1039     exch2_pj(2,3,13)=0
1040     exch2_oi(3,13)=360
1041     exch2_oi_f(3,13)=360
1042     exch2_oj(3,13)=91
1043     exch2_oj_f(3,13)=92
1044     exch2_itlo_c(3,13)=0
1045     exch2_ithi_c(3,13)=91
1046     exch2_jtlo_c(3,13)=0
1047     exch2_jthi_c(3,13)=0
1048     exch2_opposingSend_record(3,13)=2
1049    
1050     exch2_neighbourId(4,13)=12
1051     exch2_pi(1,4,13)=1
1052     exch2_pi(2,4,13)=0
1053     exch2_pj(1,4,13)=0
1054     exch2_pj(2,4,13)=1
1055     exch2_oi(4,13)=0
1056     exch2_oi_f(4,13)=0
1057     exch2_oj(4,13)=0
1058     exch2_oj_f(4,13)=0
1059     exch2_itlo_c(4,13)=91
1060     exch2_ithi_c(4,13)=91
1061     exch2_jtlo_c(4,13)=0
1062     exch2_jthi_c(4,13)=91
1063     exch2_opposingSend_record(4,13)=3
1064     RETURN
1065     END
1066    
1067     SUBROUTINE W2_E2SETUP_14
1068     C Topology for tile 14
1069     #include "W2_EXCH2_TOPOLOGY.h"
1070     exch2_tnx(14)=90
1071     exch2_tny(14)=90
1072     exch2_tbasex(14)=0
1073     exch2_tbasey(14)=0
1074 heimbach 1.2 exch2_txglobalo(14)=1
1075     exch2_tyglobalo(14)=1171
1076 heimbach 1.1 exch2_isWedge(14)=1
1077     exch2_isNedge(14)=1
1078     exch2_isEedge(14)=0
1079     exch2_isSedge(14)=1
1080     exch2_myFace(14)=5
1081     exch2_mydnx(14)=360
1082     exch2_mydny(14)=90
1083     exch2_nNeighbours(14)=4
1084    
1085     exch2_neighbourId(1,14)=4
1086     exch2_pi(1,1,14)=0
1087     exch2_pi(2,1,14)=-1
1088     exch2_pj(1,1,14)=1
1089     exch2_pj(2,1,14)=0
1090     exch2_oi(1,14)=361
1091     exch2_oi_f(1,14)=362
1092     exch2_oj(1,14)=90
1093     exch2_oj_f(1,14)=90
1094     exch2_itlo_c(1,14)=0
1095     exch2_ithi_c(1,14)=0
1096     exch2_jtlo_c(1,14)=0
1097     exch2_jthi_c(1,14)=91
1098     exch2_opposingSend_record(1,14)=4
1099    
1100     exch2_neighbourId(2,14)=10
1101     exch2_pi(1,2,14)=1
1102     exch2_pi(2,2,14)=0
1103     exch2_pj(1,2,14)=0
1104     exch2_pj(2,2,14)=1
1105     exch2_oi(2,14)=0
1106     exch2_oi_f(2,14)=0
1107     exch2_oj(2,14)=-90
1108     exch2_oj_f(2,14)=-90
1109     exch2_itlo_c(2,14)=0
1110     exch2_ithi_c(2,14)=91
1111     exch2_jtlo_c(2,14)=91
1112     exch2_jthi_c(2,14)=91
1113     exch2_opposingSend_record(2,14)=1
1114    
1115     exch2_neighbourId(3,14)=15
1116     exch2_pi(1,3,14)=1
1117     exch2_pi(2,3,14)=0
1118     exch2_pj(1,3,14)=0
1119     exch2_pj(2,3,14)=1
1120     exch2_oi(3,14)=0
1121     exch2_oi_f(3,14)=0
1122     exch2_oj(3,14)=0
1123     exch2_oj_f(3,14)=0
1124     exch2_itlo_c(3,14)=0
1125     exch2_ithi_c(3,14)=0
1126     exch2_jtlo_c(3,14)=0
1127     exch2_jthi_c(3,14)=91
1128     exch2_opposingSend_record(3,14)=4
1129    
1130     exch2_neighbourId(4,14)=9
1131     exch2_pi(1,4,14)=0
1132     exch2_pi(2,4,14)=1
1133     exch2_pj(1,4,14)=-1
1134     exch2_pj(2,4,14)=0
1135     exch2_oi(4,14)=-90
1136     exch2_oi_f(4,14)=-90
1137     exch2_oj(4,14)=91
1138     exch2_oj_f(4,14)=92
1139     exch2_itlo_c(4,14)=0
1140     exch2_ithi_c(4,14)=91
1141     exch2_jtlo_c(4,14)=91
1142     exch2_jthi_c(4,14)=91
1143     exch2_opposingSend_record(4,14)=1
1144     RETURN
1145     END
1146    
1147     SUBROUTINE W2_E2SETUP_15
1148     C Topology for tile 15
1149     #include "W2_EXCH2_TOPOLOGY.h"
1150     exch2_tnx(15)=90
1151     exch2_tny(15)=90
1152     exch2_tbasex(15)=90
1153     exch2_tbasey(15)=0
1154 heimbach 1.2 exch2_txglobalo(15)=1
1155     exch2_tyglobalo(15)=1172
1156 heimbach 1.1 exch2_isWedge(15)=0
1157     exch2_isNedge(15)=1
1158     exch2_isEedge(15)=0
1159     exch2_isSedge(15)=1
1160     exch2_myFace(15)=5
1161     exch2_mydnx(15)=360
1162     exch2_mydny(15)=90
1163     exch2_nNeighbours(15)=4
1164    
1165     exch2_neighbourId(1,15)=3
1166     exch2_pi(1,1,15)=0
1167     exch2_pi(2,1,15)=-1
1168     exch2_pj(1,1,15)=1
1169     exch2_pj(2,1,15)=0
1170     exch2_oi(1,15)=361
1171     exch2_oi_f(1,15)=362
1172     exch2_oj(1,15)=90
1173     exch2_oj_f(1,15)=90
1174     exch2_itlo_c(1,15)=0
1175     exch2_ithi_c(1,15)=0
1176     exch2_jtlo_c(1,15)=0
1177     exch2_jthi_c(1,15)=91
1178     exch2_opposingSend_record(1,15)=4
1179    
1180     exch2_neighbourId(2,15)=11
1181     exch2_pi(1,2,15)=1
1182     exch2_pi(2,2,15)=0
1183     exch2_pj(1,2,15)=0
1184     exch2_pj(2,2,15)=1
1185     exch2_oi(2,15)=0
1186     exch2_oi_f(2,15)=0
1187     exch2_oj(2,15)=-90
1188     exch2_oj_f(2,15)=-90
1189     exch2_itlo_c(2,15)=0
1190     exch2_ithi_c(2,15)=91
1191     exch2_jtlo_c(2,15)=91
1192     exch2_jthi_c(2,15)=91
1193     exch2_opposingSend_record(2,15)=1
1194    
1195     exch2_neighbourId(3,15)=16
1196     exch2_pi(1,3,15)=1
1197     exch2_pi(2,3,15)=0
1198     exch2_pj(1,3,15)=0
1199     exch2_pj(2,3,15)=1
1200     exch2_oi(3,15)=0
1201     exch2_oi_f(3,15)=0
1202     exch2_oj(3,15)=0
1203     exch2_oj_f(3,15)=0
1204     exch2_itlo_c(3,15)=0
1205     exch2_ithi_c(3,15)=0
1206     exch2_jtlo_c(3,15)=0
1207     exch2_jthi_c(3,15)=91
1208     exch2_opposingSend_record(3,15)=4
1209    
1210     exch2_neighbourId(4,15)=14
1211     exch2_pi(1,4,15)=1
1212     exch2_pi(2,4,15)=0
1213     exch2_pj(1,4,15)=0
1214     exch2_pj(2,4,15)=1
1215     exch2_oi(4,15)=0
1216     exch2_oi_f(4,15)=0
1217     exch2_oj(4,15)=0
1218     exch2_oj_f(4,15)=0
1219     exch2_itlo_c(4,15)=91
1220     exch2_ithi_c(4,15)=91
1221     exch2_jtlo_c(4,15)=0
1222     exch2_jthi_c(4,15)=91
1223     exch2_opposingSend_record(4,15)=3
1224     RETURN
1225     END
1226    
1227     SUBROUTINE W2_E2SETUP_16
1228     C Topology for tile 16
1229     #include "W2_EXCH2_TOPOLOGY.h"
1230     exch2_tnx(16)=90
1231     exch2_tny(16)=90
1232     exch2_tbasex(16)=180
1233     exch2_tbasey(16)=0
1234 heimbach 1.2 exch2_txglobalo(16)=1
1235     exch2_tyglobalo(16)=1173
1236 heimbach 1.1 exch2_isWedge(16)=0
1237     exch2_isNedge(16)=1
1238     exch2_isEedge(16)=0
1239     exch2_isSedge(16)=1
1240     exch2_myFace(16)=5
1241     exch2_mydnx(16)=360
1242     exch2_mydny(16)=90
1243     exch2_nNeighbours(16)=4
1244    
1245     exch2_neighbourId(1,16)=2
1246     exch2_pi(1,1,16)=0
1247     exch2_pi(2,1,16)=-1
1248     exch2_pj(1,1,16)=1
1249     exch2_pj(2,1,16)=0
1250     exch2_oi(1,16)=361
1251     exch2_oi_f(1,16)=362
1252     exch2_oj(1,16)=90
1253     exch2_oj_f(1,16)=90
1254     exch2_itlo_c(1,16)=0
1255     exch2_ithi_c(1,16)=0
1256     exch2_jtlo_c(1,16)=0
1257     exch2_jthi_c(1,16)=91
1258     exch2_opposingSend_record(1,16)=4
1259    
1260     exch2_neighbourId(2,16)=12
1261     exch2_pi(1,2,16)=1
1262     exch2_pi(2,2,16)=0
1263     exch2_pj(1,2,16)=0
1264     exch2_pj(2,2,16)=1
1265     exch2_oi(2,16)=0
1266     exch2_oi_f(2,16)=0
1267     exch2_oj(2,16)=-90
1268     exch2_oj_f(2,16)=-90
1269     exch2_itlo_c(2,16)=0
1270     exch2_ithi_c(2,16)=91
1271     exch2_jtlo_c(2,16)=91
1272     exch2_jthi_c(2,16)=91
1273     exch2_opposingSend_record(2,16)=1
1274    
1275     exch2_neighbourId(3,16)=17
1276     exch2_pi(1,3,16)=1
1277     exch2_pi(2,3,16)=0
1278     exch2_pj(1,3,16)=0
1279     exch2_pj(2,3,16)=1
1280     exch2_oi(3,16)=0
1281     exch2_oi_f(3,16)=0
1282     exch2_oj(3,16)=0
1283     exch2_oj_f(3,16)=0
1284     exch2_itlo_c(3,16)=0
1285     exch2_ithi_c(3,16)=0
1286     exch2_jtlo_c(3,16)=0
1287     exch2_jthi_c(3,16)=91
1288     exch2_opposingSend_record(3,16)=4
1289    
1290     exch2_neighbourId(4,16)=15
1291     exch2_pi(1,4,16)=1
1292     exch2_pi(2,4,16)=0
1293     exch2_pj(1,4,16)=0
1294     exch2_pj(2,4,16)=1
1295     exch2_oi(4,16)=0
1296     exch2_oi_f(4,16)=0
1297     exch2_oj(4,16)=0
1298     exch2_oj_f(4,16)=0
1299     exch2_itlo_c(4,16)=91
1300     exch2_ithi_c(4,16)=91
1301     exch2_jtlo_c(4,16)=0
1302     exch2_jthi_c(4,16)=91
1303     exch2_opposingSend_record(4,16)=3
1304     RETURN
1305     END
1306    
1307     SUBROUTINE W2_E2SETUP_17
1308     C Topology for tile 17
1309     #include "W2_EXCH2_TOPOLOGY.h"
1310     exch2_tnx(17)=90
1311     exch2_tny(17)=90
1312     exch2_tbasex(17)=270
1313     exch2_tbasey(17)=0
1314 heimbach 1.2 exch2_txglobalo(17)=1
1315     exch2_tyglobalo(17)=1174
1316 heimbach 1.1 exch2_isWedge(17)=0
1317     exch2_isNedge(17)=1
1318     exch2_isEedge(17)=1
1319     exch2_isSedge(17)=1
1320     exch2_myFace(17)=5
1321     exch2_mydnx(17)=360
1322     exch2_mydny(17)=90
1323     exch2_nNeighbours(17)=4
1324    
1325     exch2_neighbourId(1,17)=1
1326     exch2_pi(1,1,17)=0
1327     exch2_pi(2,1,17)=-1
1328     exch2_pj(1,1,17)=1
1329     exch2_pj(2,1,17)=0
1330     exch2_oi(1,17)=361
1331     exch2_oi_f(1,17)=362
1332     exch2_oj(1,17)=90
1333     exch2_oj_f(1,17)=90
1334     exch2_itlo_c(1,17)=0
1335     exch2_ithi_c(1,17)=0
1336     exch2_jtlo_c(1,17)=0
1337     exch2_jthi_c(1,17)=91
1338     exch2_opposingSend_record(1,17)=4
1339    
1340     exch2_neighbourId(2,17)=13
1341     exch2_pi(1,2,17)=1
1342     exch2_pi(2,2,17)=0
1343     exch2_pj(1,2,17)=0
1344     exch2_pj(2,2,17)=1
1345     exch2_oi(2,17)=0
1346     exch2_oi_f(2,17)=0
1347     exch2_oj(2,17)=-90
1348     exch2_oj_f(2,17)=-90
1349     exch2_itlo_c(2,17)=0
1350     exch2_ithi_c(2,17)=91
1351     exch2_jtlo_c(2,17)=91
1352     exch2_jthi_c(2,17)=91
1353     exch2_opposingSend_record(2,17)=1
1354    
1355     exch2_neighbourId(3,17)=18
1356     exch2_pi(1,3,17)=1
1357     exch2_pi(2,3,17)=0
1358     exch2_pj(1,3,17)=0
1359     exch2_pj(2,3,17)=1
1360     exch2_oi(3,17)=360
1361     exch2_oi_f(3,17)=360
1362     exch2_oj(3,17)=0
1363     exch2_oj_f(3,17)=0
1364     exch2_itlo_c(3,17)=0
1365     exch2_ithi_c(3,17)=0
1366     exch2_jtlo_c(3,17)=0
1367     exch2_jthi_c(3,17)=91
1368     exch2_opposingSend_record(3,17)=4
1369    
1370     exch2_neighbourId(4,17)=16
1371     exch2_pi(1,4,17)=1
1372     exch2_pi(2,4,17)=0
1373     exch2_pj(1,4,17)=0
1374     exch2_pj(2,4,17)=1
1375     exch2_oi(4,17)=0
1376     exch2_oi_f(4,17)=0
1377     exch2_oj(4,17)=0
1378     exch2_oj_f(4,17)=0
1379     exch2_itlo_c(4,17)=91
1380     exch2_ithi_c(4,17)=91
1381     exch2_jtlo_c(4,17)=0
1382     exch2_jthi_c(4,17)=91
1383     exch2_opposingSend_record(4,17)=3
1384     RETURN
1385     END
1386    
1387     SUBROUTINE W2_E2SETUP_18
1388     C Topology for tile 18
1389     #include "W2_EXCH2_TOPOLOGY.h"
1390     exch2_tnx(18)=90
1391     exch2_tny(18)=90
1392     exch2_tbasex(18)=0
1393     exch2_tbasey(18)=0
1394 heimbach 1.2 exch2_txglobalo(18)=1
1395     exch2_tyglobalo(18)=1531
1396 heimbach 1.1 exch2_isWedge(18)=1
1397     exch2_isNedge(18)=1
1398     exch2_isEedge(18)=1
1399     exch2_isSedge(18)=1
1400     exch2_myFace(18)=6
1401     exch2_mydnx(18)=90
1402     exch2_mydny(18)=90
1403     exch2_nNeighbours(18)=4
1404    
1405     exch2_neighbourId(1,18)=1
1406     exch2_pi(1,1,18)=1
1407     exch2_pi(2,1,18)=0
1408     exch2_pj(1,1,18)=0
1409     exch2_pj(2,1,18)=1
1410     exch2_oi(1,18)=0
1411     exch2_oi_f(1,18)=0
1412     exch2_oj(1,18)=90
1413     exch2_oj_f(1,18)=90
1414     exch2_itlo_c(1,18)=0
1415     exch2_ithi_c(1,18)=91
1416     exch2_jtlo_c(1,18)=0
1417     exch2_jthi_c(1,18)=0
1418     exch2_opposingSend_record(1,18)=2
1419    
1420     exch2_neighbourId(2,18)=13
1421     exch2_pi(1,2,18)=0
1422     exch2_pi(2,2,18)=-1
1423     exch2_pj(1,2,18)=1
1424     exch2_pj(2,2,18)=0
1425     exch2_oi(2,18)=91
1426     exch2_oi_f(2,18)=92
1427     exch2_oj(2,18)=-360
1428     exch2_oj_f(2,18)=-360
1429     exch2_itlo_c(2,18)=91
1430     exch2_ithi_c(2,18)=91
1431     exch2_jtlo_c(2,18)=0
1432     exch2_jthi_c(2,18)=91
1433     exch2_opposingSend_record(2,18)=3
1434    
1435     exch2_neighbourId(3,18)=5
1436     exch2_pi(1,3,18)=0
1437     exch2_pi(2,3,18)=1
1438     exch2_pj(1,3,18)=-1
1439     exch2_pj(2,3,18)=0
1440     exch2_oi(3,18)=90
1441     exch2_oi_f(3,18)=90
1442     exch2_oj(3,18)=91
1443     exch2_oj_f(3,18)=92
1444     exch2_itlo_c(3,18)=0
1445     exch2_ithi_c(3,18)=91
1446     exch2_jtlo_c(3,18)=0
1447     exch2_jthi_c(3,18)=0
1448     exch2_opposingSend_record(3,18)=2
1449    
1450     exch2_neighbourId(4,18)=17
1451     exch2_pi(1,4,18)=1
1452     exch2_pi(2,4,18)=0
1453     exch2_pj(1,4,18)=0
1454     exch2_pj(2,4,18)=1
1455     exch2_oi(4,18)=-360
1456     exch2_oi_f(4,18)=-360
1457     exch2_oj(4,18)=0
1458     exch2_oj_f(4,18)=0
1459     exch2_itlo_c(4,18)=91
1460     exch2_ithi_c(4,18)=91
1461     exch2_jtlo_c(4,18)=0
1462     exch2_jthi_c(4,18)=91
1463     exch2_opposingSend_record(4,18)=3
1464     RETURN
1465     END
1466    
  ViewVC Help
Powered by ViewVC 1.1.22