/[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.21 by adcroft, Mon May 24 14:15:15 1999 UTC revision 1.22 by adcroft, Fri Jul 30 16:00:55 1999 UTC
# Line 347  C--   Un-normalise the answer Line 347  C--   Un-normalise the answer
347         ENDDO         ENDDO
348        ENDDO        ENDDO
349    
350  Cadj  _EXCH_XY_R8(cg2d_x, myThid )  C     The following exchange was moved up to solve_for_pressure
351    C     for compatibility with TAMC.
352    C     _EXCH_XY_R8(cg2d_x, myThid )
353        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
354         WRITE(0,'(A,I6,1PE30.14)') ' CG2D iters, err = ',         WRITE(0,'(A,I6,1PE30.14)') ' CG2D iters, err = ',
355       & actualIts, actualResidual       & actualIts, actualResidual
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22