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

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

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

revision 1.8 by cnh, Tue Aug 5 18:31:55 2008 UTC revision 1.9 by jmc, Tue May 12 19:44:58 2009 UTC
# Line 27  C     bufr2 along +j axis in target tile Line 27  C     bufr2 along +j axis in target tile
27  #include "SIZE.h"  #include "SIZE.h"
28  #include "EEPARAMS.h"  #include "EEPARAMS.h"
29  #include "EESUPPORT.h"  #include "EESUPPORT.h"
30    #include "W2_EXCH2_SIZE.h"
31  #include "W2_EXCH2_TOPOLOGY.h"  #include "W2_EXCH2_TOPOLOGY.h"
32    
33  C     === Routine arguments ===  C     === Routine arguments ===
# Line 338  C      nothing i.e. assume only one thre Line 339  C      nothing i.e. assume only one thre
339        ELSEIF ( commSetting .EQ. 'M' ) THEN        ELSEIF ( commSetting .EQ. 'M' ) THEN
340  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
341  C      Setup MPI stuff here  C      Setup MPI stuff here
342         theTag1 =  (thisTile-1)*MAX_NEIGHBOURS*2 + nN-1         theTag1 =  (thisTile-1)*W2_maxNeighbours*2 + nN-1
343         theTag2 =  (thisTile-1)*MAX_NEIGHBOURS*2 + MAX_NEIGHBOURS + nN-1         theTag2 =  (thisTile-1)*W2_maxNeighbours*2
344         &         + W2_maxNeighbours + nN-1
345         tProc = exch2_tProc(tt)-1         tProc = exch2_tProc(tt)-1
346         sProc = exch2_tProc(thisTile)-1         sProc = exch2_tProc(thisTile)-1
347         theType = MPI_REAL8         theType = MPI_REAL8
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22