| File |
Line number |
Procedure |
Code |
|
./model/src/cg2d.F |
164 |
CG2D |
sumRHStile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
183 |
CG2D |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj) |
|
./model/src/cg2d.F |
195 |
CG2D |
CALL GLOBAL_SUM_TILE_RL( sumRHStile, sumRHS, myThid ) |
|
./model/src/cg2d.F |
99 |
CG2D |
_RL sumRHS, sumRHStile(nSx,nSy) |
|
./model/src/cg2d_ex0.F |
156 |
CG2D_EX0 |
sumRHStile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_ex0.F |
172 |
CG2D_EX0 |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
179 |
CG2D_EX0 |
sumRHS = MAX( ABS(sumRHStile(bi,bj)), sumRHS ) |
|
./model/src/cg2d_ex0.F |
92 |
CG2D_EX0 |
_RL sumRHS, sumRHStile(nSx,nSy) |
|
./model/src/cg2d_nsa.F |
109 |
CG2D_NSA |
_RL sumRHS, sumRHStile(nSx,nSy) |
|
./model/src/cg2d_nsa.F |
189 |
CG2D_NSA |
sumRHStile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_nsa.F |
206 |
CG2D_NSA |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
215 |
CG2D_NSA |
CALL GLOBAL_SUM_TILE_RL( sumRHStile, sumRHS, myThid ) |
|
./model/src/cg2d_sr.F |
107 |
CG2D_SR |
_RL sumRHS, sumRHStile(nSx,nSy) |
|
./model/src/cg2d_sr.F |
169 |
CG2D_SR |
sumRHStile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
185 |
CG2D_SR |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
193 |
CG2D_SR |
CALL GLOBAL_SUM_TILE_RL( sumRHStile, sumRHS, myThid ) |
|
./model/src/cg3d.F |
106 |
CG3D |
_RL sumRHS, sumRHStile(nSx,nSy) |
|
./model/src/cg3d.F |
174 |
CG3D |
sumRHStile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d.F |
228 |
CG3D |
sumRHStile(bi,bj) = sumRHStile(bi,bj)+cg3d_b(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
240 |
CG3D |
CALL GLOBAL_SUM_TILE_RL( sumRHStile, sumRHS, myThid ) |
|
./model/src/cg3d_ex0.F |
167 |
CG3D_EX0 |
sumRHStile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
221 |
CG3D_EX0 |
sumRHStile(bi,bj) = sumRHStile(bi,bj)+cg3d_b(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
231 |
CG3D_EX0 |
sumRHS = MAX( ABS(sumRHStile(bi,bj)), sumRHS ) |
|
./model/src/cg3d_ex0.F |
98 |
CG3D_EX0 |
_RL sumRHS, sumRHStile(nSx,nSy) |
|
./pkg/diagnostics/diag_cg2d.F |
177 |
DIAG_CG2D |
sumRHStile(bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diag_cg2d.F |
190 |
DIAG_CG2D |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + b2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
202 |
DIAG_CG2D |
& CALL GLOBAL_SUM_TILE_RL( sumRHStile, sumRHS, myThid ) |
|
./pkg/diagnostics/diag_cg2d.F |
87 |
DIAG_CG2D |
_RL sumRHS, sumRHStile(nSx,nSy) |