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 |
WRITE(*,'(A,I6,1PE30.14)') ' CG2D iters, err = ', |
|
WRITE(0,'(A,I6,1PE30.14)') ' CG2D iters, err = ', |
|
161 |
& 0, tolerance |
& 0, tolerance |
162 |
WRITE(0,'(A,I6,1PE30.14)') ' CG2D iters, err = ', |
WRITE(*,'(A,I6,1PE30.14)') ' CG2D iters, err = ', |
163 |
& numIters, residual |
& numIters, residual |
|
#endif |
|
164 |
_END_MASTER( ) |
_END_MASTER( ) |
165 |
|
|
166 |
C-- Transfert the 2D-solution to "etaN" : |
C-- Transfert the 2D-solution to "etaN" : |