/[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.11 by jmc, Fri Apr 23 20:21:07 2010 UTC revision 1.12 by jmc, Tue Sep 4 00:45:25 2012 UTC
# Line 80  C     between source and target tile Line 80  C     between source and target tile
80  C      Setup MPI stuff here  C      Setup MPI stuff here
81         theTag1 = (soT-1)*W2_maxNeighbours*2 + oNb-1         theTag1 = (soT-1)*W2_maxNeighbours*2 + oNb-1
82         theTag2 = (soT-1)*W2_maxNeighbours*2 + W2_maxNeighbours + oNb-1         theTag2 = (soT-1)*W2_maxNeighbours*2 + W2_maxNeighbours + oNb-1
83         tProc = exch2_tProc(thisTile)-1         tProc = W2_tileProc(thisTile)-1
84         sProc = exch2_tProc(soT)-1         sProc = W2_tileProc(soT)-1
85         theType = _MPI_TYPE_RX         theType = _MPI_TYPE_RX
86         CALL MPI_Recv( e2Bufr1_RX, iBufr1, theType, sProc,         CALL MPI_Recv( e2Bufr1_RX, iBufr1, theType, sProc,
87       &                theTag1, MPI_COMM_MODEL, mpiStatus, mpiRc )       &                theTag1, MPI_COMM_MODEL, mpiStatus, mpiRc )
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22