Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.39 by jmc, Thu Apr 22 22:43:37 2004 UTC | revision 1.40 by dimitri, Mon Dec 13 07:50:24 2004 UTC | |
|---|---|---|
| # | Line 214 C _EXCH_XY_R8( cg2d_s, myThid ) | Line 214 C _EXCH_XY_R8( cg2d_s, myThid ) |
| 214 | err = SQRT(err) | err = SQRT(err) |
| 215 | actualIts = 0 | actualIts = 0 |
| 216 | actualResidual = err | actualResidual = err |
| 217 | ||
| 218 | #ifdef MINIMAL_TAVE_OUTPUT | |
| 219 | IF ( debugLevel .GT. debLevZero ) THEN | |
| 220 | #else | |
| 221 | IF ( debugLevel .GE. debLevZero ) THEN | IF ( debugLevel .GE. debLevZero ) THEN |
| 222 | #endif /* MINIMAL_TAVE_OUTPUT */ | |
| 223 | _BEGIN_MASTER( myThid ) | _BEGIN_MASTER( myThid ) |
| 224 | write(*,'(A,1P2E22.14)')' cg2d: Sum(rhs),rhsMax = ', | write(*,'(A,1P2E22.14)')' cg2d: Sum(rhs),rhsMax = ', |
| 225 | & sumRHS,rhsMax | & sumRHS,rhsMax |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |