54 |
& W2_mapIO, |
& W2_mapIO, |
55 |
& W2_oUnit, W2_printMsg |
& W2_oUnit, W2_printMsg |
56 |
|
|
57 |
|
C-- COMMON /W2_EXCH2_PARM_L/ Logical valued parameters used by W2-EXCH2 |
58 |
|
C W2_useE2ioLayOut :: =T: use Exch2 global-IO Layout; =F: use model default |
59 |
|
LOGICAL W2_useE2ioLayOut |
60 |
|
COMMON /W2_EXCH2_PARM_L/ |
61 |
|
& W2_useE2ioLayOut |
62 |
|
|
63 |
C-- COMMON /W2_EXCH2_BUILD_I/ Integer variables used to build topology |
C-- COMMON /W2_EXCH2_BUILD_I/ Integer variables used to build topology |
64 |
C facet_owns :: Range of tiles this facet "owns" |
C facet_owns :: Range of tiles this facet "owns" |
65 |
C facet_pij \ :: |
C facet_pij \ :: |