/[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.3 by jmc, Fri Aug 1 00:45:16 2008 UTC revision 1.5 by jmc, Tue May 12 19:44:58 2009 UTC
# Line 24  C     == Global data == Line 24  C     == Global data ==
24  #include "EEPARAMS.h"  #include "EEPARAMS.h"
25  #include "EESUPPORT.h"  #include "EESUPPORT.h"
26  #include "EXCH.h"  #include "EXCH.h"
27    #include "W2_EXCH2_SIZE.h"
28  #include "W2_EXCH2_TOPOLOGY.h"  #include "W2_EXCH2_TOPOLOGY.h"
29  #include "W2_EXCH2_PARAMS.h"  #include "W2_EXCH2_BUFFER.h"
30    
31  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
32  C     array :: Array with edges to exchange.  C     array :: Array with edges to exchange.
# Line 65  c     INTEGER I,J,K Line 66  c     INTEGER I,J,K
66  c     INTEGER bl,bt,bn,bs,be,bw  c     INTEGER bl,bt,bn,bs,be,bw
67        INTEGER bi        INTEGER bi
68  C     Variables for working through W2 topology  C     Variables for working through W2 topology
69        INTEGER e2_msgHandles(2,MAX_NEIGHBOURS, nSx)        INTEGER e2_msgHandles(2,W2_maxNeighbours, nSx)
70        INTEGER thisTile, farTile, N, nN, oN        INTEGER thisTile, farTile, N, nN, oN
71        INTEGER tIlo1, tIhi1, tJlo1, tJhi1, oIs1, oJs1        INTEGER tIlo1, tIhi1, tJlo1, tJhi1, oIs1, oJs1
72        INTEGER tIlo2, tIhi2, tJlo2, tJhi2, oIs2, oJs2        INTEGER tIlo2, tIhi2, tJlo2, tJhi2, oIs2, oJs2
# Line 128  C- this is no longer the case after 2008 Line 129  C- this is no longer the case after 2008
129          i1Lo  = 1-myOLw          i1Lo  = 1-myOLw
130          i1Hi  = sNx+myOLe          i1Hi  = sNx+myOLe
131          j1Lo  = 1-myOLs          j1Lo  = 1-myOLs
132          j1Hi  = sNy+myOLs          j1Hi  = sNy+myOLn
133          k1Lo  = 1          k1Lo  = 1
134          k1Hi  = myNz          k1Hi  = myNz
135          i2Lo  = 1-myOLw          i2Lo  = 1-myOLw
136          i2Hi  = sNx+myOLe          i2Hi  = sNx+myOLe
137          j2Lo  = 1-myOLs          j2Lo  = 1-myOLs
138          j2Hi  = sNy+myOLs          j2Hi  = sNy+myOLn
139          k2Lo  = 1          k2Lo  = 1
140          k2Hi  = myNz          k2Hi  = myNz
141  C       Receive from neighbour N to fill my points  C       Receive from neighbour N to fill my points
# Line 150  C               record. Line 151  C               record.
151       I       tKlo, tKhi, tkStride,       I       tKlo, tKhi, tkStride,
152       I       thisTile, bi, N,       I       thisTile, bi, N,
153       I       e2Bufr1_RX, e2Bufr2_RX, e2BufrRecSize,       I       e2Bufr1_RX, e2Bufr2_RX, e2BufrRecSize,
154       I       MAX_NEIGHBOURS, nSx,       I       W2_maxNeighbours, nSx,
155       I       array1(1-myOLw,1-myOLs,1,bi,1),       I       array1(1-myOLw,1-myOLs,1,bi,1),
156       I       i1Lo, i1Hi, j1Lo, j1Hi, k1Lo, k1Hi,       I       i1Lo, i1Hi, j1Lo, j1Hi, k1Lo, k1Hi,
157       I       array2(1-myOLw,1-myOLs,1,bi,1),       I       array2(1-myOLw,1-myOLs,1,bi,1),
# Line 196  C     Post sends as messages or buffer c Line 197  C     Post sends as messages or buffer c
197          i1Lo  = 1-myOLw          i1Lo  = 1-myOLw
198          i1Hi  = sNx+myOLe          i1Hi  = sNx+myOLe
199          j1Lo  = 1-myOLs          j1Lo  = 1-myOLs
200          j1Hi  = sNy+myOLs          j1Hi  = sNy+myOLn
201          k1Lo  = 1          k1Lo  = 1
202          k1Hi  = myNz          k1Hi  = myNz
203          i2Lo  = 1-myOLw          i2Lo  = 1-myOLw
204          i2Hi  = sNx+myOLe          i2Hi  = sNx+myOLe
205          j2Lo  = 1-myOLs          j2Lo  = 1-myOLs
206          j2Hi  = sNy+myOLs          j2Hi  = sNy+myOLn
207          k2Lo  = 1          k2Lo  = 1
208          k2Hi  = myNz          k2Hi  = myNz
209  C       Send to neighbour N to fill neighbor points  C       Send to neighbour N to fill neighbor points
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22