/[MITgcm]/MITgcm/model/src/cg3d.F
ViewVC logotype

Diff of /MITgcm/model/src/cg3d.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by adcroft, Mon May 24 14:15:15 1999 UTC revision 1.4 by adcroft, Mon Mar 27 22:25:43 2000 UTC
# Line 41  C     === Routine arguments === Line 41  C     === Routine arguments ===
41  C     myThid - Thread on which I am working.  C     myThid - Thread on which I am working.
42        INTEGER myThid        INTEGER myThid
43    
44    #ifdef ALLOW_NONHYDROSTATIC
45    
46  C     === Local variables ====  C     === Local variables ====
47  C     actualIts      - Number of iterations taken  C     actualIts      - Number of iterations taken
48  C     actualResidual - residual  C     actualResidual - residual
# Line 79  C     I, J, N     - Loop counters ( N co Line 81  C     I, J, N     - Loop counters ( N co
81        INTEGER myNz        INTEGER myNz
82        _RL     topLevFac        _RL     topLevFac
83    
   
 CcnhDebugStarts  
       CHARACTER*(MAX_LEN_FNAM) suff  
 CcnhDebugEnds  
   
 #ifdef ALLOW_NONHYDROSTATIC  
   
84  C--   Initialise inverter  C--   Initialise inverter
85        etaNM1              = 1. D0        etaNM1              = 1. D0
86    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22