/[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.7 by jmc, Fri Aug 1 00:45:16 2008 UTC revision 1.8 by cnh, Tue Aug 5 18:31:55 2008 UTC
# Line 339  C      nothing i.e. assume only one thre Line 339  C      nothing i.e. assume only one thre
339  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
340  C      Setup MPI stuff here  C      Setup MPI stuff here
341         theTag1 =  (thisTile-1)*MAX_NEIGHBOURS*2 + nN-1         theTag1 =  (thisTile-1)*MAX_NEIGHBOURS*2 + nN-1
      &           + 10000*(  
      &             (tt-1)*MAX_NEIGHBOURS*2 + nN-1  
      &            )  
342         theTag2 =  (thisTile-1)*MAX_NEIGHBOURS*2 + MAX_NEIGHBOURS + nN-1         theTag2 =  (thisTile-1)*MAX_NEIGHBOURS*2 + MAX_NEIGHBOURS + nN-1
      &           + 10000*(  
      &             (tt-1)*MAX_NEIGHBOURS*2 + MAX_NEIGHBOURS + nN-1  
      &            )  
343         tProc = exch2_tProc(tt)-1         tProc = exch2_tProc(tt)-1
344         sProc = exch2_tProc(thisTile)-1         sProc = exch2_tProc(thisTile)-1
345         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