/[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.42 by dimitri, Mon Jan 3 00:53:49 2005 UTC revision 1.43 by heimbach, Wed Feb 9 21:12:40 2005 UTC
# Line 217  C     _EXCH_XY_R8( cg2d_s, myThid ) Line 217  C     _EXCH_XY_R8( cg2d_s, myThid )
217    
218         IF ( debugLevel .GE. debLevZero ) THEN         IF ( debugLevel .GE. debLevZero ) THEN
219          _BEGIN_MASTER( myThid )          _BEGIN_MASTER( myThid )
220          write(*,'(A,1P2E22.14)')' cg2d: Sum(rhs),rhsMax = ',          write(standardmessageunit,'(A,1P2E22.14)')
221         &  ' cg2d: Sum(rhs),rhsMax = ',
222       &                                  sumRHS,rhsMax       &                                  sumRHS,rhsMax
223          _END_MASTER( myThid )          _END_MASTER( myThid )
224         ENDIF         ENDIF
225  C     _BARRIER  C     _BARRIER
226  c     _BEGIN_MASTER( myThid )  c     _BEGIN_MASTER( myThid )
227  c      WRITE(*,'(A,I6,1PE30.14)') ' CG2D iters, err = ',  c      WRITE(standardmessageunit,'(A,I6,1PE30.14)')
228    c    & ' CG2D iters, err = ',
229  c    & actualIts, actualResidual  c    & actualIts, actualResidual
230  c     _END_MASTER( myThid )  c     _END_MASTER( myThid )
231        firstResidual=actualResidual        firstResidual=actualResidual
Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43
  ViewVC Help
Powered by ViewVC 1.1.22