| 40 |
INTEGER myThid |
INTEGER myThid |
| 41 |
|
|
| 42 |
C == Local variables == |
C == Local variables == |
| 43 |
C i,j,L,bi,bj are do indices. |
C i,j,bi,bj are do indices. |
| 44 |
C OL[wens] - Overlap extents in west, east, north, south. |
C OL[wens] - Overlap extents in west, east, north, south. |
| 45 |
C exchWidth[XY] - Extent of regions that will be exchanged. |
C exchWidth[XY] - Extent of regions that will be exchanged. |
| 46 |
C dummy[12] - copies of the vector components with haloes filled. |
C dummy[12] - copies of the vector components with haloes filled. |
| 47 |
C b[nsew] - indices of the [nswe] neighboring faces for each face. |
C b[nsew] - indices of the [nswe] neighboring faces for each face. |
| 48 |
|
|
| 49 |
integer i,j,L,bi,bj |
integer i,j,bi,bj |
| 50 |
integer OLw, OLe, OLn, OLs, exchWidthX, exchWidthY, myNz |
integer OLw, OLe, OLn, OLs, exchWidthX, exchWidthY, myNz |
| 51 |
_RX dummy1(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
_RX dummy1(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
| 52 |
_RX dummy2(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
_RX dummy2(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |