/[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.38 by jmc, Thu Dec 9 17:17:00 2004 UTC revision 1.39 by dimitri, Thu Dec 9 19:45:53 2004 UTC
# Line 149  C     to the core dynamical model Line 149  C     to the core dynamical model
149        CALL INI_MODEL_IO( myThid )        CALL INI_MODEL_IO( myThid )
150    
151  C--   Write grid data and geometry arrays  C--   Write grid data and geometry arrays
152    #ifdef MINIMAL_TAVE_OUTPUT
153          IF ( startTime .EQ. 0.0 ) CALL WRITE_GRID( myThid )
154    #else
155        CALL WRITE_GRID( myThid )        CALL WRITE_GRID( myThid )
156    #endif /* MINIMAL_TAVE_OUTPUT */
157    
158  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
159  C--   Post component-model configuration information to coupler  C--   Post component-model configuration information to coupler
Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39
  ViewVC Help
Powered by ViewVC 1.1.22