/[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.18 by edhill, Thu Jan 15 04:31:24 2004 UTC
# Line 59  C      |-- CONFIG_CHECK Line 59  C      |-- CONFIG_CHECK
59  C      |  C      |
60  C      |-- CONFIG_SUMMARY  C      |-- CONFIG_SUMMARY
61  C      |  C      |
62  C      |-- NETCDF_WRITEGRID  C      |-- MNC_W_GRIDINFO
63    
64  C     !USES:  C     !USES:
65        IMPLICIT NONE        IMPLICIT NONE
# Line 143  C     and get config. info for other com Line 143  C     and get config. info for other com
143        IF ( useCoupler ) CALL CPL_EXCH_CONFIGS( myThid )        IF ( useCoupler ) CALL CPL_EXCH_CONFIGS( myThid )
144  #endif  #endif
145    
146  #ifdef ALLOW_NETCDF  #ifdef ALLOW_MNC
147  C     Test NETCDF_WRITEGRID  C     Test MNC
148        CALL NETCDF_WRITEGRID( 'test', myThid )        CALL MNC_INIT(myThid)
149          CALL MNC_W_GRIDINFO(myThid, 'test')
150  #endif  #endif
151    
152        RETURN        RETURN
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22