/[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.20 by heimbach, Sun Mar 25 22:33:53 2001 UTC revision 1.21 by heimbach, Tue Apr 10 22:35:25 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         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" :
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22