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) |