/[MITgcm]/MITgcm/eesupp/src/bar2.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/bar2.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by edhill, Sat Mar 27 03:51:50 2004 UTC revision 1.6 by cnh, Mon Nov 7 18:16:08 2005 UTC
# Line 102  C                  times barrier code lo Line 102  C                  times barrier code lo
102        INTEGER spinCount        INTEGER spinCount
103  CEOP  CEOP
104    
105    #ifdef USE_OMP_THREADING
106    C$OMP BARRIER
107          BAR2_barrierCount(1,myThid) = BAR2_barrierCount(1,myThid)+1
108    Cdbg C$OMP BARRIER
109    Cdbg       DO I = 2, nThreads
110    Cdbg        IF ( BAR2_barrierCount(1,I) .NE. BAR2_barrierCount(1,1) ) THEN
111    Cdbg         PRINT *, BAR2_barrierCount(1,1:nThreads)
112    Cdbg         CALL SYSTEM('sleep 1')
113    Cdbg         PRINT *, BAR2_barrierCount(1,1:nThreads)
114    Cdbg         Stop ' bar2 OUT OF SYNC '
115    Cdbg        ENDIF
116    Cdbg       ENDDO
117    Cdbg C$OMP BARRIER
118          RETURN
119    #endif
120    
121  C  C
122        spinCount = 0        spinCount = 0
123  C  C
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22