| Symbol | Description | Uses |
| curLev | Cyclic global sum buffer levels. | 11 |
| File | Line number | Procedure | Code |
| ./eesupp/src/gsum.F | 108 | GSUM_R8 |
curLev = GSR8_level |
| ./eesupp/src/gsum.F | 109 | GSUM_R8 |
GSR8_value(curLev,myThid) = myPhi |
| ./eesupp/src/gsum.F | 111 | GSUM_R8 |
IF ( GSR8_value(curLev,1) .NE. _NOT_SET_ ) GOTO 11 |
| ./eesupp/src/gsum.F | 115 | GSUM_R8 |
GSR8_value(curLev,myThid) = _NOT_SET_ |
| ./eesupp/src/gsum.F | 116 | GSUM_R8 |
answer = GSR8_value(curLev,1) |
| ./eesupp/src/gsum.F | 120 | GSUM_R8 |
curLev = GSR8_level |
| ./eesupp/src/gsum.F | 121 | GSUM_R8 |
prevLev = curLev+1 |
| ./eesupp/src/gsum.F | 128 | GSUM_R8 |
IF ( GSR8_value(curLev,I) .NE. _NOT_SET_ ) nDone = nDone+1 |
| ./eesupp/src/gsum.F | 138 | GSUM_R8 |
answer = answer+GSR8_value(curLev,I) |
| ./eesupp/src/gsum.F | 150 | GSUM_R8 |
GSR8_value(curLev,1) = answer |
| ./eesupp/src/gsum.F | 97 | GSUM_R8 |
INTEGER curLev, prevLev |