52 |
INTEGER biE, biW, bjN, bjS |
INTEGER biE, biW, bjN, bjS |
53 |
INTEGER thePx, thePy, theBj, theBi |
INTEGER thePx, thePy, theBj, theBi |
54 |
|
|
55 |
C-- Turn off memsync by default |
#ifndef ALWAYS_USE_MPI |
56 |
|
C-- Turn off memsync by default (e.g. needed for threads on SUNs) |
57 |
exchNeedsMemsync = .TRUE. |
exchNeedsMemsync = .TRUE. |
58 |
exchUsesBarrier = .TRUE. |
exchUsesBarrier = .TRUE. |
59 |
|
#else |
60 |
|
C-- ... except that MPI needs this until some counter problem is fixed. |
61 |
|
exchNeedsMemsync = .FALSE. |
62 |
|
exchUsesBarrier = .FALSE. |
63 |
|
#endif |
64 |
|
|
65 |
C-- Define a globally unique tile numbers for each tile. |
C-- Define a globally unique tile numbers for each tile. |
66 |
C-- We aslo define the tile numbers for our east, west, south |
C-- We aslo define the tile numbers for our east, west, south |