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 |
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 |
|
|
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 |
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 |