/[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.47 by jmc, Tue Oct 17 18:52:34 2006 UTC revision 1.48 by jmc, Mon Apr 7 21:12:46 2008 UTC
# Line 7  C $Name$ Line 7  C $Name$
7  CBOP  CBOP
8  C     !ROUTINE: INITIALISE_FIXED  C     !ROUTINE: INITIALISE_FIXED
9  C     !INTERFACE:  C     !INTERFACE:
10        SUBROUTINE INITIALISE_FIXED(myThid)        SUBROUTINE INITIALISE_FIXED( myThid )
11    
12  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
13  C     *==========================================================*  C     *==========================================================*
# Line 55  C      |-- INI_MASKS_ETC Line 55  C      |-- INI_MASKS_ETC
55  C      |  C      |
56  C      |-- PACKAGES_INIT_FIXED  C      |-- PACKAGES_INIT_FIXED
57  C      |  C      |
 C      |-- PACKAGES_CHECK  
 C      |  
58  C      |-- INI_LINEAR_PHSURF  C      |-- INI_LINEAR_PHSURF
59  C      |  C      |
60  C      |-- INI_CORI  C      |-- INI_CORI
# Line 65  C      |-- INI_CG2D Line 63  C      |-- INI_CG2D
63  C      |  C      |
64  C      |-- INI_CG3D  C      |-- INI_CG3D
65  C      |  C      |
 C      |-- CONFIG_CHECK  
 C      |  
66  C      |-- CONFIG_SUMMARY  C      |-- CONFIG_SUMMARY
67  C      |  C      |
68    C      |-- PACKAGES_CHECK
69    C      |
70    C      |-- CONFIG_CHECK
71    C      |
72  C      |-- WRITE_GRID  C      |-- WRITE_GRID
73  C      |  C      |
74  C      |-- CPL_EXCH_CONFIGS  C      |-- CPL_EXCH_CONFIGS
# Line 141  C--   Synchronize all threads after sett Line 141  C--   Synchronize all threads after sett
141  C--   Call fixed data initialization phase of packages  C--   Call fixed data initialization phase of packages
142        CALL PACKAGES_INIT_FIXED( myThid )        CALL PACKAGES_INIT_FIXED( myThid )
143    
 C--   Check dependances between packages  
       CALL PACKAGES_CHECK( myThid )  
   
144  C--   Set Bo_surf => define the Linear Relation: Phi_surf(eta)  C--   Set Bo_surf => define the Linear Relation: Phi_surf(eta)
145        CALL INI_LINEAR_PHISURF( myThid )        CALL INI_LINEAR_PHISURF( myThid )
146    
# Line 155  C--   Set laplace operators for use in 2 Line 152  C--   Set laplace operators for use in 2
152    
153  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
154  C--   Set laplace operators for use in 3D conjugate gradient solver.  C--   Set laplace operators for use in 3D conjugate gradient solver.
 ceh3 needs an IF ( useNONHYDROSTATIC ) THEN  
155        CALL INI_CG3D( myThid )        CALL INI_CG3D( myThid )
156  #endif  #endif
157    
158  C--   Check parameters and model cofiguration  C--   Finally summarise the model configuration
       CALL CONFIG_CHECK( myThid )  
   
 C--   Finally summarise the model cofiguration  
159        CALL CONFIG_SUMMARY( myThid )        CALL CONFIG_SUMMARY( myThid )
160    
161    C--   Check packages configuration (& print summary)
162          CALL PACKAGES_CHECK( myThid )
163    
164    C--   Check parameters and model configuration
165          CALL CONFIG_CHECK( myThid )
166    
167  C--   Write grid data and geometry arrays  C--   Write grid data and geometry arrays
168        IF ( debugLevel.GE.debLevA .OR.        IF ( debugLevel.GE.debLevA .OR.
169       &     startTime.EQ.baseTime ) CALL WRITE_GRID( myThid )       &     startTime.EQ.baseTime ) CALL WRITE_GRID( myThid )
Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48
  ViewVC Help
Powered by ViewVC 1.1.22