/[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.1 by cnh, Wed Apr 22 19:15:30 1998 UTC revision 1.3 by cnh, Wed Jun 10 17:05:59 1998 UTC
# Line 1  Line 1 
1  C $Id$  C $Header$
2    
3  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
4    
# Line 75  C     I     - Loop counter Line 75  C     I     - Loop counter
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
# Line 203  C--   door2 because they have to go thro Line 201  C--   door2 because they have to go thro
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
208        END        END
   
 C $Id$  
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22