File |
Line number |
Procedure |
Code |
./eesupp/src/global_sum_tile.F |
202 |
GLOBAL_SUM_TILE_RL |
sumMyPr = 0. |
./eesupp/src/global_sum_tile.F |
205 |
GLOBAL_SUM_TILE_RL |
sumMyPr = sumMyPr + shareBufGSR8(bi,bj) |
./eesupp/src/global_sum_tile.F |
210 |
GLOBAL_SUM_TILE_RL |
sumAllP = sumMyPr |
./eesupp/src/global_sum_tile.F |
214 |
GLOBAL_SUM_TILE_RL |
CALL MPI_ALLREDUCE(sumMyPr,sumAllP,1,MPI_DOUBLE_PRECISION, |
./eesupp/src/global_sum_tile.F |
70 |
GLOBAL_SUM_TILE_RL |
Real*8 sumMyPr |