4.28 Fortran: Module Interface ice_timers (Source File: ice_timers.F)

Timing routines

REVISION HISTORY:

   author: Tony Craig, NCAR

INTERFACE:

       module ice_timers

DESCRIPTION:

Timing routines

REVISION HISTORY:

   author: Tony Craig, NCAR

USES:

       use ice_kinds_mod
       use ice_constants
       implicit none

4.28.1 ice_timer_clear(n) - initialize timer n to 0

INTERFACE:

       subroutine ice_timer_clear(n)

DESCRIPTION:

Initialize timer n to 0
if n = -1 initialize all timers

REVISION HISTORY:

   author: Tony Craig, NCAR

USES:

INPUT/OUTPUT PARAMETERS:

       integer (kind=int_kind), intent(in) :: n

4.28.2 ice_timer_start(n) - begin timing with timer n

INTERFACE:

       subroutine ice_timer_start(n)

DESCRIPTION:

Begin timing with timer n

REVISION HISTORY:

   author: Tony Craig, NCAR

USES:

INPUT/OUTPUT PARAMETERS:

       integer (kind=int_kind), intent(in) :: n

4.28.3 ice_timer_stop(n) - end (or pause) timing with timer n

INTERFACE:

       subroutine ice_timer_stop(n)

DESCRIPTION:

End (or pause) timing with timer n

REVISION HISTORY:

   author: Tony Craig, NCAR

USES:

INPUT/OUTPUT PARAMETERS:

       integer (kind=int_kind), intent(in) :: n

4.28.4 ice_timer_print(n) - print timing results of timer n

INTERFACE:

       subroutine ice_timer_print(n)

DESCRIPTION:

Print timing results of timer n
if n = -1 print timing results of all timers

REVISION HISTORY:

   author: Tony Craig, NCAR

USES:

       use ice_domain 
       use ice_mpi_internal

INPUT/OUTPUT PARAMETERS:

       integer (kind=int_kind), intent(in) :: n

4.28.5 timers(t1) - do the work

INTERFACE:

       subroutine timers(t1)

DESCRIPTION:

Do the work

REVISION HISTORY:

   author: Tony Craig, NCAR

USES:

 #ifdef _MPI
       include "mpif.h"         ! MPI library definitions
 #else
 #ifdef Linux
       integer (kind=int_kind) ::
      &     count        !  current count of the system clock
      &,    count_rate   !  number of clock ticks per second
 #else
       real (kind=dbl_kind) :: rtc
       integer (kind=int_kind) :: rate,irtc_rate
 #endif
 #endif

INPUT/OUTPUT PARAMETERS:

       real (kind=dbl_kind), intent(out) :: t1