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

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

Parent Directory | 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.11.4.1 by heimbach,
Wed Feb  6 15:48:06 2002 UTC
 Line 1
  C $Header$
+ C $Name$
  #include "CPP_EEOPTIONS.h"
-Line 13 
 C--   TIMER_STOP      - Stop CPU tier fo
+Line 14 
 C--   TIMER_STOP      - Stop CPU tier fo
  C--   Routines marked "M" contain specific machine dependent code.
  C--   Routines marked "U" contain UNIX OS calls.
- CStartOfInterface
+ CGG   Modified following A. Biastoch for use with SP3. Is backwards
+ CGG   compatible. G. Gebbie, gebbie@mit.edu, 20 Oct 2001, Scripps.
+ CBOP
+ C     !ROUTINE: TIMER_INDEX
+ C     !INTERFACE:
        INTEGER FUNCTION TIMER_INDEX (
       I        name,timerNames,maxTimers,nTimers )
- C     /==========================================================\
+       IMPLICIT NONE
- C     | FUNCTION TIMER_INDEX                                     |
- C     | o Timing support routine.                                |
+ C     !DESCRIPTION:
- C     |==========================================================|
+ C     *==========================================================*
- C     | Return index in timer data structure of timer named      |
+ C     | FUNCTION TIMER_INDEX
- C     | by the function argument "name".                         |
+ C     | o Timing support routine.
- C     \==========================================================/
+ C     *==========================================================*
+ C     | Return index in timer data structure of timer named
+ C     | by the function argument "name".
+ C     *==========================================================*
+ C     !INPUT/OUTPUT PARAMETERS:
+ C     == Routine arguements ==
+ C     maxTimers  :: Total number of timers allowed
+ C     nTimers    :: Current number of timers
+ C     name       :: Name of timer to find
+ C     timerNames :: List of valid timer names
        INTEGER maxTimers
        INTEGER nTimers
        CHARACTER*(*) name
        CHARACTER*(*) timerNames(maxTimers)
- CEndOfInterface
+ C     !LOCAL VARIABLES:
+ C     == Local variables ==
+ C     I :: Index variable
        INTEGER I
+ CEOP
  C
        TIMER_INDEX = 0
        IF ( name .EQ. ' ' ) THEN
-Line 44 
 C
+Line 65 
 C
        RETURN
        END
- CStartOfInterface
+ CBOP
+ C     !ROUTINE: TIMER_CONTROL
+ C     !INTERFACE:
        SUBROUTINE TIMER_CONTROL ( name , action , callProc , myThreadId )
- C     /==========================================================\
+       IMPLICIT NONE
+ C     !DESCRIPTION:
+ C     *==========================================================*
  C     | SUBROUTINE TIMER_CONTROL                                 |
  C     | o Timing routine.                                        |
- C     |==========================================================|
+ C     *==========================================================*
  C     | User callable interface to timing routines. Timers are   |
  C     | created, stopped, started and queried only through this  |
  C     | rtouine.                                                 |
- C     \==========================================================/
+ C     *==========================================================*
+ C     !USES:
  #include "SIZE.h"
  #include "EEPARAMS.h"
  #include "EESUPPORT.h"
-       CHARACTER*(*) name
-       CHARACTER*(*) action
-       CHARACTER*(*) callProc
-       INTEGER myThreadId
- CEndOfInterface
- C
        INTEGER  TIMER_INDEX
        INTEGER  IFNBLNK
        INTEGER  ILNBLNK
        EXTERNAL TIMER_INDEX
        EXTERNAL IFNBLNK
        EXTERNAL ILNBLNK
+ C     !INPUT/OUTPUT PARAMETERS:
+ C     name       :: name of the timer
+ C     action     :: operation to perform with this timer
+ C     callProc   :: procedure calling this routine
+ C     myThreadId :: instance number of this thread
+       CHARACTER*(*) name
+       CHARACTER*(*) action
+       CHARACTER*(*) callProc
+       INTEGER myThreadId
  C
