16 |
COMMON /W2_EXCH2_PARAMS_C/ W2_myCommFlag |
COMMON /W2_EXCH2_PARAMS_C/ W2_myCommFlag |
17 |
|
|
18 |
INTEGER e2BufrRecSize |
INTEGER e2BufrRecSize |
19 |
PARAMETER ( e2BufrRecSize = ( (sNx+2*OLx)*2+(sNy+2*OLy)*2)*Nr ) |
PARAMETER ( |
20 |
|
& e2BufrRecSize = ( (sNx+2*OLx)*2*OLy+(sNy+2*OLy)*2*OLx)*Nr |
21 |
|
&) |
22 |
_RL E2BUFR1_RL( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 ) |
_RL E2BUFR1_RL( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 ) |
23 |
_RL E2BUFR2_RL( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 ) |
_RL E2BUFR2_RL( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 ) |
24 |
_RL E2BUFR1_RS( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 ) |
_RL E2BUFR1_RS( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 ) |