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

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

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

revision 1.13 by edhill, Thu Oct 9 04:19:18 2003 UTC revision 1.14 by edhill, Tue Dec 14 16:54:08 2004 UTC
# Line 219  C     _EXCH_XYZ_R8( cg3d_s, myThid ) Line 219  C     _EXCH_XYZ_R8( cg3d_s, myThid )
219        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
220        write(*,'(A,1P2E22.14)')        write(*,'(A,1P2E22.14)')
221       &     ' cg3d: Sum(rhs),rhsMax = ',sumRHS,rhsMax       &     ' cg3d: Sum(rhs),rhsMax = ',sumRHS,rhsMax
222        _END_MASTER( )        _END_MASTER( myThid )
223    
224        actualIts      = 0        actualIts      = 0
225        actualResidual = SQRT(err)        actualResidual = SQRT(err)
# Line 227  C     _BARRIER Line 227  C     _BARRIER
227  c     _BEGIN_MASTER( myThid )  c     _BEGIN_MASTER( myThid )
228  c      WRITE(*,'(A,I6,1PE30.14)') ' CG3D iters, err = ',  c      WRITE(*,'(A,I6,1PE30.14)') ' CG3D iters, err = ',
229  c    &  actualIts, actualResidual  c    &  actualIts, actualResidual
230  c     _END_MASTER( )  c     _END_MASTER( myThid )
231        firstResidual=actualResidual        firstResidual=actualResidual
232    
233  C     >>>>>>>>>>>>>>> BEGIN SOLVER <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  C     >>>>>>>>>>>>>>> BEGIN SOLVER <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
# Line 494  Cadj  _EXCH_XYZ_R8(cg3d_x, myThid ) Line 494  Cadj  _EXCH_XYZ_R8(cg3d_x, myThid )
494  c     _BEGIN_MASTER( myThid )  c     _BEGIN_MASTER( myThid )
495  c      WRITE(*,'(A,I6,1PE30.14)') ' CG3D iters, err = ',  c      WRITE(*,'(A,I6,1PE30.14)') ' CG3D iters, err = ',
496  c    &  actualIts, actualResidual  c    &  actualIts, actualResidual
497  c     _END_MASTER( )  c     _END_MASTER( myThid )
498        lastResidual=actualResidual        lastResidual=actualResidual
499        numIters=actualIts        numIters=actualIts
500    
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22