/[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.26 by edhill, Sat Mar 20 23:51:23 2004 UTC revision 1.40 by jmc, Wed Apr 6 18:29:53 2005 UTC
# Line 29  C     INITIALISE_FIXED Line 29  C     INITIALISE_FIXED
29  C      |  C      |
30  C      |-- INI_PARMS  C      |-- INI_PARMS
31  C      |  C      |
32    C      |-- PACKAGES_BOOT
33    C      |
34    C      |-- PACKAGES_READPARMS
35    C      | |
36    C      | | - MNC_INIT + MNC_CW_INIT
37    C      | |
38    C      | | - ${PKG}_READPARMS
39    C      |
40  C      |-- MON_INIT  C      |-- MON_INIT
41  C      |  C      |
42  C      |-- INI_GRID  C      |-- INI_GRID
43  C      |  C      |
 C      |-- INI_EOS  
 C      |  
44  C      |-- INI_DEPTHS  C      |-- INI_DEPTHS
45  C      |  C      |
46  C      |-- INI_MASKS_ETC  C      |-- INI_EOS
 C      |  
 C      |-- PACKAGES_BOOT  
47  C      |  C      |
48  C      |-- PACKAGES_READPARMS  C      |-- INI_MASKS_ETC
49  C      |  C      |
50  C      |-- PACKAGES_INIT_FIXED  C      |-- PACKAGES_INIT_FIXED
51  C      |  C      |
# Line 58  C      | Line 62  C      |
62  C      |-- CONFIG_CHECK  C      |-- CONFIG_CHECK
63  C      |  C      |
64  C      |-- CONFIG_SUMMARY  C      |-- CONFIG_SUMMARY
65    C      |
66    C      |-- INI_MODEL_IO
67    C      |
68    C      |-- WRITE_GRID
69    C      |
70    C      |-- CPL_EXCH_CONFIGS
71    
72  C     !USES:  C     !USES:
73        IMPLICIT NONE        IMPLICIT NONE
# Line 77  C     an input file called data. Line 87  C     an input file called data.
87        CALL INI_PARMS( myThid )        CALL INI_PARMS( myThid )
88        _BARRIER        _BARRIER
89    
90  #ifdef ALLOW_MNC  C--   Configure packages
91  C     Initialize MNC look-up tables        CALL PACKAGES_BOOT( myThid )
92        write(*,*) 'INITIALISE_FIXED: useMNC = ',useMNC  
93        IF (useMNC) THEN  C--   Read configuration parameters for packages
94          CALL MNC_INIT(myThid)        CALL PACKAGES_READPARMS( myThid )
         CALL MNC_CW_INIT(sNx,sNy,OLx,OLy,nSx,nSy,nPx,nPy,Nr, myThid)  
         CALL INI_MNC_IO(myThid)  
         IF ( mnc_echo_gtypes ) THEN  
           CALL MNC_CW_DUMP( myThid )  
         ENDIF  
       ENDIF  
 #endif  
95    
96  #ifdef ALLOW_MONITOR  #ifdef ALLOW_MONITOR
97  C--   Initialise MONITOR I/O streams so we can report config. info  C--   Initialise MONITOR I/O streams so we can report config. info
# Line 114  C     Volumes and areas are set accordin Line 117  C     Volumes and areas are set accordin
117        CALL INI_MASKS_ETC( myThid )        CALL INI_MASKS_ETC( myThid )
118        _BARRIER        _BARRIER
119    
 C--   Configure packages  
       CALL PACKAGES_BOOT( myThid )  
   
 C--   Read configuration parameters for packages  
       CALL PACKAGES_READPARMS( myThid )  
   
120  C--   Call fixed data initialization phase of packages  C--   Call fixed data initialization phase of packages
121        CALL PACKAGES_INIT_FIXED( myThid )        CALL PACKAGES_INIT_FIXED( myThid )
122    
# Line 147  C--   Check parameters and model cofigur Line 144  C--   Check parameters and model cofigur
144  C--   Finally summarise the model cofiguration  C--   Finally summarise the model cofiguration
145        CALL CONFIG_SUMMARY( myThid )        CALL CONFIG_SUMMARY( myThid )
146    
147    C--   Write units/set precision/etc for I/O of variables/arrays belonging
148    C     to the core dynamical model
149          CALL INI_MODEL_IO( myThid )
150    
151    C--   Write grid data and geometry arrays
152    #ifdef MINIMAL_TAVE_OUTPUT
153          IF ( startTime .EQ. baseTime ) CALL WRITE_GRID( myThid )
154    #else
155          CALL WRITE_GRID( myThid )
156    #endif /* MINIMAL_TAVE_OUTPUT */
157    
158  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
159  C--   Post component-model configuration information to coupler  C--   Post component-model configuration information to coupler
160  C     and get config. info for other component(s).  C     and get config. info for other component(s).
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.40
  ViewVC Help
Powered by ViewVC 1.1.22