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

Diff of /MITgcm/pkg/exch2/exch2_recv_rx1.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 77  C     between source and target tile Line 77  C     between source and target tile
77        IF ( commSetting .EQ. 'M' ) THEN        IF ( commSetting .EQ. 'M' ) THEN
78  C      Setup MPI stuff here  C      Setup MPI stuff here
79         theTag =  (soT-1)*W2_maxNeighbours + oNb         theTag =  (soT-1)*W2_maxNeighbours + oNb
80         tProc = exch2_tProc(thisTile)-1         tProc = W2_tileProc(thisTile)-1
81         sProc = exch2_tProc(soT)-1         sProc = W2_tileProc(soT)-1
82         theType = _MPI_TYPE_RX         theType = _MPI_TYPE_RX
83         CALL MPI_Recv( e2Bufr1_RX, iBufr, theType, sProc,         CALL MPI_Recv( e2Bufr1_RX, iBufr, theType, sProc,
84       &                theTag, MPI_COMM_MODEL, mpiStatus, mpiRc )       &                theTag, 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