+ C     !LOCAL VARIABLES:
+ C     maxTimers :: Total numer of timer allowed
+ C     maxString :: Max length of a timer name
        INTEGER maxTimers
        INTEGER maxString
        PARAMETER ( maxTimers = 40 )
        PARAMETER ( maxString = 80 )
- C
+ C     timerStarts :: Timer counters for each timer and each thread
+ C     timerStops
+ C     timerUser
+ C     timerWall
+ C     timerSys
+ C     timerT0User
+ C     timerT0Wall
+ C     timerT0Sys
+ C     timerStatus  :: START/STOP/RUNNING Status of the timer
+ C     timerNameLen :: Length of timer name
+ C     timerNames   :: Table of timer names
+ C     nTimers      :: Number of active timers
        INTEGER timerStarts( maxTimers , MAX_NO_THREADS)
        SAVE    timerStarts
        INTEGER timerStops ( maxTimers , MAX_NO_THREADS)
-Line 91 
 C
+Line 138 
 C
        SAVE timerT0Wall
        Real*8 timerT0Sys ( maxTimers , MAX_NO_THREADS)
        SAVE timerT0Sys
- C     ===============================================================
- C
        INTEGER timerStatus( maxTimers , MAX_NO_THREADS)
        SAVE    timerStatus
        INTEGER timerNameLen( maxTimers , MAX_NO_THREADS)
        SAVE    timerNameLen
        CHARACTER*(maxString) timerNames( maxTimers , MAX_NO_THREADS)
        SAVE                  timerNames
-       CHARACTER*(maxString) timerAction
        INTEGER nTimers(MAX_NO_THREADS)
        CHARACTER*(maxString) tmpName
        CHARACTER*(maxString) tmpAction
-Line 123 
 C
+Line 167 
 C
        Real*8 systemTime
        Real*8 wallClockTime
        CHARACTER*(MAX_LEN_MBUF) msgBuffer
- C
        DATA nTimers  /MAX_NO_THREADS*0/
        SAVE nTimers
+ CEOP
  C
        ISTART = IFNBLNK(name)
        IEND   = ILNBLNK(name)
-Line 393 
 C
+Line 437 
 C
        GOTO 1000
        END
- CStartOfInterface
+ CBOP
+ C     !ROUTINE: TIMER_GET_TIME
+ C     !INTERFACE:
        SUBROUTINE TIMER_GET_TIME(
       O                           userTime,
       O                           systemTime,
       O                           wallClockTime )
- C     /==========================================================\
+       IMPLICIT NONE
- C     | SUBROUTINE TIMER_GET_TIME                                |
- C     | o Query system timer routines.                           |
+ C     !DESCRIPTION:
- C     |==========================================================|
+ C     *==========================================================*
- C     | Routine returns total elapsed time for program so far.   |
+ C     | SUBROUTINE TIMER_GET_TIME
- C     | Three times are returned that conventionally are used as |
+ C     | o Query system timer routines.
- C     | user time, system time and wall-clock time. Not all these|
+ C     *==========================================================*
- C     | numbers are available on all machines.                   |
+ C     | Routine returns total elapsed time for program so far.
- C     \==========================================================/
+ C     | Three times are returned that conventionally are used as
+ C     | user time, system time and wall-clock time. Not all these
+ C     | numbers are available on all machines.
+ C     *==========================================================*
+ C     !INPUT/OUTPUT PARAMETERS:
+ C     userTime      :: User time returned
+ C     systemTime    :: System time returned
+ C     wallClockTime :: Wall clock time returned
        Real*8 userTime
        Real*8 systemTime
        Real*8 wallClockTime
- CEndOfInterface
-       Real*4 ETIME, ACTUAL, TARRAY(2)
+ C     !USES:
+ #ifndef TARGET_T3E
+ # ifndef TARGET_CRAY_VECTOR
+ #  ifdef TARGET_PWR3
+       Real*8 system_time, user_time, timenow
+ #  else
+       Real*4 ETIME
        EXTERNAL ETIME
