/[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.19 by adcroft, Wed Jul 15 22:11:33 1998 UTC revision 1.20 by cnh, Tue Sep 29 18:50:57 1998 UTC
# Line 220  C--   Dump for end state Line 220  C--   Dump for end state
220        CALL TIMER_STOP ('ALL',myThid)        CALL TIMER_STOP ('ALL',myThid)
221    
222  C--   Write timer statistics  C--   Write timer statistics
223        IF ( myThid .EQ. 1 ) CALL TIMER_PRINTALL( myThid )        IF ( myThid .EQ. 1 ) THEN
224           CALL TIMER_PRINTALL( myThid )
225           CALL COMM_STATS
226          ENDIF
227    
228        RETURN        RETURN
229        END        END
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22