/[MITgcm]/MITgcm/eesupp/src/exch_uv_agrid_xy_rx.template
ViewVC logotype

Diff of /MITgcm/eesupp/src/exch_uv_agrid_xy_rx.template

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.6 by jmc, Fri Nov 19 02:32:04 2004 UTC revision 1.8 by jmc, Wed Aug 23 15:20:37 2006 UTC
# Line 40  C     == Argument list variables == Line 40  C     == Argument list variables ==
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)
53        _RX negOne        _RX negOne
54    
55  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
56        CALL EXCH2_UV_AGRID_XY_RX(        CALL EXCH2_UV_AGRID_3D_RX(
57       U                           component1, component2,       U                           component1, component2,
58       I                           withSigns, myThid )       I                           withSigns, 1, myThid )
59        RETURN        RETURN
60  #endif  #endif
61    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22