75 |
INTEGER I |
INTEGER I |
76 |
|
|
77 |
CcnhDebugStarts |
CcnhDebugStarts |
78 |
C IF ( myThid .EQ. 1 ) THEN |
C WRITE(myThid,*) ' Barrier entered ' |
|
C WRITE(0,*) ' Barrier entered ' |
|
|
C ENDIF |
|
79 |
CcnhDebugEnds |
CcnhDebugEnds |
80 |
|
|
81 |
C-- Check that thread number is expected range |
C-- Check that thread number is expected range |
201 |
ENDIF |
ENDIF |
202 |
|
|
203 |
CcnhDebugStarts |
CcnhDebugStarts |
204 |
C IF ( myThid .EQ. 1 ) THEN |
C WRITE(myThid,*) ' Barrier exited ' |
|
C WRITE(0,*) ' Barrier exited ' |
|
|
C ENDIF |
|
205 |
CcnhDebugEnds |
CcnhDebugEnds |
206 |
|
|
207 |
RETURN |
RETURN |