| File |
Line number |
Procedure |
Code |
|
./model/src/cg2d.F |
112 |
CG2D |
minResidualSq = -1. _d 0 |
|
./model/src/cg2d.F |
18 |
CG2D |
O firstResidual, minResidualSq, lastResidual, |
|
./model/src/cg2d.F |
201 |
CG2D |
minResidualSq = err_sq |
|
./model/src/cg2d.F |
347 |
CG2D |
IF ( err_sq .LT. minResidualSq ) THEN |
|
./model/src/cg2d.F |
349 |
CG2D |
minResidualSq = err_sq |
|
./model/src/cg2d.F |
367 |
CG2D |
IF ( nIterMin.GE.0 .AND. err_sq .GT. minResidualSq ) THEN |
|
./model/src/cg2d.F |
69 |
CG2D |
_RL minResidualSq |
|
./model/src/cg2d_ex0.F |
18 |
CG2D_EX0 |
O firstResidual, minResidualSq, lastResidual, |
|
./model/src/cg2d_ex0.F |
348 |
CG2D_EX0 |
minResidualSq = err_sq |
|
./model/src/cg2d_ex0.F |
353 |
CG2D_EX0 |
minResidualSq = MIN( errTile(bi,bj), minResidualSq ) |
|
./model/src/cg2d_ex0.F |
363 |
CG2D_EX0 |
alpha = -minResidualSq |
|
./model/src/cg2d_ex0.F |
365 |
CG2D_EX0 |
minResidualSq = -alpha |
|
./model/src/cg2d_ex0.F |
61 |
CG2D_EX0 |
_RL minResidualSq |
|
./model/src/cg2d_nsa.F |
141 |
CG2D_NSA |
minResidualSq = -1. _d 0 |
|
./model/src/cg2d_nsa.F |
17 |
CG2D_NSA |
O firstResidual, minResidualSq, lastResidual, |
|
./model/src/cg2d_nsa.F |
76 |
CG2D_NSA |
_RL minResidualSq |
|
./model/src/cg2d_sr.F |
117 |
CG2D_SR |
minResidualSq = -1. _d 0 |
|
./model/src/cg2d_sr.F |
18 |
CG2D_SR |
O firstResidual, minResidualSq, lastResidual, |
|
./model/src/cg2d_sr.F |
201 |
CG2D_SR |
minResidualSq = err_sq |
|
./model/src/cg2d_sr.F |
367 |
CG2D_SR |
IF ( err_sq .LT. minResidualSq ) THEN |
|
./model/src/cg2d_sr.F |
369 |
CG2D_SR |
minResidualSq = err_sq |
|
./model/src/cg2d_sr.F |
423 |
CG2D_SR |
IF ( nIterMin.GE.0 .AND. err_sq .GT. minResidualSq ) THEN |
|
./model/src/cg2d_sr.F |
73 |
CG2D_SR |
_RL minResidualSq |
|
./pkg/openad/externalDummies.F |
114 |
CG2D |
O minResidualSq, |
|
./pkg/openad/externalDummies.F |
127 |
CG2D |
Real*8 minResidualSq |
|
./model/src/solve_for_pressure.F |
279 |
SOLVE_FOR_PRESSURE |
O firstResidual, minResidualSq, lastResidual, |
|
./model/src/solve_for_pressure.F |
287 |
SOLVE_FOR_PRESSURE |
O firstResidual, minResidualSq, lastResidual, |
|
./model/src/solve_for_pressure.F |
296 |
SOLVE_FOR_PRESSURE |
O firstResidual, minResidualSq, lastResidual, |
|
./model/src/solve_for_pressure.F |
306 |
SOLVE_FOR_PRESSURE |
O firstResidual, minResidualSq, lastResidual, |
|
./model/src/solve_for_pressure.F |
332 |
SOLVE_FOR_PRESSURE |
IF ( minResidualSq.GE.0. ) THEN |
|
./model/src/solve_for_pressure.F |
333 |
SOLVE_FOR_PRESSURE |
minResidualSq = SQRT(minResidualSq) |
|
./model/src/solve_for_pressure.F |
334 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(A20,1PE23.14)') 'cg2d_min_res =',minResidualSq |
|
./model/src/solve_for_pressure.F |
61 |
SOLVE_FOR_PRESSURE |
_RL firstResidual, minResidualSq, lastResidual |