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

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

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

revision 1.7 by cnh, Tue Aug 5 18:31:55 2008 UTC revision 1.8 by jmc, Tue May 12 19:44:58 2009 UTC
# Line 24  C $Name$ Line 24  C $Name$
24  #include "SIZE.h"  #include "SIZE.h"
25  #include "EEPARAMS.h"  #include "EEPARAMS.h"
26  #include "EESUPPORT.h"  #include "EESUPPORT.h"
27    #include "W2_EXCH2_SIZE.h"
28  #include "W2_EXCH2_TOPOLOGY.h"  #include "W2_EXCH2_TOPOLOGY.h"
29    
30  C     === Routine arguments ===  C     === Routine arguments ===
# Line 131  C      Setup MPI stuff here Line 132  C      Setup MPI stuff here
132         nb = thisI         nb = thisI
133         mb = nN         mb = nN
134         ir = 2         ir = 2
135         theTag1 =  (tt-1)*MAX_NEIGHBOURS*2 + oN-1         theTag1 =  (tt-1)*W2_maxNeighbours*2 + oN-1
136         theTag2 =  (tt-1)*MAX_NEIGHBOURS*2 + MAX_NEIGHBOURS + oN-1         theTag2 =  (tt-1)*W2_maxNeighbours*2 + W2_maxNeighbours + oN-1
137         tProc = exch2_tProc(thisTile)-1         tProc = exch2_tProc(thisTile)-1
138         sProc = exch2_tProc(tt)-1         sProc = exch2_tProc(tt)-1
139         theType = MPI_REAL8         theType = MPI_REAL8
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22