/[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.36 by edhill, Wed Oct 13 04:37:37 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 58  C      | Line 60  C      |
60  C      |-- CONFIG_CHECK  C      |-- CONFIG_CHECK
61  C      |  C      |
62  C      |-- CONFIG_SUMMARY  C      |-- CONFIG_SUMMARY
63    C      |
64    C      |-- INI_MODEL_IO
65    C      |
66    C      |-- WRITE_GRID
67    
68  C     !USES:  C     !USES:
69        IMPLICIT NONE        IMPLICIT NONE
# Line 65  C     == Global variables == Line 71  C     == Global variables ==
71  #include "SIZE.h"  #include "SIZE.h"
72  #include "EEPARAMS.h"  #include "EEPARAMS.h"
73  #include "PARAMS.h"  #include "PARAMS.h"
74    #ifdef ALLOW_MNC
75    #include "MNC_PARAMS.h"
76    #endif
77    
78  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
79  C     == Routine arguments ==  C     == Routine arguments ==
# Line 79  C     an input file called data. Line 88  C     an input file called data.
88    
89  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
90  C     Initialize MNC look-up tables  C     Initialize MNC look-up tables
       write(*,*) 'INITIALISE_FIXED: useMNC = ',useMNC  
91        IF (useMNC) THEN        IF (useMNC) THEN
92          CALL MNC_INIT(myThid)          CALL MNC_INIT(myThid)
93          CALL MNC_CW_INIT(sNx,sNy,OLx,OLy,nSx,nSy,nPx,nPy,Nr, myThid)          CALL MNC_CW_INIT(sNx,sNy,OLx,OLy,nSx,nSy,nPx,nPy,
94          CALL INI_MNC_IO(myThid)       &       Nr,myThid)
95          IF ( mnc_echo_gtypes ) THEN          IF ( mnc_echo_gvtypes ) THEN
96            CALL MNC_CW_DUMP( myThid )            CALL MNC_CW_DUMP( myThid )
97          ENDIF          ENDIF
98        ENDIF        ENDIF
# Line 147  C--   Check parameters and model cofigur Line 155  C--   Check parameters and model cofigur
155  C--   Finally summarise the model cofiguration  C--   Finally summarise the model cofiguration
156        CALL CONFIG_SUMMARY( myThid )        CALL CONFIG_SUMMARY( myThid )
157    
158    C--   Write units/set precision/etc for I/O of variables/arrays belonging
159    C     to the core dynamical model
160          CALL INI_MODEL_IO( myThid )
161    
162    C--   Write grid data and geometry arrays
163          CALL WRITE_GRID( myThid )
164    
165  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
166  C--   Post component-model configuration information to coupler  C--   Post component-model configuration information to coupler
167  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.36
  ViewVC Help
Powered by ViewVC 1.1.22