+ #  endif
+ # endif
+ #endif
+ C     !LOCAL VARIABLES:
+ C     ACTUAL, TARRAY, :: Temps. to hold times
+ C     wTime
+       Real*4 ACTUAL, TARRAY(2)
        Real*8 wtime
+ CEOP
  C     Real*8 MPI_Wtime
  C     EXTERNAL MPI_Wtime
+ #if (defined (TARGET_PWR3))
+       userTime      = user_time()
+       systemTime    = system_time()
+       wallClockTime = timenow()
+ #elif (defined (TARGET_T3E) || defined (TARGET_CRAY_VECTOR))
+       userTime      = 0.
+       systemTime    = 0.
+       wallClockTime = 0.
+ #else
        ACTUAL = ETIME(TARRAY)
        userTime      = TARRAY(1)
        systemTime    = TARRAY(2)
        CALL CLOC(wTime)
        wallClockTime = wtime
+ #endif
  #ifdef ALLOW_USE_MPI
  C     wtime         = MPI_Wtime()
-Line 435 
 C     wallClockTime = 0.
+Line 515 
 C     wallClockTime = 0.
        RETURN
        END
- CStartOfInterface
+ CBOP
+ C     !ROUTINE: TIMER_PRINTALL
+ C     !INTERFACE:
        SUBROUTINE TIMER_PRINTALL( myThreadId )
- C     /==========================================================\
+       IMPLICIT NONE
- C     | SUBROUTINE TIMER_PRINTALL                                |
- C     | o Print timer information                                |
+ C     !DESCRIPTION:
- C     |==========================================================|
+ C     *==========================================================*
- C     | Request print out of table of timing from all timers.    |
+ C     | SUBROUTINE TIMER_PRINTALL
- C     \==========================================================/
+ C     | o Print timer information
+ C     *==========================================================*
+ C     | Request print out of table of timing from all timers.
+ C     *==========================================================*
+ C     !INPUT PARAMETERS:
+ C     myThreadId :: This threads number
        INTEGER myThreadId
- CEndOfInterface
+ CEOP
- C     Print out value for every timer.
- C
        CALL TIMER_CONTROL( ' ', 'PRINTALL', 'TIMER_PRINTALL' ,
       &                   myThreadId )
  C
        RETURN
        END
- C***********************************************************************
+ CBOP
+ C     !ROUTINE: TIMER_START
+ C     !INTERFACE:
        SUBROUTINE TIMER_START ( string , myThreadId )
- C     Return start timer named "string".
+       IMPLICIT NONE
+ C     !DESCRIPTION:
+ C     Start timer named "string".
+ C     !INPUT PARAMETERS:
+ C     string     :: Name of timer
+ C     myThreadId :: My thread number
        CHARACTER*(*) string
        INTEGER myThreadId
+ CEOP
  C
        CALL TIMER_CONTROL( string, 'START', 'TIMER_START' , myThreadId)
  C
        RETURN
        END
- C***********************************************************************
+ CBOP
+ C     !ROUTINE: TIMER_STOP
+ C     !INTERFACE:
        SUBROUTINE TIMER_STOP  ( string , myThreadId)
- C     Return start timer named "string".
+       IMPLICIT NONE
+ C     !DESCRIPTION:
+ C     Stop timer named "string".
+ C     !INPUT PARAMETERS:
+ C     string     :: Name of timer
+ C     myThreadId :: My thread number
        CHARACTER*(*) string
        INTEGER myThreadId
+ CEOP
  C
        CALL TIMER_CONTROL( string, 'STOP', 'TIMER_STOP' , myThreadId )
  C

 Legend:



Removed from v.1.4
 


changed lines


 
Added in v.1.11.4.1
 Legend:



Removed from v.1.4
 


changed lines


 
Added in v.1.11.4.1
-Removed from v.1.4
+Added in v.1.11.4.1

	ViewVC Help
Powered by ViewVC 1.1.22