File |
Line number |
Procedure |
Code |
./pkg/exch2/w2_cumulsum_z_tile.F |
140 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(1,tN) = loc2Buf(1,bi,bj) |
./pkg/exch2/w2_cumulsum_z_tile.F |
141 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(2,tN) = loc2Buf(2,bi,bj) |
./pkg/exch2/w2_cumulsum_z_tile.F |
159 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(1,tN) = shareBufCS2_R8(1,bi,bj) |
./pkg/exch2/w2_cumulsum_z_tile.F |
160 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(2,tN) = shareBufCS2_R8(2,bi,bj) |
./pkg/exch2/w2_cumulsum_z_tile.F |
168 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(3,tN) = 0. |
./pkg/exch2/w2_cumulsum_z_tile.F |
170 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(3,tN) = globalBuf(3,tN) |
./pkg/exch2/w2_cumulsum_z_tile.F |
171 |
W2_CUMULSUM_Z_TILE_RL |
& + W2_cumSum_tiles(1,tS,tN)*globalBuf(1,tS) |
./pkg/exch2/w2_cumulsum_z_tile.F |
172 |
W2_CUMULSUM_Z_TILE_RL |
& + W2_cumSum_tiles(2,tS,tN)*globalBuf(2,tS) |
./pkg/exch2/w2_cumulsum_z_tile.F |
194 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(3,tN+1) = globalBuf(3,tN) + globalBuf(1,tN) |
./pkg/exch2/w2_cumulsum_z_tile.F |
200 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(3,tN+nbTx) = globalBuf(3,tN) + globalBuf(2,tN) |
./pkg/exch2/w2_cumulsum_z_tile.F |
207 |
W2_CUMULSUM_Z_TILE_RL |
facetXYSum(1,j) = facetXYSum(1,j) + globalBuf(1,tN) |
./pkg/exch2/w2_cumulsum_z_tile.F |
211 |
W2_CUMULSUM_Z_TILE_RL |
facetXYSum(2,j) = facetXYSum(2,j) + globalBuf(2,tN) |
./pkg/exch2/w2_cumulsum_z_tile.F |
230 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(3,tN) = globalBuf(3,tN) + facet_CSum(j) |
./pkg/exch2/w2_cumulsum_z_tile.F |
237 |
W2_CUMULSUM_Z_TILE_RL |
& psiLoc(1) = globalBuf(3,W2_tMC1) + globalBuf(2,W2_tMC1) |
./pkg/exch2/w2_cumulsum_z_tile.F |
239 |
W2_CUMULSUM_Z_TILE_RL |
& psiLoc(2) = globalBuf(3,W2_tMC2) + globalBuf(1,W2_tMC2) |
./pkg/exch2/w2_cumulsum_z_tile.F |
245 |
W2_CUMULSUM_Z_TILE_RL |
shareBufCS1_R8(bi,bj) = globalBuf(3,tN) |
./pkg/exch2/w2_cumulsum_z_tile.F |
258 |
W2_CUMULSUM_Z_TILE_RL |
loc1Buf(bi,bj) = globalBuf(3,tN) |
./pkg/exch2/w2_cumulsum_z_tile.F |
64 |
W2_CUMULSUM_Z_TILE_RL |
Real*8 globalBuf(3,W2_maxNbTiles) |
./pkg/exch2/w2_cumulsum_z_tile.F |
84 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(1,tN) = 0. |
./pkg/exch2/w2_cumulsum_z_tile.F |
85 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(2,tN) = 0. |
./pkg/exch2/w2_cumulsum_z_tile.F |
86 |
W2_CUMULSUM_Z_TILE_RL |
globalBuf(3,tN) = 0. |
./eesupp/src/cumulsum_z_tile.F |
124 |
CUMULSUM_Z_TILE_RL |
globalBuf(1,biG,bjG) = shareBufCS2_R8(1,bi,bj) |
./eesupp/src/cumulsum_z_tile.F |
125 |
CUMULSUM_Z_TILE_RL |
globalBuf(2,biG,bjG) = shareBufCS2_R8(2,bi,bj) |
./eesupp/src/cumulsum_z_tile.F |
144 |
CUMULSUM_Z_TILE_RL |
globalBuf(1,biG,bjG) = loc2Buf(1,bi,bj) |
./eesupp/src/cumulsum_z_tile.F |
145 |
CUMULSUM_Z_TILE_RL |
globalBuf(2,biG,bjG) = loc2Buf(2,bi,bj) |
./eesupp/src/cumulsum_z_tile.F |
151 |
CUMULSUM_Z_TILE_RL |
globalBuf(3,1,1) = 0. |
./eesupp/src/cumulsum_z_tile.F |
154 |
CUMULSUM_Z_TILE_RL |
globalBuf(3,1+bi,bj) = globalBuf(3,bi,bj) |
./eesupp/src/cumulsum_z_tile.F |
155 |
CUMULSUM_Z_TILE_RL |
& + globalBuf(1,bi,bj) |
./eesupp/src/cumulsum_z_tile.F |
159 |
CUMULSUM_Z_TILE_RL |
globalBuf(3,bi,1+bj) = globalBuf(3,bi,bj) |
./eesupp/src/cumulsum_z_tile.F |
160 |
CUMULSUM_Z_TILE_RL |
& + globalBuf(2,bi,bj) |
./eesupp/src/cumulsum_z_tile.F |
170 |
CUMULSUM_Z_TILE_RL |
shareBufCS1_R8(bi,bj) = globalBuf(3,biG,bjG) |
./eesupp/src/cumulsum_z_tile.F |
182 |
CUMULSUM_Z_TILE_RL |
loc1Buf(bi,bj) = globalBuf(3,biG,bjG) |
./eesupp/src/cumulsum_z_tile.F |
68 |
CUMULSUM_Z_TILE_RL |
Real*8 globalBuf(3,nSx*nPx,nSy*nPy) |
./eesupp/src/global_sum_tile.F |
119 |
GLOBAL_SUM_TILE_RL |
globalBuf(biG,bjG) = shareBufGSR8(bi,bj) |
./eesupp/src/global_sum_tile.F |
138 |
GLOBAL_SUM_TILE_RL |
globalBuf(biG,bjG) = localBuf(bi,bj) |
./eesupp/src/global_sum_tile.F |
148 |
GLOBAL_SUM_TILE_RL |
sumAllP = sumAllP + globalBuf(biG,bjG) |
./eesupp/src/global_sum_tile.F |
185 |
GLOBAL_SUM_TILE_RL |
CALL MPI_ALLREDUCE( localBuf, globalBuf, lbuff, |
./eesupp/src/global_sum_tile.F |
192 |
GLOBAL_SUM_TILE_RL |
sumAllP = sumAllP + globalBuf(biG,bjG) |
./eesupp/src/global_sum_tile.F |
62 |
GLOBAL_SUM_TILE_RL |
Real*8 globalBuf(nSx*nPx,nSy*nPy) |
./eesupp/src/global_sum_tile.F |
66 |
GLOBAL_SUM_TILE_RL |
Real*8 globalBuf(nSx*nPx,nSy*nPy) |