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

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

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

revision 1.16 by cnh, Fri Nov 6 22:44:45 1998 UTC revision 1.17 by adcroft, Mon Nov 30 23:45:24 1998 UTC
# Line 197  C     WRITE(6,*) ' mythid, err = ', myth Line 197  C     WRITE(6,*) ' mythid, err = ', myth
197        err    = errBuf(1,1)        err    = errBuf(1,1)
198                
199        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
200        write(0,'(A,1PE30.20)') 'cg2d: Sum(rhs) = ',sumRHS        write(0,'(A,1PE30.14)') 'cg2d: Sum(rhs) = ',sumRHS
201        _END_MASTER( )        _END_MASTER( )
202    
203        actualIts      = 0        actualIts      = 0
204        actualResidual = SQRT(err)        actualResidual = SQRT(err)
205  C     _BARRIER  C     _BARRIER
206        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
207         WRITE(0,'(A,I6,1PE30.20)') ' CG2D iters, err = ',         WRITE(0,'(A,I6,1PE30.14)') ' CG2D iters, err = ',
208       & actualIts, actualResidual       & actualIts, actualResidual
209        _END_MASTER( )        _END_MASTER( )
210    
# Line 363  C--   Un-normalise the answer Line 363  C--   Un-normalise the answer
363    
364        _EXCH_XY_R8(cg2d_x, myThid )        _EXCH_XY_R8(cg2d_x, myThid )
365        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
366         WRITE(0,'(A,I6,1PE30.20)') ' CG2D iters, err = ',         WRITE(0,'(A,I6,1PE30.14)') ' CG2D iters, err = ',
367       & actualIts, actualResidual       & actualIts, actualResidual
368        _END_MASTER( )        _END_MASTER( )
369    
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22