8 |
|
|
9 |
C W2 tile id variables (tile ids are no longer a function of |
C W2 tile id variables (tile ids are no longer a function of |
10 |
C process and subgrid indicies). |
C process and subgrid indicies). |
11 |
INTEGER W2_myTileList(nSx) |
C W2_myTileList :: list of tiles owned by this process |
12 |
|
C W2_mpi_myTileList :: same as W2_myTileList, but contains |
13 |
|
C information for all processes |
14 |
|
INTEGER W2_myTileList(nSx), W2_mpi_myTileList(nPx*nPy,nSx) |
15 |
INTEGER E2_MSGHANDLES(2,MAX_NEIGHBOURS, nSx) |
INTEGER E2_MSGHANDLES(2,MAX_NEIGHBOURS, nSx) |
16 |
COMMON /W2_EXCH2_PARAMS_I/ W2_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) |
19 |
COMMON /W2_EXCH2_PARAMS_C/ W2_myCommFlag |
COMMON /W2_EXCH2_PARAMS_C/ W2_myCommFlag |