Parent Directory | Revision Log | Revision Graph | Patch
revision 1.21 by adcroft, Mon May 24 14:15:15 1999 UTC | revision 1.22 by adcroft, Fri Jul 30 16:00:55 1999 UTC | |
---|---|---|
# | Line 347 C-- Un-normalise the answer | Line 347 C-- Un-normalise the answer |
347 | ENDDO | ENDDO |
348 | ENDDO | ENDDO |
349 | ||
350 | Cadj _EXCH_XY_R8(cg2d_x, myThid ) | C The following exchange was moved up to solve_for_pressure |
351 | C for compatibility with TAMC. | |
352 | C _EXCH_XY_R8(cg2d_x, myThid ) | |
353 | _BEGIN_MASTER( myThid ) | _BEGIN_MASTER( myThid ) |
354 | WRITE(0,'(A,I6,1PE30.14)') ' CG2D iters, err = ', | WRITE(0,'(A,I6,1PE30.14)') ' CG2D iters, err = ', |
355 | & actualIts, actualResidual | & actualIts, actualResidual |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |