/[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.39 by dimitri, Thu Dec 9 19:45:53 2004 UTC revision 1.40 by jmc, Wed Apr 6 18:29:53 2005 UTC
# Line 150  C     to the core dynamical model Line 150  C     to the core dynamical model
150    
151  C--   Write grid data and geometry arrays  C--   Write grid data and geometry arrays
152  #ifdef MINIMAL_TAVE_OUTPUT  #ifdef MINIMAL_TAVE_OUTPUT
153        IF ( startTime .EQ. 0.0 ) CALL WRITE_GRID( myThid )        IF ( startTime .EQ. baseTime ) CALL WRITE_GRID( myThid )
154  #else  #else
155        CALL WRITE_GRID( myThid )        CALL WRITE_GRID( myThid )
156  #endif /* MINIMAL_TAVE_OUTPUT */  #endif /* MINIMAL_TAVE_OUTPUT */
Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40
  ViewVC Help
Powered by ViewVC 1.1.22