/[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.6 by cnh, Fri Jun 12 19:33:33 1998 UTC revision 1.7 by cnh, Mon Jun 15 05:13:55 1998 UTC
# Line 104  C--   Update overlaps Line 104  C--   Update overlaps
104        _EXCH_XY_R8( cg2d_b, myThid )        _EXCH_XY_R8( cg2d_b, myThid )
105        _EXCH_XY_R8( cg2d_x, myThid )        _EXCH_XY_R8( cg2d_x, myThid )
106  CcnhDebugStarts  CcnhDebugStarts
107  C     CALL PLOT_FIELD_XYR8( cg2d_b, 'CG2D.1 CG2D_B' , 1, myThid )  C     CALL PLOT_FIELD_XYRL( cg2d_b, 'CG2D.1 CG2D_B' , 1, myThid )
108  CcnhDebugEnds  CcnhDebugEnds
109    
110  C--   Initial residual calculation  C--   Initial residual calculation
# Line 286  C--   Un-normalise the answer Line 286  C--   Un-normalise the answer
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_XYRL( cg2d_x, 'CALC_MOM_RHS CG2D_X' , 1, myThid )
290  C     err    = 0. _d 0  C     err    = 0. _d 0
291  C     DO bj=myByLo(myThid),myByHi(myThid)  C     DO bj=myByLo(myThid),myByHi(myThid)
292  C      DO bi=myBxLo(myThid),myBxHi(myThid)  C      DO bi=myBxLo(myThid),myBxHi(myThid)
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22