| File |
Line number |
Procedure |
Code |
|
./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 |
114 |
GSUM_R8 |
CALL FOOL_THE_COMPILER( GSR8_value ) |
|
./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 |
127 |
GSUM_R8 |
CALL FOOL_THE_COMPILER( GSR8_value ) |
|
./eesupp/src/gsum.F |
130 |
GSUM_R8 |
IF ( GSR8_value(curLev,I) .NE. _NOT_SET_ ) nDone = nDone+1 |
|
./eesupp/src/gsum.F |
135 |
GSUM_R8 |
CALL FOOL_THE_COMPILER( GSR8_value ) |
|
./eesupp/src/gsum.F |
136 |
GSUM_R8 |
GSR8_value(prevLev,1) = _NOT_SET_ |
|
./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 |
28 |
GSUM_R8_INIT |
& GSR8_value |
|
./eesupp/src/gsum.F |
29 |
GSUM_R8_INIT |
Real*8 GSR8_value(lShare8,MAX_NO_THREADS) |
|
./eesupp/src/gsum.F |
45 |
GSUM_R8_INIT |
GSR8_value(I,myThid) = _NOT_SET_ |
|
./eesupp/src/gsum.F |
71 |
GSUM_R8 |
& GSR8_value |
|
./eesupp/src/gsum.F |
72 |
GSUM_R8 |
Real*8 GSR8_value(lShare8,MAX_NO_THREADS) |