/[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.10 by cnh, Sun Sep 6 17:35:19 1998 UTC revision 1.11 by cnh, Mon Sep 7 16:23:11 1998 UTC
# Line 73  C--   Initialise inverter Line 73  C--   Initialise inverter
73        etaNM1              = 1. D0        etaNM1              = 1. D0
74    
75  CcnhDebugStarts  CcnhDebugStarts
76        _EXCH_XY_R8( cg2d_b, myThid )  C     _EXCH_XY_R8( cg2d_b, myThid )
77        CALL PLOT_FIELD_XYRL( cg2d_b, 'CG2D.0 CG2D_B' , 1, myThid )  C     CALL PLOT_FIELD_XYRL( cg2d_b, 'CG2D.0 CG2D_B' , 1, myThid )
78  CcnhDebugEnds  CcnhDebugEnds
79    
80  C--   Normalise RHS  C--   Normalise RHS
# Line 109  C--   Update overlaps Line 109  C--   Update overlaps
109        _EXCH_XY_R8( cg2d_b, myThid )        _EXCH_XY_R8( cg2d_b, myThid )
110        _EXCH_XY_R8( cg2d_x, myThid )        _EXCH_XY_R8( cg2d_x, myThid )
111  CcnhDebugStarts  CcnhDebugStarts
112        CALL PLOT_FIELD_XYRL( cg2d_b, 'CG2D.1 CG2D_B' , 1, myThid )  C     CALL PLOT_FIELD_XYRL( cg2d_b, 'CG2D.1 CG2D_B' , 1, myThid )
113  CcnhDebugEnds  CcnhDebugEnds
114    
115  C--   Initial residual calculation  C--   Initial residual calculation
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22