/[MITgcm]/MITgcm/model/src/the_model_main.F
ViewVC logotype

Diff of /MITgcm/model/src/the_model_main.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.29 by adcroft, Fri Jul 30 15:43:00 1999 UTC revision 1.30 by adcroft, Fri Jul 30 15:46:49 1999 UTC
# Line 251  C--    Step forward W field in N-H algor Line 251  C--    Step forward W field in N-H algor
251  #endif  #endif
252    
253  C--   Do time averages  C--   Do time averages
254  #ifdef ALLOW_DIAGNOSTICS  #ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE
255        IF (taveFreq.GT.0.) THEN        IF (taveFreq.GT.0.) THEN
256         CALL TIMER_START('I/O (WRITE)        [SPIN-DOWN]',myThid)         CALL TIMER_START('I/O (WRITE)        [SPIN-DOWN]',myThid)
257         CALL WRITE_TIME_AVERAGES( myCurrentTime, myCurrentIter, myThid )         CALL WRITE_TIME_AVERAGES( myCurrentTime, myCurrentIter, myThid )
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22