/[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.5 by cnh, Sat May 30 02:10:16 1998 UTC revision 1.6 by cnh, Fri Jun 12 19:33:33 1998 UTC
# Line 150  C     write(0,*) 'cg2d: Sum(rhs) = ',sum Line 150  C     write(0,*) 'cg2d: Sum(rhs) = ',sum
150        actualResidual = SQRT(err)        actualResidual = SQRT(err)
151  C     _BARRIER  C     _BARRIER
152        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
153          WRITE(0,*) ' CG2D iters, err = ', actualIts, actualResidual         WRITE(0,*) ' CG2D iters, err = ', actualIts, actualResidual
154        _END_MASTER( )        _END_MASTER( )
155    
156  C     >>>>>>>>>>>>>>> BEGIN SOLVER <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  C     >>>>>>>>>>>>>>> BEGIN SOLVER <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
# Line 281  C--   Un-normalise the answer Line 281  C--   Un-normalise the answer
281        ENDDO        ENDDO
282    
283        _EXCH_XY_R8(cg2d_x, myThid )        _EXCH_XY_R8(cg2d_x, myThid )
284         _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
285          WRITE(6,*) ' CG2D iters, err = ', actualIts, actualResidual         WRITE(0,*) ' CG2D iters, err = ', actualIts, actualResidual
286         _END_MASTER( )        _END_MASTER( )
287    
288  CcnhDebugStarts  CcnhDebugStarts
289  C     CALL PLOT_FIELD_XYR8( cg2d_x, 'CALC_MOM_RHS CG2D_X' , 1, myThid )  C     CALL PLOT_FIELD_XYR8( cg2d_x, 'CALC_MOM_RHS CG2D_X' , 1, myThid )
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22