40 |
INTEGER iBuf2Filled( W2_maxNeighbours, nSx, nSy ) |
INTEGER iBuf2Filled( W2_maxNeighbours, nSx, nSy ) |
41 |
COMMON /W2_EXCH2_BUF_I/ iBuf1Filled, iBuf2Filled |
COMMON /W2_EXCH2_BUF_I/ iBuf1Filled, iBuf2Filled |
42 |
|
|
|
C-- COMMON /W2_EXCH2_COMMFLAG/ EXCH2 character Flag for type of communication |
|
|
CHARACTER W2_myCommFlag( W2_maxNeighbours, nSx, nSy ) |
|
|
COMMON /W2_EXCH2_COMMFLAG/ W2_myCommFlag |
|
|
|
|
43 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |