/[MITgcm]/MITgcm/eesupp/inc/BARRIER.h
ViewVC logotype

Diff of /MITgcm/eesupp/inc/BARRIER.h

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:07 2005 UTC
# Line 37  C     |     need to check this. Line 37  C     |     need to check this.
37  C     *==========================================================*  C     *==========================================================*
38  CEOP  CEOP
39        COMMON / BARRIER_COMMON / key1,  key2,  key3,        COMMON / BARRIER_COMMON / key1,  key2,  key3,
40       &                          door1, door2, door3       &                          door1, door2, door3,
41         &                          bCount
42        INTEGER key1(lShare4,MAX_NO_THREADS)        INTEGER key1(lShare4,MAX_NO_THREADS)
43        INTEGER key2(lShare4,MAX_NO_THREADS)        INTEGER key2(lShare4,MAX_NO_THREADS)
44        INTEGER key3(lShare4,MAX_NO_THREADS)        INTEGER key3(lShare4,MAX_NO_THREADS)
# Line 52  CEOP Line 53  CEOP
53        PARAMETER ( OPEN = 1 )        PARAMETER ( OPEN = 1 )
54        INTEGER SHUT        INTEGER SHUT
55        PARAMETER ( SHUT = 0 )        PARAMETER ( SHUT = 0 )
56          INTEGER bCount(MAX_NO_THREADS)
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22