/[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.14 by cnh, Wed Oct 28 03:11:36 1998 UTC revision 1.15 by cnh, Mon Nov 2 03:34:11 1998 UTC
# Line 86  CcnhDebugEnds Line 86  CcnhDebugEnds
86    
87    
88  C--   Initialise inverter  C--   Initialise inverter
89        etaNBuf(1,myThid)   = 0. D0        etaNBuf(1,myThid)   = 0. _d 0
90        errBuf(1,myThid)    = 0. D0        errBuf(1,myThid)    = 0. _d 0
91        sumRHSBuf(1,myThid) = 0. D0        sumRHSBuf(1,myThid) = 0. _d 0
92        etaNM1              = 1. D0        etaNM1              = 1. _d 0
93    
94  CcnhDebugStarts  CcnhDebugStarts
95  C     _EXCH_XY_R8( cg2d_b, myThid )  C     _EXCH_XY_R8( cg2d_b, myThid )
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22