/[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.6 by jmc, Fri Aug 1 00:45:16 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       &         + 10000*(         theTag2 =  (tt-1)*W2_maxNeighbours*2 + W2_maxNeighbours + oN-1
      &            (thisTile-1)*MAX_NEIGHBOURS*2 + oN-1  
      &           )  
        theTag2 =  (tt-1)*MAX_NEIGHBOURS*2 + MAX_NEIGHBOURS + oN-1  
      &         + 10000*(  
      &            (thisTile-1)*MAX_NEIGHBOURS*2 + MAX_NEIGHBOURS + 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.6  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22