/[MITgcm]/MITgcm/model/src/solve_for_pressure.F
ViewVC logotype

Diff of /MITgcm/model/src/solve_for_pressure.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.19 by adcroft, Fri Mar 9 20:45:09 2001 UTC revision 1.20 by heimbach, Sun Mar 25 22:33:53 2001 UTC
# Line 157  C     see CG2D_INTERNAL.h for the interf Line 157  C     see CG2D_INTERNAL.h for the interf
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" :
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22