/[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.28 by adcroft, Mon May 24 15:42:23 1999 UTC revision 1.30 by adcroft, Fri Jul 30 15:46:49 1999 UTC
# Line 105  C     myCurrentIter - Iteration counter Line 105  C     myCurrentIter - Iteration counter
105  C     myCurrentTime - Time counter for this thread  C     myCurrentTime - Time counter for this thread
106  C     I             - Loop counter  C     I             - Loop counter
107        INTEGER I, myCurrentIter        INTEGER I, myCurrentIter
108        REAL    myCurrentTime        _RL     myCurrentTime
       CHARACTER*(30) suff  
109    
110  C--   This timer encompasses the whole code  C--   This timer encompasses the whole code
111        CALL TIMER_START('ALL',myThid)        CALL TIMER_START('ALL',myThid)
# Line 252  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.28  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22