/[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.4 by jahn, Tue Mar 17 18:41:33 2009 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 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),
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22