| Symbol | Description | Uses |
| curLev | Cyclic global sum buffer levels. | 11 |
| File | Line number | Procedure | Code |
| ./eesupp/src/gsum.F | 110 | GSUM_R8 |
curLev = GSR8_level |
| ./eesupp/src/gsum.F | 111 | GSUM_R8 |
GSR8_value(curLev,myThid) = myPhi |
| ./eesupp/src/gsum.F | 113 | GSUM_R8 |
IF ( GSR8_value(curLev,1) .NE. _NOT_SET_ ) GOTO 11 |
| ./eesupp/src/gsum.F | 117 | GSUM_R8 |
GSR8_value(curLev,myThid) = _NOT_SET_ |
| ./eesupp/src/gsum.F | 118 | GSUM_R8 |
answer = GSR8_value(curLev,1) |
| ./eesupp/src/gsum.F | 122 | GSUM_R8 |
curLev = GSR8_level |
| ./eesupp/src/gsum.F | 123 | GSUM_R8 |
prevLev = curLev+1 |
| ./eesupp/src/gsum.F | 130 | GSUM_R8 |
IF ( GSR8_value(curLev,I) .NE. _NOT_SET_ ) nDone = nDone+1 |
| ./eesupp/src/gsum.F | 140 | GSUM_R8 |
answer = answer+GSR8_value(curLev,I) |
| ./eesupp/src/gsum.F | 156 | GSUM_R8 |
GSR8_value(curLev,1) = answer |
| ./eesupp/src/gsum.F | 98 | GSUM_R8 |
INTEGER curLev, prevLev |