| File |
Line number |
Procedure |
Code |
|
./model/src/cg2d.F |
103 |
CG2D |
_RL localBuf(1:sNx,1:sNy,nSx,nSy) |
|
./model/src/cg2d.F |
202 |
CG2D |
localBuf(I,J,bi,bj) = cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
214 |
CG2D |
CALL GLOBAL_SUM_SINGLECPU_RL(localBuf, err, 0, 0, myThid) |
|
./model/src/cg2d.F |
267 |
CG2D |
localBuf(I,J,bi,bj) = |
|
./model/src/cg2d.F |
279 |
CG2D |
CALL GLOBAL_SUM_SINGLECPU_RL( localBuf,eta_qrN,0,0,myThid ) |
|
./model/src/cg2d.F |
332 |
CG2D |
localBuf(I,J,bi,bj) = cg2d_s(I,J,bi,bj)*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d.F |
342 |
CG2D |
CALL GLOBAL_SUM_SINGLECPU_RL(localBuf, alpha, 0, 0, myThid) |
|
./model/src/cg2d.F |
364 |
CG2D |
localBuf(I,J,bi,bj) = cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
375 |
CG2D |
CALL GLOBAL_SUM_SINGLECPU_RL(localBuf, err, 0, 0, myThid) |
|
./eesupp/src/global_sum_tile.F |
126 |
GLOBAL_SUM_TILE_RL |
CALL MPI_RECV (localBuf, lbuff, MPI_DOUBLE_PRECISION, |
|
./eesupp/src/global_sum_tile.F |
135 |
GLOBAL_SUM_TILE_RL |
globalBuf(biG,bjG) = localBuf(bi,bj) |
|
./eesupp/src/global_sum_tile.F |
61 |
GLOBAL_SUM_TILE_RL |
Real*8 localBuf (nSx,nSy) |