Symbol Description Uses
barStatus 5


File Line number Procedure Code
./eesupp/src/bar_check.F 26 BAR_CHECK 
      INTEGER barStatus(nSx,nSy)
./eesupp/src/bar_check.F 27 BAR_CHECK 
      COMMON / BAR_CHECH_SYNCHRO / barStatus
./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 68 BAR_CHECK 
         WRITE(0,*) myThid, barrierId, 'barStatus=', barStatus