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

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

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

revision 1.12 by adcroft, Fri Jun 29 17:14:49 2001 UTC revision 1.13 by cnh, Wed Sep 26 18:09:15 2001 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6  CStartOfInterface  CBOP
7    C     !ROUTINE: INI_CG2D
8    C     !INTERFACE:
9        SUBROUTINE INI_CG3D( myThid )        SUBROUTINE INI_CG3D( myThid )
10  C     /==========================================================\  C     !DESCRIPTION: \bv
11  C     | SUBROUTINE INI_CG3D                                      |  C     *==========================================================*
12  C     | o Initialise 3d conjugate gradient solver operators.     |  C     | SUBROUTINE INI_CG3D                                      
13  C     |==========================================================|  C     | o Initialise 3d conjugate gradient solver operators.      
14  C     | These arrays are purely a function of the basin geom.    |  C     *==========================================================*
15  C     | We set then here once and them use then repeatedly.      |  C     | These arrays are purely a function of the basin geom.    
16  C     \==========================================================/  C     | We set then here once and them use then repeatedly.      
17        IMPLICIT NONE  C     *==========================================================*
18    C     \ev
19    
20    C     !USES:
21          IMPLICIT NONE
22  C     === Global variables ===  C     === Global variables ===
23  #include "SIZE.h"  #include "SIZE.h"
24  #include "EEPARAMS.h"  #include "EEPARAMS.h"
# Line 26  c_jmc #include "DYNVARS.h" Line 31  c_jmc #include "DYNVARS.h"
31  #include "OBCS.h"  #include "OBCS.h"
32  #endif  #endif
33    
34    C     !INPUT/OUTPUT PARAMETERS:
35  C     === Routine arguments ===  C     === Routine arguments ===
36  C     myThid - Thread no. that called this routine.  C     myThid - Thread no. that called this routine.
37        INTEGER myThid        INTEGER myThid
 CEndOfInterface  
38    
39  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
40    
41    C     !LOCAL VARIABLES:
42  C     === Local variables ===  C     === Local variables ===
43  C     xG, yG - Global coordinate location.  C     xG, yG - Global coordinate location.
44  C     zG  C     zG
# Line 49  C     myNorm - Work variable used in clc Line 55  C     myNorm - Work variable used in clc
55        _RL     aCw, aCs        _RL     aCw, aCs
56        _RL     theRecip_Dr        _RL     theRecip_Dr
57        _RL     aU, aL, aW, aE, aN, aS, aC        _RL     aU, aL, aW, aE, aN, aS, aC
58    CEOP
59    
60  CcnhDebugStarts  CcnhDebugStarts
61        _RL    phi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL    phi(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22