| File |
Line number |
Procedure |
Code |
|
./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 |
112 |
GSUM_R8 |
CALL FOOL_THE_COMPILER_R8( GSR8_value(1,1) ) |
|
./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 |
125 |
GSUM_R8 |
CALL FOOL_THE_COMPILER_R8( GSR8_value(1,1) ) |
|
./eesupp/src/gsum.F |
128 |
GSUM_R8 |
IF ( GSR8_value(curLev,I) .NE. _NOT_SET_ ) nDone = nDone+1 |
|
./eesupp/src/gsum.F |
133 |
GSUM_R8 |
CALL FOOL_THE_COMPILER_R8( GSR8_value(1,1) ) |
|
./eesupp/src/gsum.F |
134 |
GSUM_R8 |
GSR8_value(prevLev,1) = _NOT_SET_ |
|
./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 |
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) |