/[MITgcm]/MITgcm/pkg/exch2/exch2_rx2_cube_ad.template
ViewVC logotype

Diff of /MITgcm/pkg/exch2/exch2_rx2_cube_ad.template

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

revision 1.11 by jmc, Wed May 19 01:25:17 2010 UTC revision 1.12 by jmc, Mon Mar 26 19:13:15 2012 UTC
# Line 79  C     Variables for working through W2 t Line 79  C     Variables for working through W2 t
79        INTEGER tKlo, tKhi, tKStride        INTEGER tKlo, tKhi, tKStride
80        INTEGER i1Lo, i1Hi, j1Lo, j1Hi, k1Lo, k1Hi        INTEGER i1Lo, i1Hi, j1Lo, j1Hi, k1Lo, k1Hi
81        INTEGER i2Lo, i2Hi, j2Lo, j2Hi, k2Lo, k2Hi        INTEGER i2Lo, i2Hi, j2Lo, j2Hi, k2Lo, k2Hi
82          LOGICAL updateCorners
83    
84  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
85        INTEGER iBufr1, iBufr2, nri, nrj        INTEGER iBufr1, iBufr2, nri, nrj
# Line 89  C     MPI stuff (should be in a routine Line 90  C     MPI stuff (should be in a routine
90  #endif  #endif
91  CEOP  CEOP
92    
93          updateCorners = cornerMode .EQ. EXCH_UPDATE_CORNERS
94  C-    Tile size of arrays to exchange:  C-    Tile size of arrays to exchange:
95        i1Lo  = 1-myOLw        i1Lo  = 1-myOLw
96        i1Hi  = sNx+myOLe        i1Hi  = sNx+myOLe
# Line 118  C  AD:   on local (to this Proc) or remo Line 120  C  AD:   on local (to this Proc) or remo
120          nN=exch2_nNeighbours(thisTile)          nN=exch2_nNeighbours(thisTile)
121          DO N=1,nN          DO N=1,nN
122            CALL EXCH2_GET_UV_BOUNDS(            CALL EXCH2_GET_UV_BOUNDS(
123       I               fieldCode, exchWidthX,       I               fieldCode, exchWidthX, updateCorners,
124       I               thisTile, N,       I               thisTile, N,
125       O               tIlo1, tIhi1, tJlo1, tJhi1,       O               tIlo1, tIhi1, tJlo1, tJhi1,
126       O               tIlo2, tIhi2, tJlo2, tJhi2,       O               tIlo2, tIhi2, tJlo2, tJhi2,
# Line 195  C-    Skip the call if this is an intern Line 197  C-    Skip the call if this is an intern
197            farTile=exch2_neighbourId(N,thisTile)            farTile=exch2_neighbourId(N,thisTile)
198            oN = exch2_opposingSend(N,thisTile)            oN = exch2_opposingSend(N,thisTile)
199            CALL EXCH2_GET_UV_BOUNDS(            CALL EXCH2_GET_UV_BOUNDS(
200       I               fieldCode, exchWidthX,       I               fieldCode, exchWidthX, updateCorners,
201       I               farTile, oN,       I               farTile, oN,
202       O               tIlo1, tIhi1, tJlo1, tJhi1,       O               tIlo1, tIhi1, tJlo1, tJhi1,
203       O               tIlo2, tIhi2, tJlo2, tJhi2,       O               tIlo2, tIhi2, tJlo2, tJhi2,
# Line 262  C--   Post sends into buffer (buffer lev Line 264  C--   Post sends into buffer (buffer lev
264            farTile=exch2_neighbourId(N,thisTile)            farTile=exch2_neighbourId(N,thisTile)
265            oN = exch2_opposingSend(N,thisTile)            oN = exch2_opposingSend(N,thisTile)
266            CALL EXCH2_GET_UV_BOUNDS(            CALL EXCH2_GET_UV_BOUNDS(
267       I               fieldCode, exchWidthX,       I               fieldCode, exchWidthX, updateCorners,
268       I               farTile, oN,       I               farTile, oN,
269       O               tIlo1, tIhi1, tJlo1, tJhi1,       O               tIlo1, tIhi1, tJlo1, tJhi1,
270       O               tIlo2, tIhi2, tJlo2, tJhi2,       O               tIlo2, tIhi2, tJlo2, tJhi2,
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22