/[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.18 by edhill, Thu Jan 15 04:31:24 2004 UTC revision 1.33 by adcroft, Fri Jul 9 14:24:19 2004 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      |-- MNC_INIT + MNC_CW_INIT
33    C      |
34  C      |-- MON_INIT  C      |-- MON_INIT
35  C      |  C      |
36  C      |-- INI_GRID  C      |-- INI_GRID
# Line 59  C      |-- CONFIG_CHECK Line 61  C      |-- CONFIG_CHECK
61  C      |  C      |
62  C      |-- CONFIG_SUMMARY  C      |-- CONFIG_SUMMARY
63  C      |  C      |
64  C      |-- MNC_W_GRIDINFO  C      |-- INI_MODEL_IO
65    C      |
66    C      |-- WRITE_GRID
67    
68  C     !USES:  C     !USES:
69        IMPLICIT NONE        IMPLICIT NONE
# Line 79  C     an input file called data. Line 83  C     an input file called data.
83        CALL INI_PARMS( myThid )        CALL INI_PARMS( myThid )
84        _BARRIER        _BARRIER
85    
86    #ifdef ALLOW_MNC
87    C     Initialize MNC look-up tables
88          IF (useMNC) THEN
89            CALL MNC_INIT(myThid)
90            CALL MNC_CW_INIT(sNx,sNy,OLx,OLy,nSx,nSy,nPx,nPy,
91         &       Nr,myThid)
92            IF ( mnc_echo_gvtypes ) THEN
93              CALL MNC_CW_DUMP( myThid )
94            ENDIF
95          ENDIF
96    #endif
97    
98  #ifdef ALLOW_MONITOR  #ifdef ALLOW_MONITOR
99  C--   Initialise MONITOR I/O streams so we can report config. info  C--   Initialise MONITOR I/O streams so we can report config. info
100        CALL MON_INIT( myThid )        CALL MON_INIT( myThid )
101        _BARRIER        _BARRIER
102  #endif  #endif
103    
   
104  C--   Set model grid.  C--   Set model grid.
105  C     Variables defining model grid spacing are defined.  C     Variables defining model grid spacing are defined.
106        CALL INI_GRID( myThid )        CALL INI_GRID( myThid )
# Line 137  C--   Check parameters and model cofigur Line 152  C--   Check parameters and model cofigur
152  C--   Finally summarise the model cofiguration  C--   Finally summarise the model cofiguration
153        CALL CONFIG_SUMMARY( myThid )        CALL CONFIG_SUMMARY( myThid )
154    
155    C--   Write units/set precision/etc for I/O of variables/arrays belonging
156    C     to the core dynamical model
157          CALL INI_MODEL_IO( myThid )
158    
159    C--   Write grid data and geometry arrays
160          CALL WRITE_GRID( myThid )
161    
162  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
163  C--   Post component-model configuration information to coupler  C--   Post component-model configuration information to coupler
164  C     and get config. info for other component(s).  C     and get config. info for other component(s).
165        IF ( useCoupler ) CALL CPL_EXCH_CONFIGS( myThid )        IF ( useCoupler ) CALL CPL_EXCH_CONFIGS( myThid )
166  #endif  #endif
167    
168  #ifdef ALLOW_MNC  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
 C     Test MNC  
       CALL MNC_INIT(myThid)  
       CALL MNC_W_GRIDINFO(myThid, 'test')  
 #endif  
169    
170        RETURN        RETURN
171        END        END
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.33
  ViewVC Help
Powered by ViewVC 1.1.22