3 |
#include "CPP_EEOPTIONS.h" |
#include "CPP_EEOPTIONS.h" |
4 |
|
|
5 |
SUBROUTINE BARRIER_INIT |
SUBROUTINE BARRIER_INIT |
6 |
|
|
7 |
|
#include "SIZE.h" |
8 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
9 |
#include "EESUPPORT.h" |
#include "EESUPPORT.h" |
10 |
#include "BARRIER.h" |
#include "BARRIER.h" |
62 |
C | stopping in these PANIC blocks then something is | |
C | stopping in these PANIC blocks then something is | |
63 |
C | wrong with your program and it needs to be fixed. | |
C | wrong with your program and it needs to be fixed. | |
64 |
C \==========================================================/ |
C \==========================================================/ |
65 |
|
|
66 |
|
#include "SIZE.h" |
67 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
68 |
#include "EESUPPORT.h" |
#include "EESUPPORT.h" |
69 |
#include "BARRIER.h" |
#include "BARRIER.h" |
79 |
INTEGER I |
INTEGER I |
80 |
|
|
81 |
CcnhDebugStarts |
CcnhDebugStarts |
82 |
C IF ( myThid .EQ. 1 ) THEN |
C WRITE(myThid,*) ' Barrier entered ' |
|
C WRITE(0,*) ' Barrier entered ' |
|
|
C ENDIF |
|
83 |
CcnhDebugEnds |
CcnhDebugEnds |
84 |
|
|
85 |
C-- Check that thread number is expected range |
C-- Check that thread number is expected range |
205 |
ENDIF |
ENDIF |
206 |
|
|
207 |
CcnhDebugStarts |
CcnhDebugStarts |
208 |
C IF ( myThid .EQ. 1 ) THEN |
C WRITE(myThid,*) ' Barrier exited ' |
|
C WRITE(0,*) ' Barrier exited ' |
|
|
C ENDIF |
|
209 |
CcnhDebugEnds |
CcnhDebugEnds |
210 |
|
|
211 |
RETURN |
RETURN |