51 |
C OL[wens] :: Overlap extents in west, east, north, south. |
C OL[wens] :: Overlap extents in west, east, north, south. |
52 |
C exchWidth[XY] :: Extent of regions that will be exchanged. |
C exchWidth[XY] :: Extent of regions that will be exchanged. |
53 |
INTEGER OLw, OLe, OLn, OLs, exchWidthX, exchWidthY, myNz |
INTEGER OLw, OLe, OLn, OLs, exchWidthX, exchWidthY, myNz |
54 |
INTEGER bi, bj, myTile, i, j |
INTEGER bi, bj, myTile, j |
55 |
|
#ifdef W2_FILL_NULL_REGIONS |
56 |
|
INTEGER i |
57 |
|
#endif |
58 |
CEOP |
CEOP |
59 |
|
|
60 |
OLw = OLx |
OLw = OLx |