33 |
COMMON /W2_EXCH2_BUF_R4/ E2BUFR1_R4, E2BUFR2_R4 |
COMMON /W2_EXCH2_BUF_R4/ E2BUFR1_R4, E2BUFR2_R4 |
34 |
COMMON /W2_EXCH2_BUF_R8/ E2BUFR1_R8, E2BUFR2_R8 |
COMMON /W2_EXCH2_BUF_R8/ E2BUFR1_R8, E2BUFR2_R8 |
35 |
|
|
36 |
|
C-- COMMON /W2_EXCH2_BUF_I/ integer type Buffer used by W2-EXCH2 |
37 |
|
C iBuf1Filled :: actual length of buffer-1 which has been filled in. |
38 |
|
C iBuf2Filled :: actual length of buffer-2 which has been filled in. |
39 |
|
INTEGER iBuf1Filled( W2_maxNeighbours, nSx) |
40 |
|
INTEGER iBuf2Filled( W2_maxNeighbours, nSx) |
41 |
|
COMMON /W2_EXCH2_BUF_I/ iBuf1Filled, iBuf2Filled |
42 |
|
|
43 |
C-- COMMON /W2_EXCH2_COMMFLAG/ EXCH2 character Flag for type of communication |
C-- COMMON /W2_EXCH2_COMMFLAG/ EXCH2 character Flag for type of communication |
44 |
CHARACTER W2_myCommFlag( W2_maxNeighbours, nSx ) |
CHARACTER W2_myCommFlag( W2_maxNeighbours, nSx ) |
45 |
COMMON /W2_EXCH2_COMMFLAG/ W2_myCommFlag |
COMMON /W2_EXCH2_COMMFLAG/ W2_myCommFlag |