| Symbol | Description | Uses |
| myLevel | Temp. to hold active barrier level | 5 |
| File | Line number | Procedure | Code |
| ./eesupp/src/bar2.F | 111 | BAR2 |
myLevel = BAR2_level(1,myThid) |
| ./eesupp/src/bar2.F | 113 | BAR2 |
IF ( BAR2_level(1,1) .EQ. myLevel ) GOTO 11 |
| ./eesupp/src/bar2.F | 121 | BAR2 |
myLevel = BAR2_level(1,1) |
| ./eesupp/src/bar2.F | 131 | BAR2 |
BAR2_level(1,1) = myLevel+1 |
| ./eesupp/src/bar2.F | 99 | BAR2 |
INTEGER myLevel |