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

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

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

revision 1.3 by jahn, Tue Mar 17 18:41:33 2009 UTC revision 1.4 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 62  c     INTEGER I,J,K Line 63  c     INTEGER I,J,K
63  c     INTEGER bl,bt,bn,bs,be,bw  c     INTEGER bl,bt,bn,bs,be,bw
64        INTEGER I        INTEGER I
65  C     Variables for working through W2 topology  C     Variables for working through W2 topology
66        INTEGER e2_msgHandles(2,MAX_NEIGHBOURS, nSx)        INTEGER e2_msgHandles(2,W2_maxNeighbours, nSx)
67        INTEGER thisTile, farTile, N, nN, oN        INTEGER thisTile, farTile, N, nN, oN
68        INTEGER tIlo, tIhi, tJlo, tJhi, tKlo, tKhi        INTEGER tIlo, tIhi, tJlo, tJhi, tKlo, tKhi
69        INTEGER tIStride, tJStride, tKStride        INTEGER tIStride, tJStride, tKStride
# Line 130  C               record. Line 131  C               record.
131       I       tKlo, tKhi, tkStride,       I       tKlo, tKhi, tkStride,
132       I       thisTile, I, N,       I       thisTile, I, N,
133       I       e2Bufr1_RX, e2BufrRecSize,       I       e2Bufr1_RX, e2BufrRecSize,
134       I       MAX_NEIGHBOURS, nSx,       I       W2_maxNeighbours, nSx,
135       I       array(1-myOLw,1-myOLs,1,I,1),       I       array(1-myOLw,1-myOLs,1,I,1),
136       I       i1Lo, i1Hi, j1Lo, j1Hi, k1Lo, k1Hi,       I       i1Lo, i1Hi, j1Lo, j1Hi, k1Lo, k1Hi,
137       U       e2_msgHandles(1,N,I),       U       e2_msgHandles(1,N,I),
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22