Symbol Description Uses
BAR2_level 13



File Line number Procedure Code
./eesupp/src/bar2.F 125 BAR2
       BAR2_level(1,myThid) = BAR2_level(1,myThid)+1
./eesupp/src/bar2.F 126 BAR2
       myLevel              = BAR2_level(1,myThid)
./eesupp/src/bar2.F 128 BAR2
        IF ( BAR2_level(1,1) .EQ. myLevel  ) GOTO 11
./eesupp/src/bar2.F 130 BAR2
        CALL FOOL_THE_COMPILER( BAR2_level(1,1) )
./eesupp/src/bar2.F 136 BAR2
       myLevel = BAR2_level(1,1)
./eesupp/src/bar2.F 138 BAR2
        CALL FOOL_THE_COMPILER( BAR2_level(1,1) )
./eesupp/src/bar2.F 141 BAR2
         IF ( BAR2_level(1,1) .EQ. BAR2_level(1,I)-1 ) nDone = nDone+1
./eesupp/src/bar2.F 146 BAR2
       BAR2_level(1,1) = myLevel+1
./eesupp/src/bar2.F 42 BAR2_INIT
       BAR2_level(I,myThid) = 0
./eesupp/inc/BAR2.h 41 NO PROCEDURE
     &  BAR2_level,
./eesupp/inc/BAR2.h 44 NO PROCEDURE
      INTEGER BAR2_level(cacheLineSize/4,MAX_NO_THREADS)