/[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.7 by cnh, Sun Feb 4 14:38:42 2001 UTC revision 1.8 by heimbach, Tue Apr 10 22:35:24 2001 UTC
# Line 86  CcnhDebugEnds Line 86  CcnhDebugEnds
86    
87  C--   Check that thread number is expected range  C--   Check that thread number is expected range
88        IF ( myThid .LT. 1 .OR. myThid .GT. nThreads ) THEN        IF ( myThid .LT. 1 .OR. myThid .GT. nThreads ) THEN
89         WRITE(0,*) '!!!!!!! PANIC !!!!!!! CATASTROPHIC ERROR'         WRITE(*,*) '!!!!!!! PANIC !!!!!!! CATASTROPHIC ERROR'
90         WRITE(0,*) '!!!!!!! PANIC !!!!!!! in S/R BARRIER  myThid = ',         WRITE(*,*) '!!!!!!! PANIC !!!!!!! in S/R BARRIER  myThid = ',
91       &  myThid, ' nThreads = ', nThreads       &  myThid, ' nThreads = ', nThreads
92         STOP 'ABNROMAL END: S/R BARRIER'         STOP 'ABNROMAL END: S/R BARRIER'
93        ENDIF        ENDIF
94    
95  C--   When every threads key1 is valid thread 1 will open door1.  C--   When every threads key1 is valid thread 1 will open door1.
96        IF ( key1(1,myThid) .EQ. VALID ) THEN        IF ( key1(1,myThid) .EQ. VALID ) THEN
97         WRITE(0,*) '!!!!!!! PANIC !!!!!!! CATASTROPHIC ERROR'         WRITE(*,*) '!!!!!!! PANIC !!!!!!! CATASTROPHIC ERROR'
98         WRITE(0,*) '!!!!!!! PANIC !!!!!!! in S/R BARRIER  myThid = ',         WRITE(*,*) '!!!!!!! PANIC !!!!!!! in S/R BARRIER  myThid = ',
99       &  myThid, ' key1 already validated'       &  myThid, ' key1 already validated'
100         STOP 'ABNROMAL END: S/R BARRIER'         STOP 'ABNROMAL END: S/R BARRIER'
101        ENDIF        ENDIF
# Line 120  C--   Invalidate keys for door1 here as Line 120  C--   Invalidate keys for door1 here as
120    
121  CcnhDebugStarts  CcnhDebugStarts
122  C     IF ( myThid .EQ. 1 ) THEN  C     IF ( myThid .EQ. 1 ) THEN
123  C      WRITE(0,*) ' DOOR1 Opened '  C      WRITE(*,*) ' DOOR1 Opened '
124  C     ENDIF  C     ENDIF
125  CcnhDebugEnds  CcnhDebugEnds
126    
# Line 140  C     partial store, total store) the va Line 140  C     partial store, total store) the va
140  C     might need to be set to invalid by thread 1.  C     might need to be set to invalid by thread 1.
141  C      C    
142        IF ( key2(1,myThid) .EQ. VALID ) THEN        IF ( key2(1,myThid) .EQ. VALID ) THEN
143         WRITE(0,*) '!!!!!!! PANIC !!!!!!! CATASTROPHIC ERROR'         WRITE(*,*) '!!!!!!! PANIC !!!!!!! CATASTROPHIC ERROR'
144         WRITE(0,*) '!!!!!!! PANIC !!!!!!! in S/R BARRIER  myThid = ',         WRITE(*,*) '!!!!!!! PANIC !!!!!!! in S/R BARRIER  myThid = ',
145       &  myThid, ' key2 already validated'       &  myThid, ' key2 already validated'
146         STOP 'ABNROMAL END: S/R BARRIER'         STOP 'ABNROMAL END: S/R BARRIER'
147        ENDIF        ENDIF
# Line 176  C--   door1 because they have to go thro Line 176  C--   door1 because they have to go thro
176            
177  C--   When every threads key3 is valid thread 1 will open door3.  C--   When every threads key3 is valid thread 1 will open door3.
178        IF ( key3(1,myThid) .EQ. VALID ) THEN        IF ( key3(1,myThid) .EQ. VALID ) THEN
179         WRITE(0,*) '!!!!!!! PANIC !!!!!!! CATASTROPHIC ERROR'         WRITE(*,*) '!!!!!!! PANIC !!!!!!! CATASTROPHIC ERROR'
180         WRITE(0,*) '!!!!!!! PANIC !!!!!!! in S/R BARRIER  myThid = ',         WRITE(*,*) '!!!!!!! PANIC !!!!!!! in S/R BARRIER  myThid = ',
181       &  myThid, ' key3 already validated'       &  myThid, ' key3 already validated'
182         STOP 'ABNROMAL END: S/R BARRIER'         STOP 'ABNROMAL END: S/R BARRIER'
183        ENDIF        ENDIF
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22