Symbol Description Uses
err_sq Measure of the square of the residual of Ax - b. 69


File Line number Procedure Code
./model/src/cg2d.F 191 CG2D 
      CALL GLOBAL_SUM_SINGLECPU_RL(localBuf, err_sq, 0, 0, myThid)
./model/src/cg2d.F 194 CG2D 
      CALL GLOBAL_SUM_TILE_RL( errTile,    err_sq, myThid )
./model/src/cg2d.F 198 CG2D 
      firstResidual = SQRT(err_sq)
./model/src/cg2d.F 201 CG2D 
        minResidualSq = err_sq
./model/src/cg2d.F 213 CG2D 
      IF ( err_sq .LT. cg2dTolerance_sq ) GOTO 11
./model/src/cg2d.F 334 CG2D 
       CALL GLOBAL_SUM_SINGLECPU_RL(localBuf, err_sq, 0, 0, myThid)
./model/src/cg2d.F 336 CG2D 
       CALL GLOBAL_SUM_TILE_RL( errTile,    err_sq,    myThid )
./model/src/cg2d.F 341 CG2D 
     &    ' cg2d: iter=', it2d, ' ; resid.= ', SQRT(err_sq)
./model/src/cg2d.F 346 CG2D 
       IF ( err_sq .LT. cg2dTolerance_sq ) GOTO 11
./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 394 CG2D 
      lastResidual = SQRT(err_sq)
./model/src/cg2d.F 94 CG2D 
      _RL    err_sq,  errTile(nSx,nSy)
./model/src/cg2d_ex0.F 140 CG2D_EX0 
      err_sq = 0.
./model/src/cg2d_ex0.F 178 CG2D_EX0 
        err_sq = MAX( errTile(bi,bj), err_sq )
./model/src/cg2d_ex0.F 184 CG2D_EX0 
      _GLOBAL_MAX_RL( err_sq, myThid )
./model/src/cg2d_ex0.F 186 CG2D_EX0 
      firstResidual = SQRT(err_sq)
./model/src/cg2d_ex0.F 201 CG2D_EX0 
      IF ( err_sq.GE.cg2dTolerance_sq ) THEN
./model/src/cg2d_ex0.F 202 CG2D_EX0 
       err_sq = 0. _d 0
./model/src/cg2d_ex0.F 302 CG2D_EX0 
        err_sq = MAX( errTile(bi,bj), err_sq )
./model/src/cg2d_ex0.F 345 CG2D_EX0 
      _GLOBAL_MAX_RL( err_sq, myThid )
./model/src/cg2d_ex0.F 348 CG2D_EX0 
      minResidualSq = err_sq
./model/src/cg2d_ex0.F 356 CG2D_EX0 
      lastResidual = SQRT(err_sq)
./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 214 CG2D_NSA 
      CALL GLOBAL_SUM_TILE_RL( errTile,    err_sq, myThid )
./model/src/cg2d_nsa.F 217 CG2D_NSA 
      IF ( err_sq .NE. 0. ) THEN
./model/src/cg2d_nsa.F 218 CG2D_NSA 
        firstResidual = SQRT(err_sq)
./model/src/cg2d_nsa.F 248 CG2D_NSA 
      IF ( err_sq .GE. cg2dTolerance_sq ) THEN
./model/src/cg2d_nsa.F 351 CG2D_NSA 
       CALL GLOBAL_SUM_TILE_RL( errTile,    err_sq,    myThid )
./model/src/cg2d_nsa.F 355 CG2D_NSA 
     &    ' cg2d: iter=', it2d, ' ; resid.= ', SQRT(err_sq)
./model/src/cg2d_nsa.F 384 CG2D_NSA 
      IF ( err_sq .NE. 0. ) THEN
./model/src/cg2d_nsa.F 385 CG2D_NSA 
        lastResidual = SQRT(err_sq)
./model/src/cg2d_sr.F 100 CG2D_SR 
      _RL    err_sq,  errTile(nSx,nSy)
./model/src/cg2d_sr.F 194 CG2D_SR 
      CALL GLOBAL_SUM_TILE_RL( errTile,    err_sq, myThid )
./model/src/cg2d_sr.F 198 CG2D_SR 
      firstResidual = SQRT(err_sq)
./model/src/cg2d_sr.F 201 CG2D_SR 
        minResidualSq = err_sq
./model/src/cg2d_sr.F 213 CG2D_SR 
      IF ( err_sq .LT. cg2dTolerance_sq ) GOTO 11
./model/src/cg2d_sr.F 356 CG2D_SR 
       err_sq  = sumPhi(3,1,1)
./model/src/cg2d_sr.F 361 CG2D_SR 
     &    ' cg2d: iter=', it2d, ' ; resid.= ', SQRT(err_sq)
./model/src/cg2d_sr.F 366 CG2D_SR 
       IF ( err_sq .LT. cg2dTolerance_sq ) GOTO 11
./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 420 CG2D_SR 
      CALL GLOBAL_SUM_TILE_RL( errTile,    err_sq, myThid )
./model/src/cg2d_sr.F 423 CG2D_SR 
      IF ( nIterMin.GE.0 .AND. err_sq .GT. minResidualSq ) THEN
./model/src/cg2d_sr.F 450 CG2D_SR 
      lastResidual = SQRT(err_sq)
./model/src/cg3d.F 101 CG3D 
      _RL     err_sq,  errTile(nSx,nSy)
./model/src/cg3d.F 241 CG3D 
       CALL GLOBAL_SUM_TILE_RL( errTile,    err_sq, myThid )
./model/src/cg3d.F 248 CG3D 
      firstResidual = SQRT(err_sq)
./model/src/cg3d.F 259 CG3D 
      IF ( err_sq .LT. cg3dTolerance_sq ) GOTO 11
./model/src/cg3d.F 502 CG3D 
       CALL GLOBAL_SUM_TILE_RL( errTile,    err_sq, myThid )
./model/src/cg3d.F 506 CG3D 
     &    ' cg3d: iter=', it3d, ' ; resid.= ', SQRT(err_sq)
./model/src/cg3d.F 511 CG3D 
       IF ( err_sq .LT. cg3dTolerance_sq ) GOTO 11
./model/src/cg3d.F 536 CG3D 
      lastResidual = SQRT(err_sq)
./model/src/cg3d_ex0.F 162 CG3D_EX0 
      err_sq = 0.
./model/src/cg3d_ex0.F 230 CG3D_EX0 
        err_sq = MAX( errTile(bi,bj), err_sq )
./model/src/cg3d_ex0.F 235 CG3D_EX0 
      _GLOBAL_MAX_RL( err_sq, myThid )
./model/src/cg3d_ex0.F 241 CG3D_EX0 
      firstResidual = SQRT(err_sq)
./model/src/cg3d_ex0.F 256 CG3D_EX0 
      IF ( err_sq.GE.cg3dTolerance_sq ) THEN
./model/src/cg3d_ex0.F 257 CG3D_EX0 
       err_sq = 0. _d 0
./model/src/cg3d_ex0.F 490 CG3D_EX0 
        err_sq = MAX( errTile(bi,bj), err_sq )
./model/src/cg3d_ex0.F 522 CG3D_EX0 
      _GLOBAL_MAX_RL( err_sq, myThid )
./model/src/cg3d_ex0.F 523 CG3D_EX0 
      lastResidual = SQRT(err_sq)
./model/src/cg3d_ex0.F 93 CG3D_EX0 
      _RL     err_sq,  errTile(nSx,nSy)