| File |
Line number |
Procedure |
Code |
|
./model/src/cg2d.F |
104 |
CG2D |
_RL localBuf(1:sNx,1:sNy,nSx,nSy) |
|
./model/src/cg2d.F |
179 |
CG2D |
localBuf(i,j,bi,bj) = cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d.F |
191 |
CG2D |
CALL GLOBAL_SUM_SINGLECPU_RL(localBuf, err_sq, 0, 0, myThid) |
|
./model/src/cg2d.F |
238 |
CG2D |
localBuf(i,j,bi,bj) = |
|
./model/src/cg2d.F |
250 |
CG2D |
CALL GLOBAL_SUM_SINGLECPU_RL( localBuf,eta_qrN,0,0,myThid ) |
|
./model/src/cg2d.F |
292 |
CG2D |
localBuf(i,j,bi,bj) = cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d.F |
302 |
CG2D |
CALL GLOBAL_SUM_SINGLECPU_RL(localBuf, alpha, 0, 0, myThid) |
|
./model/src/cg2d.F |
322 |
CG2D |
localBuf(i,j,bi,bj) = cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj) |
|
./model/src/cg2d.F |
334 |
CG2D |
CALL GLOBAL_SUM_SINGLECPU_RL(localBuf, err_sq, 0, 0, myThid) |
|
./eesupp/src/global_sum_tile.F |
130 |
GLOBAL_SUM_TILE_RL |
CALL MPI_RECV (localBuf, lbuff, MPI_DOUBLE_PRECISION, |
|
./eesupp/src/global_sum_tile.F |
138 |
GLOBAL_SUM_TILE_RL |
globalBuf(biG,bjG) = localBuf(bi,bj) |
|
./eesupp/src/global_sum_tile.F |
170 |
GLOBAL_SUM_TILE_RL |
localBuf(biG,bjG) = 0. |
|
./eesupp/src/global_sum_tile.F |
179 |
GLOBAL_SUM_TILE_RL |
localBuf(biG,bjG) = shareBufGSR8(bi,bj) |
|
./eesupp/src/global_sum_tile.F |
185 |
GLOBAL_SUM_TILE_RL |
CALL MPI_ALLREDUCE( localBuf, globalBuf, lbuff, |
|
./eesupp/src/global_sum_tile.F |
61 |
GLOBAL_SUM_TILE_RL |
Real*8 localBuf (nSx,nSy) |
|
./eesupp/src/global_sum_tile.F |
65 |
GLOBAL_SUM_TILE_RL |
Real*8 localBuf (nSx*nPx,nSy*nPy) |