/[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.5 by cnh, Sun Feb 4 14:38:48 2001 UTC revision 1.18 by edhill, Thu Jan 15 04:31:24 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  CStartOfInterface  CBOP
8    C     !ROUTINE: INITIALISE_FIXED
9    C     !INTERFACE:
10        SUBROUTINE INITIALISE_FIXED(myThid)        SUBROUTINE INITIALISE_FIXED(myThid)
 C     /==========================================================\  
 C     | SUBROUTINE INITIALISE_FIXED                              |  
 C     | o Routine for setting fixed model arrays such as         |  
 C     |   topography, grid, solver matrices, etc.                |  
 C     |==========================================================|  
 C     | INITIALISE_FIXED is invoked at the start of the model to |  
 C     | set fixed model arrays. It reads data from an input file |  
 C     | and from various binary files.                           |  
 C     | Each thread invokes an instance of this routine as does  |  
 C     | each process in a multi-process parallel environment like|  
 C     | MPI.                                                     |  
 C     \==========================================================/  
       IMPLICIT NONE  
11    
12    C     !DESCRIPTION: \bv
13    C     *==========================================================*
14    C     | SUBROUTINE INITIALISE_FIXED                              
15    C     | o Routine for setting fixed model arrays such as          
16    C     |   topography, grid, solver matrices, etc.                
17    C     *==========================================================*
18    C     | INITIALISE_FIXED is invoked at the start of the model to  
19    C     | set fixed model arrays. It reads data from an input file  
20    C     | and from various binary files.                            
21    C     | Each thread invokes an instance of this routine as does  
22    C     | each process in a multi-process parallel environment like
23    C     | MPI.                                                      
24    C     *==========================================================*
25    C     \ev
26    
27    C     !CALLING SEQUENCE:
28    C     INITIALISE_FIXED
29    C      |
30    C      |-- INI_PARMS
31    C      |
32    C      |-- MON_INIT
33    C      |
34    C      |-- INI_GRID
35    C      |
36    C      |-- INI_EOS
37    C      |
38    C      |-- INI_DEPTHS
39    C      |
40    C      |-- INI_MASKS_ETC
41    C      |
42    C      |-- PACKAGES_BOOT
43    C      |
44    C      |-- PACKAGES_READPARMS
45    C      |
46    C      |-- PACKAGES_INIT_FIXED
47    C      |
48    C      |-- PACKAGES_CHECK
49    C      |
50    C      |-- INI_LINEAR_PHSURF
51    C      |
52    C      |-- INI_CORI
53    C      |
54    C      |-- INI_CG2D
55    C      |
56    C      |-- INI_CG3D
57    C      |
58    C      |-- CONFIG_CHECK
59    C      |
60    C      |-- CONFIG_SUMMARY
61    C      |
62    C      |-- MNC_W_GRIDINFO
63    
64    C     !USES:
65          IMPLICIT NONE
66  C     == Global variables ==  C     == Global variables ==
67  #include "SIZE.h"  #include "SIZE.h"
68  #include "EEPARAMS.h"  #include "EEPARAMS.h"
69  #include "PARAMS.h"  #include "PARAMS.h"
70    
71    C     !INPUT/OUTPUT PARAMETERS:
72  C     == Routine arguments ==  C     == Routine arguments ==
73        INTEGER myThid        INTEGER myThid
74  CEndOfInterface  CEOP
   
 C     == Local variables ==  
75    
76  C--   Set model parameters.  C--   Set model parameters.
77  C     Parameters are set to defaults and then updates are read from  C     Parameters are set to defaults and then updates are read from
# Line 36  C     an input file called data. Line 79  C     an input file called data.
79        CALL INI_PARMS( myThid )        CALL INI_PARMS( myThid )
80        _BARRIER        _BARRIER
81    
82    #ifdef ALLOW_MONITOR
83    C--   Initialise MONITOR I/O streams so we can report config. info
84          CALL MON_INIT( myThid )
85          _BARRIER
86    #endif
87    
88    
89  C--   Set model grid.  C--   Set model grid.
90  C     Variables defining model grid spacing are defined.  C     Variables defining model grid spacing are defined.
91        CALL INI_GRID( myThid )        CALL INI_GRID( myThid )
92        _BARRIER        _BARRIER
93    
94    C--   Set equation of state parameters.
95          CALL INI_EOS( myThid )
96          _BARRIER
97    
98  C--   Initialise map of depths  C--   Initialise map of depths
99        CALL INI_DEPTHS( myThid )        CALL INI_DEPTHS( myThid )
100        _BARRIER        _BARRIER
# Line 50  C     Volumes and areas are set accordin Line 104  C     Volumes and areas are set accordin
104        CALL INI_MASKS_ETC( myThid )        CALL INI_MASKS_ETC( myThid )
105        _BARRIER        _BARRIER
106    
 C--   Set coriolis operators  
       CALL INI_CORI( myThid )  
   
107  C--   Configure packages  C--   Configure packages
108        CALL PACKAGES_BOOT( myThid )        CALL PACKAGES_BOOT( myThid )
109    
110  C--   Read configuration parameters for packages  C--   Read configuration parameters for packages
111        CALL PACKAGES_READPARMS( myThid )        CALL PACKAGES_READPARMS( myThid )
112    
113    C--   Call fixed data initialization phase of packages
114          CALL PACKAGES_INIT_FIXED( myThid )
115    
116  C--   Check dependances between packages  C--   Check dependances between packages
117        CALL PACKAGES_CHECK( myThid )        CALL PACKAGES_CHECK( myThid )
118    
119  C--   Call fixed data initialization phase of packages  C--   Set Bo_surf => define the Linear Relation: Phi_surf(eta)
120        CALL PACKAGES_INIT_FIXED( myThid )        CALL INI_LINEAR_PHISURF( myThid )
121    
122  #ifdef ALLOW_ZONAL_FILT  C--   Set coriolis operators
123  C--   Latitude circle filter initialisation        CALL INI_CORI( myThid )
       CALL ZONAL_FILT_INIT(myThid)  
       _BARRIER  
 #endif  
124    
125  C--   Set laplace operators for use in 2D conjugate gradient solver.  C--   Set laplace operators for use in 2D conjugate gradient solver.
126        CALL INI_CG2D( myThid )        CALL INI_CG2D( myThid )
127    
128  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
129  C--   Set laplace operators for use in 3D conjugate gradient solver.  C--   Set laplace operators for use in 3D conjugate gradient solver.
130    ceh3 needs an IF ( useNONHYDROSTATIC ) THEN
131        CALL INI_CG3D( myThid )        CALL INI_CG3D( myThid )
132  #endif  #endif
133    
134    C--   Check parameters and model cofiguration
135          CALL CONFIG_CHECK( myThid )
136    
137  C--   Finally summarise the model cofiguration  C--   Finally summarise the model cofiguration
138        CALL CONFIG_SUMMARY( myThid )        CALL CONFIG_SUMMARY( myThid )
139    
140    #ifdef COMPONENT_MODULE
141    C--   Post component-model configuration information to coupler
142    C     and get config. info for other component(s).
143          IF ( useCoupler ) CALL CPL_EXCH_CONFIGS( myThid )
144    #endif
145    
146    #ifdef ALLOW_MNC
147    C     Test MNC
148          CALL MNC_INIT(myThid)
149          CALL MNC_W_GRIDINFO(myThid, 'test')
150    #endif
151    
152          RETURN
153        END        END
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22