/[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.2 by adcroft, Tue May 18 17:36:55 1999 UTC revision 1.3 by adcroft, Mon May 24 14:15:15 1999 UTC
# Line 518  C--   Un-normalise the answer Line 518  C--   Un-normalise the answer
518         ENDDO         ENDDO
519        ENDDO        ENDDO
520    
521        _EXCH_XYZ_R8(cg3d_x, myThid )  Cadj  _EXCH_XYZ_R8(cg3d_x, myThid )
522        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
523         WRITE(0,'(A,I6,1PE30.14)') ' CG3D iters, err = ',         WRITE(0,'(A,I6,1PE30.14)') ' CG3D iters, err = ',
524       &  actualIts, actualResidual       &  actualIts, actualResidual
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22