/[MITgcm]/MITgcm/eesupp/src/barrier.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/barrier.F

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

revision 1.9 by cnh, Fri Sep 21 03:54:34 2001 UTC revision 1.10 by adcroft, Tue May 13 17:23:56 2003 UTC
# Line 154  C     ENDIF Line 154  C     ENDIF
154  CcnhDebugEnds  CcnhDebugEnds
155    
156  C--   I can now shut door3 because I know everyone has reached  C--   I can now shut door3 because I know everyone has reached
157  C--   door1. I can't shut door1 because I don't know if everyone  C--   door1. I can not shut door1 because I do not know if everyone
158  C--   has "gone" through the door yet. Nobody has yet reached  C--   has "gone" through the door yet. Nobody has yet reached
159  C--   door3 because they have to go through door2 first.  C--   door3 because they have to go through door2 first.
160        IF ( myThid .EQ. 1 ) THEN        IF ( myThid .EQ. 1 ) THEN
# Line 195  C--   Invalidate keys for door2 here as Line 195  C--   Invalidate keys for door2 here as
195        key2(1,myThid) = INVALID        key2(1,myThid) = INVALID
196    
197  C--   I can now shut door1 because I know everyone has reached  C--   I can now shut door1 because I know everyone has reached
198  C--   door2. I can't shut door2 because I don't know if everyone  C--   door2. I can not shut door2 because I do not know if everyone
199  C--   has "gone" through the door yet. Nobody has yet reached  C--   has "gone" through the door yet. Nobody has yet reached
200  C--   door1 because they have to go through door3 first.  C--   door1 because they have to go through door3 first.
201        IF ( myThid .EQ. 1 ) THEN        IF ( myThid .EQ. 1 ) THEN
# Line 231  C--   Invalidate keys for door3 here as Line 231  C--   Invalidate keys for door3 here as
231        key3(1,myThid) = INVALID        key3(1,myThid) = INVALID
232    
233  C--   I can now shut door2 because I know everyone has reached  C--   I can now shut door2 because I know everyone has reached
234  C--   door3. I can't shut door3 because I don't know if everyone  C--   door3. I can not shut door3 because I do not know if everyone
235  C--   has "gone" through the door yet. Nobody has yet reached  C--   has "gone" through the door yet. Nobody has yet reached
236  C--   door2 because they have to go through door1 first.  C--   door2 because they have to go through door1 first.
237        IF ( myThid .EQ. 1 ) THEN        IF ( myThid .EQ. 1 ) THEN
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22