23 |
#include "W2_EXCH2_TOPOLOGY.h" |
#include "W2_EXCH2_TOPOLOGY.h" |
24 |
|
|
25 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
|
CHARACTER*(MAX_LEN_MBUF) messageBuffer |
|
26 |
C |
C |
27 |
C === Routine arguments === |
C === Routine arguments === |
28 |
C tIlo, tIhi, tIstride :: index range in I that will be filled in target "array" |
C tIlo, tIhi, tIstride :: index range in I that will be filled in target "array" |
77 |
C :: isl etc... source local |
C :: isl etc... source local |
78 |
C :: isc etc... source canonical |
C :: isc etc... source canonical |
79 |
INTEGER itl, jtl, ktl |
INTEGER itl, jtl, ktl |
80 |
INTEGER itc, jtc, ktc |
c INTEGER itc, jtc, ktc |
81 |
INTEGER isc, jsc, ksc |
c INTEGER isc, jsc, ksc |
82 |
INTEGER isl, jsl, ksl |
c INTEGER isl, jsl, ksl |
83 |
C tt :: Target tile |
C tt :: Target tile |
84 |
C iBufr :: Buffer counter |
C iBufr :: Buffer counter |
85 |
INTEGER tt |
INTEGER tt |
90 |
C oN :: Opposing send record number |
C oN :: Opposing send record number |
91 |
INTEGER oN |
INTEGER oN |
92 |
C Loop counters |
C Loop counters |
93 |
INTEGER I, nri, nrj, nrk |
c INTEGER I, nri, nrj, nrk |
94 |
|
INTEGER I |
95 |
|
|
96 |
C MPI setup |
C MPI setup |
97 |
#include "SIZE.h" |
#include "SIZE.h" |
98 |
#include "EESUPPORT.h" |
#include "EESUPPORT.h" |
|
INTEGER theTag, theSize, theType |
|
|
INTEGER sProc, tProc |
|
99 |
#ifdef ALLOW_USE_MPI |
#ifdef ALLOW_USE_MPI |
100 |
|
c INTEGER theTag, theSize, theType |
101 |
|
INTEGER theTag, theType |
102 |
|
INTEGER sProc, tProc |
103 |
|
INTEGER nri, nrj, nrk |
104 |
INTEGER mpiStatus(MPI_STATUS_SIZE), mpiRc |
INTEGER mpiStatus(MPI_STATUS_SIZE), mpiRc |
105 |
|
#ifdef W2_E2_DEBUG_ON |
106 |
|
CHARACTER*(MAX_LEN_MBUF) messageBuffer |
107 |
|
#endif |
108 |
#endif |
#endif |
109 |
|
|
110 |
tt=exch2_neighbourId(nN, thisTile ) |
tt=exch2_neighbourId(nN, thisTile ) |