157 |
_EXCH_XY_R8(cg2d_x, myThid ) |
_EXCH_XY_R8(cg2d_x, myThid ) |
158 |
|
|
159 |
_BEGIN_MASTER( myThid ) |
_BEGIN_MASTER( myThid ) |
160 |
|
#ifndef ALLOW_AUTODIFF_TAMC |
161 |
WRITE(0,'(A,I6,1PE30.14)') ' CG2D iters, err = ', |
WRITE(0,'(A,I6,1PE30.14)') ' CG2D iters, err = ', |
162 |
& 0, tolerance |
& 0, tolerance |
163 |
WRITE(0,'(A,I6,1PE30.14)') ' CG2D iters, err = ', |
WRITE(0,'(A,I6,1PE30.14)') ' CG2D iters, err = ', |
164 |
& numIters, residual |
& numIters, residual |
165 |
|
#endif |
166 |
_END_MASTER( ) |
_END_MASTER( ) |
167 |
|
|
168 |
C-- Transfert the 2D-solution to "etaN" : |
C-- Transfert the 2D-solution to "etaN" : |