/[MITgcm]/MITgcm/pkg/flt/exch_recv_get_vec.F
ViewVC logotype

Diff of /MITgcm/pkg/flt/exch_recv_get_vec.F

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

revision 1.6 by cnh, Thu Mar 26 22:21:11 2009 UTC revision 1.7 by jmc, Tue Aug 4 16:14:09 2009 UTC
# Line 168  C        i.e. we only lock waiting for d Line 168  C        i.e. we only lock waiting for d
168       &          westRecvAck(1,bi,bj), eastRecvAck(1,bi,bj), spinCount       &          westRecvAck(1,bi,bj), eastRecvAck(1,bi,bj), spinCount
169  #endif  #endif
170     10    CONTINUE     10    CONTINUE
171            CALL FOOL_THE_COMPILER            CALL FOOL_THE_COMPILER( spinCount )
172            spinCount = spinCount+1            spinCount = spinCount+1
173  #ifdef DBUG_EXCH_VEC  #ifdef DBUG_EXCH_VEC
174            write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj,            write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj,
# Line 348  C        i.e. we only lock waiting for d Line 348  C        i.e. we only lock waiting for d
348       &          southRecvAck(1,bi,bj), northRecvAck(1,bi,bj), spinCount       &          southRecvAck(1,bi,bj), northRecvAck(1,bi,bj), spinCount
349  #endif  #endif
350     10    CONTINUE     10    CONTINUE
351            CALL FOOL_THE_COMPILER            CALL FOOL_THE_COMPILER( spinCount )
352            spinCount = spinCount+1            spinCount = spinCount+1
353  #ifdef DBUG_EXCH_VEC  #ifdef DBUG_EXCH_VEC
354            write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj,            write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj,
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22