/[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.25 by edhill, Fri Mar 19 03:28:36 2004 UTC revision 1.26 by edhill, Sat Mar 20 23:51:23 2004 UTC
# Line 77  C     an input file called data. Line 77  C     an input file called data.
77        CALL INI_PARMS( myThid )        CALL INI_PARMS( myThid )
78        _BARRIER        _BARRIER
79    
80    #ifdef ALLOW_MNC
81    C     Initialize MNC look-up tables
82          write(*,*) 'INITIALISE_FIXED: useMNC = ',useMNC
83          IF (useMNC) THEN
84            CALL MNC_INIT(myThid)
85            CALL MNC_CW_INIT(sNx,sNy,OLx,OLy,nSx,nSy,nPx,nPy,Nr, myThid)
86            CALL INI_MNC_IO(myThid)
87            IF ( mnc_echo_gtypes ) THEN
88              CALL MNC_CW_DUMP( myThid )
89            ENDIF
90          ENDIF
91    #endif
92    
93  #ifdef ALLOW_MONITOR  #ifdef ALLOW_MONITOR
94  C--   Initialise MONITOR I/O streams so we can report config. info  C--   Initialise MONITOR I/O streams so we can report config. info
95        CALL MON_INIT( myThid )        CALL MON_INIT( myThid )
96        _BARRIER        _BARRIER
97  #endif  #endif
98    
   
99  C--   Set model grid.  C--   Set model grid.
100  C     Variables defining model grid spacing are defined.  C     Variables defining model grid spacing are defined.
101        CALL INI_GRID( myThid )        CALL INI_GRID( myThid )
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22