12 |
C W2_mpi_myTileList :: same as W2_myTileList, but contains |
C W2_mpi_myTileList :: same as W2_myTileList, but contains |
13 |
C information for all processes |
C information for all processes |
14 |
INTEGER W2_myTileList(nSx), W2_mpi_myTileList(nPx*nPy,nSx) |
INTEGER W2_myTileList(nSx), W2_mpi_myTileList(nPx*nPy,nSx) |
15 |
INTEGER E2_MSGHANDLES(2,MAX_NEIGHBOURS, nSx) |
c INTEGER E2_MSGHANDLES(2,MAX_NEIGHBOURS, nSx) |
16 |
COMMON /W2_EXCH2_PARAMS_I/ W2_myTileList, W2_mpi_myTileList |
COMMON /W2_EXCH2_PARAMS_I/ W2_myTileList, W2_mpi_myTileList |
17 |
|
|
18 |
CHARACTER W2_myCommFlag(MAX_NEIGHBOURS,nSx) |
CHARACTER W2_myCommFlag(MAX_NEIGHBOURS,nSx) |