/[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.4.1 by heimbach, Mon Apr 8 20:10:37 2002 UTC revision 1.26 by edhill, Sat Mar 20 23:51:23 2004 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
45  C      |  C      |
46    C      |-- PACKAGES_INIT_FIXED
47    C      |
48  C      |-- PACKAGES_CHECK  C      |-- PACKAGES_CHECK
49  C      |  C      |
50  C      |-- PACKAGES_INIT_FIXED  C      |-- INI_LINEAR_PHSURF
51  C      |  C      |
52  C      |-- ZONAL_FILT_INIT  C      |-- INI_CORI
53  C      |  C      |
54  C      |-- INI_CG2D  C      |-- INI_CG2D
55  C      |  C      |
# Line 76  C     an input file called data. Line 77  C     an input file called data.
77        CALL INI_PARMS( myThid )        CALL INI_PARMS( myThid )
78        _BARRIER        _BARRIER
79    
80  #ifndef EXCLUDE_MONITOR  #ifdef ALLOW_MNC
81    C     Initialize MNC look-up tables
82          write(*,*) 'INITIALISE_FIXED: useMNC = ',useMNC
83          IF (useMNC) THEN
84            CALL MNC_INIT(myThid)
85            CALL MNC_CW_INIT(sNx,sNy,OLx,OLy,nSx,nSy,nPx,nPy,Nr, myThid)
86            CALL INI_MNC_IO(myThid)
87            IF ( mnc_echo_gtypes ) THEN
88              CALL MNC_CW_DUMP( myThid )
89            ENDIF
90          ENDIF
91    #endif
92    
93    #ifdef ALLOW_MONITOR
94  C--   Initialise MONITOR I/O streams so we can report config. info  C--   Initialise MONITOR I/O streams so we can report config. info
95        CALL MON_INIT( myThid )        CALL MON_INIT( myThid )
96        _BARRIER        _BARRIER
97  #endif  #endif
98    
   
99  C--   Set model grid.  C--   Set model grid.
100  C     Variables defining model grid spacing are defined.  C     Variables defining model grid spacing are defined.
101        CALL INI_GRID( myThid )        CALL INI_GRID( myThid )
102        _BARRIER        _BARRIER
103    
104    C--   Set equation of state parameters.
105          CALL INI_EOS( myThid )
106          _BARRIER
107    
108  C--   Initialise map of depths  C--   Initialise map of depths
109        CALL INI_DEPTHS( myThid )        CALL INI_DEPTHS( myThid )
110        _BARRIER        _BARRIER
# Line 97  C     Volumes and areas are set accordin Line 114  C     Volumes and areas are set accordin
114        CALL INI_MASKS_ETC( myThid )        CALL INI_MASKS_ETC( myThid )
115        _BARRIER        _BARRIER
116    
 C--   Set Bo_surf => define the Linear Relation: Phi_surf(eta)  
       CALL INI_LINEAR_PHISURF( myThid )  
   
 C--   Set coriolis operators  
       CALL INI_CORI( myThid )  
   
117  C--   Configure packages  C--   Configure packages
118        CALL PACKAGES_BOOT( myThid )        CALL PACKAGES_BOOT( myThid )
119    
120  C--   Read configuration parameters for packages  C--   Read configuration parameters for packages
121        CALL PACKAGES_READPARMS( myThid )        CALL PACKAGES_READPARMS( myThid )
122    
123    C--   Call fixed data initialization phase of packages
124          CALL PACKAGES_INIT_FIXED( myThid )
125    
126  C--   Check dependances between packages  C--   Check dependances between packages
127        CALL PACKAGES_CHECK( myThid )        CALL PACKAGES_CHECK( myThid )
128    
129  C--   Call fixed data initialization phase of packages  C--   Set Bo_surf => define the Linear Relation: Phi_surf(eta)
130        CALL PACKAGES_INIT_FIXED( myThid )        CALL INI_LINEAR_PHISURF( myThid )
131    
132  #ifdef ALLOW_ZONAL_FILT  C--   Set coriolis operators
133  C--   Latitude circle filter initialisation        CALL INI_CORI( myThid )
       CALL ZONAL_FILT_INIT(myThid)  
       _BARRIER  
 #endif  
134    
135  C--   Set laplace operators for use in 2D conjugate gradient solver.  C--   Set laplace operators for use in 2D conjugate gradient solver.
136        CALL INI_CG2D( myThid )        CALL INI_CG2D( myThid )
137    
138  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
139  C--   Set laplace operators for use in 3D conjugate gradient solver.  C--   Set laplace operators for use in 3D conjugate gradient solver.
140    ceh3 needs an IF ( useNONHYDROSTATIC ) THEN
141        CALL INI_CG3D( myThid )        CALL INI_CG3D( myThid )
142  #endif  #endif
143    
# Line 135  C--   Check parameters and model cofigur Line 147  C--   Check parameters and model cofigur
147  C--   Finally summarise the model cofiguration  C--   Finally summarise the model cofiguration
148        CALL CONFIG_SUMMARY( myThid )        CALL CONFIG_SUMMARY( myThid )
149    
150    #ifdef COMPONENT_MODULE
151    C--   Post component-model configuration information to coupler
152    C     and get config. info for other component(s).
153          IF ( useCoupler ) CALL CPL_EXCH_CONFIGS( myThid )
154    #endif
155    
156    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
157    
158          RETURN
159        END        END
Legend:
Removed from v.1.8.4.1  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22