/[MITgcm]/MITgcm/eesupp/src/exch_rx_recv_get_x.template
ViewVC logotype

Diff of /MITgcm/eesupp/src/exch_rx_recv_get_x.template

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

revision 1.2 by cnh, Fri Sep 21 03:55:50 2001 UTC revision 1.4 by jmc, Thu Sep 2 14:02:50 2004 UTC
# Line 109  C--   iii. Set data read flag + memory s Line 109  C--   iii. Set data read flag + memory s
109  #endif  #endif
110           theProc = tilePidW(bi,bj)           theProc = tilePidW(bi,bj)
111           theTag  = _tileTagRecvW(bi,bj)           theTag  = _tileTagRecvW(bi,bj)
112           theType = MPI_DOUBLE_PRECISION           theType = _MPI_TYPE_RX
113           theSize = sNy*exchWidthX*myNz           theSize = sNy*exchWidthX*myNz
114           CALL MPI_Recv( westRecvBuf_RX(1,eBl,bi,bj), theSize, theType,           CALL MPI_Recv( westRecvBuf_RX(1,eBl,bi,bj), theSize, theType,
115       &                  theProc, theTag, MPI_COMM_MODEL,       &                  theProc, theTag, MPI_COMM_MODEL,
# Line 126  C--   iii. Set data read flag + memory s Line 126  C--   iii. Set data read flag + memory s
126  #endif  #endif
127           theProc = tilePidE(bi,bj)           theProc = tilePidE(bi,bj)
128           theTag  = _tileTagRecvE(bi,bj)           theTag  = _tileTagRecvE(bi,bj)
129           theType = MPI_DOUBLE_PRECISION           theType = _MPI_TYPE_RX
130           theSize = sNy*exchWidthX*myNz           theSize = sNy*exchWidthX*myNz
131           CALL MPI_Recv( eastRecvBuf_RX(1,eBl,bi,bj), theSize, theType,           CALL MPI_Recv( eastRecvBuf_RX(1,eBl,bi,bj), theSize, theType,
132       &                  theProc, theTag, MPI_COMM_MODEL,       &                  theProc, theTag, MPI_COMM_MODEL,
# Line 153  C        i.e. we only lock waiting for d Line 153  C        i.e. we only lock waiting for d
153           westCommMode = _tileCommModeW(bi,bj)           westCommMode = _tileCommModeW(bi,bj)
154           eastCommMode = _tileCommModeE(bi,bj)           eastCommMode = _tileCommModeE(bi,bj)
155     10    CONTINUE     10    CONTINUE
156            CALL FOOL_THE_COMPILER            CALL FOOL_THE_COMPILER( spinCount )
157            spinCount = spinCount+1            spinCount = spinCount+1
158  C         IF ( myThid .EQ. 1 .AND. spinCount .GT. _EXCH_SPIN_LIMIT ) THEN  C         IF ( myThid .EQ. 1 .AND. spinCount .GT. _EXCH_SPIN_LIMIT ) THEN
159  C          WRITE(*,*) ' eBl = ', ebl  C          WRITE(*,*) ' eBl = ', ebl
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22