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

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

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

revision 1.8 by cnh, Wed Sep 26 18:09:15 2001 UTC revision 1.12.2.1 by edhill, Thu Oct 2 18:10:45 2003 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
7  CBOP  CBOP
# Line 32  C      |-- MON_INIT Line 33  C      |-- MON_INIT
33  C      |  C      |
34  C      |-- INI_GRID  C      |-- INI_GRID
35  C      |  C      |
36    C      |-- INI_EOS
37    C      |
38  C      |-- INI_DEPTHS  C      |-- INI_DEPTHS
39  C      |  C      |
40  C      |-- INI_MASKS_ETC  C      |-- INI_MASKS_ETC
41  C      |  C      |
 C      |-- INI_LINEAR_PHSURF  
 C      |  
 C      |-- INI_CORI  
 C      |  
42  C      |-- PACKAGES_BOOT  C      |-- PACKAGES_BOOT
43  C      |  C      |
44  C      |-- PACKAGES_READPARMS  C      |-- PACKAGES_READPARMS
# Line 48  C      |-- PACKAGES_CHECK Line 47  C      |-- PACKAGES_CHECK
47  C      |  C      |
48  C      |-- PACKAGES_INIT_FIXED  C      |-- PACKAGES_INIT_FIXED
49  C      |  C      |
50  C      |-- ZONAL_FILT_INIT  C      |-- INI_LINEAR_PHSURF
51    C      |
52    C      |-- INI_CORI
53  C      |  C      |
54  C      |-- INI_CG2D  C      |-- INI_CG2D
55  C      |  C      |
56  C      |-- INI_CG3D  C      |-- INI_CG3D
57  C      |  C      |
58    C      |-- CONFIG_CHECK
59    C      |
60  C      |-- CONFIG_SUMMARY  C      |-- CONFIG_SUMMARY
61    
62  C     !USES:  C     !USES:
# Line 86  C     Variables defining model grid spac Line 89  C     Variables defining model grid spac
89        CALL INI_GRID( myThid )        CALL INI_GRID( myThid )
90        _BARRIER        _BARRIER
91    
92    C--   Set equation of state parameters.
93          CALL INI_EOS( myThid )
94          _BARRIER
95    
96  C--   Initialise map of depths  C--   Initialise map of depths
97        CALL INI_DEPTHS( myThid )        CALL INI_DEPTHS( myThid )
98        _BARRIER        _BARRIER
# Line 95  C     Volumes and areas are set accordin Line 102  C     Volumes and areas are set accordin
102        CALL INI_MASKS_ETC( myThid )        CALL INI_MASKS_ETC( myThid )
103        _BARRIER        _BARRIER
104    
 C--   Set Bo_surf => define the Linear Relation: Phi_surf(eta)  
       CALL INI_LINEAR_PHISURF( myThid )  
   
 C--   Set coriolis operators  
       CALL INI_CORI( myThid )  
   
105  C--   Configure packages  C--   Configure packages
106        CALL PACKAGES_BOOT( myThid )        CALL PACKAGES_BOOT( myThid )
107    
# Line 113  C--   Check dependances between packages Line 114  C--   Check dependances between packages
114  C--   Call fixed data initialization phase of packages  C--   Call fixed data initialization phase of packages
115        CALL PACKAGES_INIT_FIXED( myThid )        CALL PACKAGES_INIT_FIXED( myThid )
116    
117  #ifdef ALLOW_ZONAL_FILT  C--   Set Bo_surf => define the Linear Relation: Phi_surf(eta)
118  C--   Latitude circle filter initialisation        CALL INI_LINEAR_PHISURF( myThid )
119        CALL ZONAL_FILT_INIT(myThid)  
120        _BARRIER  C--   Set coriolis operators
121  #endif        CALL INI_CORI( myThid )
122    
123  C--   Set laplace operators for use in 2D conjugate gradient solver.  C--   Set laplace operators for use in 2D conjugate gradient solver.
124        CALL INI_CG2D( myThid )        CALL INI_CG2D( myThid )
125    
126  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
127  C--   Set laplace operators for use in 3D conjugate gradient solver.  C--   Set laplace operators for use in 3D conjugate gradient solver.
128    ceh3 needs an IF ( useNONHYDROSTATIC ) THEN
129        CALL INI_CG3D( myThid )        CALL INI_CG3D( myThid )
130  #endif  #endif
131    
132    C--   Check parameters and model cofiguration
133          CALL CONFIG_CHECK( myThid )
134    
135  C--   Finally summarise the model cofiguration  C--   Finally summarise the model cofiguration
136        CALL CONFIG_SUMMARY( myThid )        CALL CONFIG_SUMMARY( myThid )
137    
138          RETURN
139        END        END
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.12.2.1
  ViewVC Help
Powered by ViewVC 1.1.22