| File |
Line number |
Procedure |
Code |
|
./model/src/cg2d.F |
165 |
CG2D |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
181 |
CG2D |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d.F |
194 |
CG2D |
CALL GLOBAL_SUM_TILE_RL( errTile, err_sq, myThid ) |
|
./model/src/cg2d.F |
316 |
CG2D |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
324 |
CG2D |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d.F |
336 |
CG2D |
CALL GLOBAL_SUM_TILE_RL( errTile, err_sq, myThid ) |
|
./model/src/cg2d.F |
94 |
CG2D |
_RL err_sq, errTile(nSx,nSy) |
|
./model/src/cg2d_ex0.F |
157 |
CG2D_EX0 |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_ex0.F |
170 |
CG2D_EX0 |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_ex0.F |
176 |
CG2D_EX0 |
minResTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_ex0.F |
178 |
CG2D_EX0 |
err_sq = MAX( errTile(bi,bj), err_sq ) |
|
./model/src/cg2d_ex0.F |
206 |
CG2D_EX0 |
IF ( errTile(bi,bj).GE.cg2dTolerance_sq ) THEN |
|
./model/src/cg2d_ex0.F |
265 |
CG2D_EX0 |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_ex0.F |
270 |
CG2D_EX0 |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_ex0.F |
279 |
CG2D_EX0 |
& bj, '): iter=', it2d, ' ; resid.= ', SQRT(errTile(bi,bj)) |
|
./model/src/cg2d_ex0.F |
284 |
CG2D_EX0 |
IF ( errTile(bi,bj) .GE. cg2dTolerance_sq .AND. |
|
./model/src/cg2d_ex0.F |
285 |
CG2D_EX0 |
& errTile(bi,bj) .LT. minResTile(bi,bj) ) THEN |
|
./model/src/cg2d_ex0.F |
287 |
CG2D_EX0 |
minResTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_ex0.F |
302 |
CG2D_EX0 |
err_sq = MAX( errTile(bi,bj), err_sq ) |
|
./model/src/cg2d_ex0.F |
318 |
CG2D_EX0 |
IF ( errTile(bi,bj) .GT. minResTile(bi,bj) ) THEN |
|
./model/src/cg2d_ex0.F |
353 |
CG2D_EX0 |
minResidualSq = MIN( errTile(bi,bj), minResidualSq ) |
|
./model/src/cg2d_ex0.F |
87 |
CG2D_EX0 |
_RL err_sq, errTile(nSx,nSy) |
|
./model/src/cg2d_nsa.F |
104 |
CG2D_NSA |
_RL err_sq, errTile(nSx,nSy) |
|
./model/src/cg2d_nsa.F |
188 |
CG2D_NSA |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_nsa.F |
204 |
CG2D_NSA |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_nsa.F |
214 |
CG2D_NSA |
CALL GLOBAL_SUM_TILE_RL( errTile, err_sq, myThid ) |
|
./model/src/cg2d_nsa.F |
338 |
CG2D_NSA |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_nsa.F |
343 |
CG2D_NSA |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_nsa.F |
351 |
CG2D_NSA |
CALL GLOBAL_SUM_TILE_RL( errTile, err_sq, myThid ) |
|
./model/src/cg2d_sr.F |
100 |
CG2D_SR |
_RL err_sq, errTile(nSx,nSy) |
|
./model/src/cg2d_sr.F |
170 |
CG2D_SR |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
183 |
CG2D_SR |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_sr.F |
194 |
CG2D_SR |
CALL GLOBAL_SUM_TILE_RL( errTile, err_sq, myThid ) |
|
./model/src/cg2d_sr.F |
323 |
CG2D_SR |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
339 |
CG2D_SR |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_sr.F |
345 |
CG2D_SR |
sumPhi(3,bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_sr.F |
411 |
CG2D_SR |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
414 |
CG2D_SR |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg2d_sr.F |
420 |
CG2D_SR |
CALL GLOBAL_SUM_TILE_RL( errTile, err_sq, myThid ) |
|
./model/src/cg3d.F |
101 |
CG3D |
_RL err_sq, errTile(nSx,nSy) |
|
./model/src/cg3d.F |
173 |
CG3D |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d.F |
226 |
CG3D |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg3d.F |
241 |
CG3D |
CALL GLOBAL_SUM_TILE_RL( errTile, err_sq, myThid ) |
|
./model/src/cg3d.F |
482 |
CG3D |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d.F |
493 |
CG3D |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg3d.F |
502 |
CG3D |
CALL GLOBAL_SUM_TILE_RL( errTile, err_sq, myThid ) |
|
./model/src/cg3d_ex0.F |
166 |
CG3D_EX0 |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
219 |
CG3D_EX0 |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg3d_ex0.F |
230 |
CG3D_EX0 |
err_sq = MAX( errTile(bi,bj), err_sq ) |
|
./model/src/cg3d_ex0.F |
261 |
CG3D_EX0 |
IF ( errTile(bi,bj).GE.cg3dTolerance_sq ) THEN |
|
./model/src/cg3d_ex0.F |
457 |
CG3D_EX0 |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
468 |
CG3D_EX0 |
errTile(bi,bj) = errTile(bi,bj) |
|
./model/src/cg3d_ex0.F |
478 |
CG3D_EX0 |
& bj, '): iter=', it3d, ' ; resid.= ', SQRT(errTile(bi,bj)) |
|
./model/src/cg3d_ex0.F |
490 |
CG3D_EX0 |
err_sq = MAX( errTile(bi,bj), err_sq ) |
|
./model/src/cg3d_ex0.F |
93 |
CG3D_EX0 |
_RL err_sq, errTile(nSx,nSy) |
|
./pkg/diagnostics/diag_cg2d.F |
178 |
DIAG_CG2D |
errTile(bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diag_cg2d.F |
188 |
DIAG_CG2D |
errTile(bi,bj) = errTile(bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
200 |
DIAG_CG2D |
CALL GLOBAL_SUM_TILE_RL( errTile, err, myThid ) |
|
./pkg/diagnostics/diag_cg2d.F |
297 |
DIAG_CG2D |
errTile(bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diag_cg2d.F |
302 |
DIAG_CG2D |
errTile(bi,bj) = errTile(bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
309 |
DIAG_CG2D |
CALL GLOBAL_SUM_TILE_RL( errTile, err, myThid ) |
|
./pkg/diagnostics/diag_cg2d.F |
82 |
DIAG_CG2D |
_RL err, errTile(nSx,nSy) |