/[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.16 by jmc, Mon Dec 15 02:07:29 2003 UTC revision 1.17 by edhill, Wed Dec 17 04:02:20 2003 UTC
# Line 58  C      | Line 58  C      |
58  C      |-- CONFIG_CHECK  C      |-- CONFIG_CHECK
59  C      |  C      |
60  C      |-- CONFIG_SUMMARY  C      |-- CONFIG_SUMMARY
61    C      |
62    C      |-- NETCDF_WRITEGRID
63    
64  C     !USES:  C     !USES:
65        IMPLICIT NONE        IMPLICIT NONE
# Line 141  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
147    C     Test NETCDF_WRITEGRID
148          CALL NETCDF_WRITEGRID( 'test', myThid )
149    #endif
150    
151        RETURN        RETURN
152        END        END
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22