/[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.2 by adcroft, Tue May 18 17:36:55 1999 UTC revision 1.5 by cnh, Sun Feb 4 14:38:46 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
# Line 41  C     === Routine arguments === Line 42  C     === Routine arguments ===
42  C     myThid - Thread on which I am working.  C     myThid - Thread on which I am working.
43        INTEGER myThid        INTEGER myThid
44    
45    #ifdef ALLOW_NONHYDROSTATIC
46    
47  C     === Local variables ====  C     === Local variables ====
48  C     actualIts      - Number of iterations taken  C     actualIts      - Number of iterations taken
49  C     actualResidual - residual  C     actualResidual - residual
# Line 79  C     I, J, N     - Loop counters ( N co Line 82  C     I, J, N     - Loop counters ( N co
82        INTEGER myNz        INTEGER myNz
83        _RL     topLevFac        _RL     topLevFac
84    
   
 CcnhDebugStarts  
       CHARACTER*(MAX_LEN_FNAM) suff  
 CcnhDebugEnds  
   
 #ifdef ALLOW_NONHYDROSTATIC  
   
85  C--   Initialise inverter  C--   Initialise inverter
86        etaNM1              = 1. D0        etaNM1              = 1. D0
87    
# Line 518  C--   Un-normalise the answer Line 514  C--   Un-normalise the answer
514         ENDDO         ENDDO
515        ENDDO        ENDDO
516    
517        _EXCH_XYZ_R8(cg3d_x, myThid )  Cadj  _EXCH_XYZ_R8(cg3d_x, myThid )
518        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
519         WRITE(0,'(A,I6,1PE30.14)') ' CG3D iters, err = ',         WRITE(0,'(A,I6,1PE30.14)') ' CG3D iters, err = ',
520       &  actualIts, actualResidual       &  actualIts, actualResidual
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22