/[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.17 by edhill, Wed Dec 17 04:02:20 2003 UTC revision 1.26 by edhill, Sat Mar 20 23:51:23 2004 UTC
# Line 58  C      | Line 58  C      |
58  C      |-- CONFIG_CHECK  C      |-- CONFIG_CHECK
59  C      |  C      |
60  C      |-- CONFIG_SUMMARY  C      |-- CONFIG_SUMMARY
 C      |  
 C      |-- NETCDF_WRITEGRID  
61    
62  C     !USES:  C     !USES:
63        IMPLICIT NONE        IMPLICIT NONE
# Line 79  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 )
# Line 143  C     and get config. info for other com Line 153  C     and get config. info for other com
153        IF ( useCoupler ) CALL CPL_EXCH_CONFIGS( myThid )        IF ( useCoupler ) CALL CPL_EXCH_CONFIGS( myThid )
154  #endif  #endif
155    
156  #ifdef ALLOW_NETCDF  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
 C     Test NETCDF_WRITEGRID  
       CALL NETCDF_WRITEGRID( 'test', myThid )  
 #endif  
157    
158        RETURN        RETURN
159        END        END
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22