/[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.20 by adcroft, Tue May 18 17:36:55 1999 UTC revision 1.21 by adcroft, Mon May 24 14:15:15 1999 UTC
# Line 347  C--   Un-normalise the answer Line 347  C--   Un-normalise the answer
347         ENDDO         ENDDO
348        ENDDO        ENDDO
349    
350        _EXCH_XY_R8(cg2d_x, myThid )  Cadj  _EXCH_XY_R8(cg2d_x, myThid )
351        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
352         WRITE(0,'(A,I6,1PE30.14)') ' CG2D iters, err = ',         WRITE(0,'(A,I6,1PE30.14)') ' CG2D iters, err = ',
353       & actualIts, actualResidual       & actualIts, actualResidual
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22