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

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

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

revision 1.7 by cnh, Fri Nov 11 03:01:26 2005 UTC revision 1.8 by jmc, Wed Feb 20 20:18:59 2008 UTC
# Line 206  C        i.e. we only lock waiting for d Line 206  C        i.e. we only lock waiting for d
206  C         IF ( myThid .EQ. 1 .AND. spinCount .GT. _EXCH_SPIN_LIMIT ) THEN  C         IF ( myThid .EQ. 1 .AND. spinCount .GT. _EXCH_SPIN_LIMIT ) THEN
207  C          STOP ' S/R EXCH_RECV_GET_Y: spinCount .GT. _EXCH_SPIN_LIMIT'  C          STOP ' S/R EXCH_RECV_GET_Y: spinCount .GT. _EXCH_SPIN_LIMIT'
208  C         ENDIF  C         ENDIF
209            IF ( southRecvAck(eBl,bi,bj) .EQ. 0. ) GOTO 10            IF ( southRecvAck(eBl,bi,bj) .EQ. 0 ) GOTO 10
210            IF ( northRecvAck(eBl,bi,bj) .EQ. 0. ) GOTO 10            IF ( northRecvAck(eBl,bi,bj) .EQ. 0 ) GOTO 10
211  C        Clear requests  C        Clear requests
212           southRecvAck(eBl,bi,bj) = 0.           southRecvAck(eBl,bi,bj) = 0
213           northRecvAck(eBl,bi,bj) = 0.           northRecvAck(eBl,bi,bj) = 0
214  C        Update statistics  C        Update statistics
215           IF ( exchCollectStatistics ) THEN           IF ( exchCollectStatistics ) THEN
216            exchRecvYExchCount(1,bi,bj) = exchRecvYExchCount(1,bi,bj)+1            exchRecvYExchCount(1,bi,bj) = exchRecvYExchCount(1,bi,bj)+1
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22