Symbol Description Uses
barrierId barrier identificator of this instance of BAR_CHECK 7


File Line number Procedure Code
./eesupp/src/bar_check.F 33 BAR_CHECK 
      INTEGER barrierId
./eesupp/src/bar_check.F 45 BAR_CHECK 
      IF ( barrierId .NE. 0 ) THEN
./eesupp/src/bar_check.F 51 BAR_CHECK 
          barStatus(bi,bj) = barrierId
./eesupp/src/bar_check.F 60 BAR_CHECK 
          flag = flag .OR. (barStatus(bi,bj).NE.barrierId)
./eesupp/src/bar_check.F 65 BAR_CHECK 
     &        ' out of Sync when reaching barrierId=', barrierId
./eesupp/src/bar_check.F 68 BAR_CHECK 
         WRITE(0,*) myThid, barrierId, 'barStatus=', barStatus
./eesupp/src/bar_check.F 9 BAR_CHECK 
      SUBROUTINE BAR_CHECK( barrierId, myThid )