/[MITgcm]/MITgcm/eesupp/src/timers.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/timers.F

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

revision 1.4 by cnh, Wed Oct 28 03:11:35 1998 UTC revision 1.5 by adcroft, Mon May 24 15:15:11 1999 UTC
# Line 23  C     |================================= Line 23  C     |=================================
23  C     | Return index in timer data structure of timer named      |  C     | Return index in timer data structure of timer named      |
24  C     | by the function argument "name".                         |  C     | by the function argument "name".                         |
25  C     \==========================================================/  C     \==========================================================/
26          IMPLICIT NONE
27        INTEGER maxTimers        INTEGER maxTimers
28        INTEGER nTimers        INTEGER nTimers
29        CHARACTER*(*) name        CHARACTER*(*) name
# Line 54  C     | User callable interface to timin Line 55  C     | User callable interface to timin
55  C     | created, stopped, started and queried only through this  |  C     | created, stopped, started and queried only through this  |
56  C     | rtouine.                                                 |  C     | rtouine.                                                 |
57  C     \==========================================================/  C     \==========================================================/
58          IMPLICIT NONE
59  #include "SIZE.h"  #include "SIZE.h"
60  #include "EEPARAMS.h"  #include "EEPARAMS.h"
61  #include "EESUPPORT.h"  #include "EESUPPORT.h"
# Line 407  C     | Three times are returned that co Line 409  C     | Three times are returned that co
409  C     | user time, system time and wall-clock time. Not all these|  C     | user time, system time and wall-clock time. Not all these|
410  C     | numbers are available on all machines.                   |  C     | numbers are available on all machines.                   |
411  C     \==========================================================/  C     \==========================================================/
412          IMPLICIT NONE
413        Real*8 userTime        Real*8 userTime
414        Real*8 systemTime        Real*8 systemTime
415        Real*8 wallClockTime        Real*8 wallClockTime
# Line 443  C     | o Print timer information Line 446  C     | o Print timer information
446  C     |==========================================================|  C     |==========================================================|
447  C     | Request print out of table of timing from all timers.    |  C     | Request print out of table of timing from all timers.    |
448  C     \==========================================================/  C     \==========================================================/
449          IMPLICIT NONE
450        INTEGER myThreadId        INTEGER myThreadId
451  CEndOfInterface  CEndOfInterface
452  C     Print out value for every timer.  C     Print out value for every timer.
# Line 455  C Line 459  C
459  C***********************************************************************  C***********************************************************************
460        SUBROUTINE TIMER_START ( string , myThreadId )        SUBROUTINE TIMER_START ( string , myThreadId )
461  C     Return start timer named "string".  C     Return start timer named "string".
462          IMPLICIT NONE
463        CHARACTER*(*) string        CHARACTER*(*) string
464        INTEGER myThreadId        INTEGER myThreadId
465  C  C
# Line 465  C Line 470  C
470  C***********************************************************************  C***********************************************************************
471        SUBROUTINE TIMER_STOP  ( string , myThreadId)        SUBROUTINE TIMER_STOP  ( string , myThreadId)
472  C     Return start timer named "string".  C     Return start timer named "string".
473          IMPLICIT NONE
474        CHARACTER*(*) string        CHARACTER*(*) string
475        INTEGER myThreadId        INTEGER myThreadId
476  C  C
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22