yomgstats.F90

Go to the documentation of this file.

MODULE yomgstats

USE parkind1  ,ONLY : jprd, jpim, jprb

IMPLICIT NONE

SAVE

!     ------------------------------------------------------------------
! Module for timing statistics. Module is internal to the GSTATS package -
! routines GSTATS, SUSTATS and STATS_OUTPUT. The logical switches are
! re-initialized in SUMPINI

! LSTATS - TRUE for gathering timing statistics
! LSTATSCPU - TRUE for gathering CPU timing  statistics
! LSYNCSTATS - TRUE for syncronization (call to barrier) at the 
!              start of timing event
! LDETAILED_STATS - TRUE for more detail in output
! LXML_STATS - TRUE for stats output in XML
! LSTATS_OMP - TRUE for gathering timing statistics on OpenMP regions
!                 1001-1999
! LSTATS_COMMS - TRUE for gathering detailed timing of Message passing
!                 501-1000
! LSTATS_MPL   - TRUE for gathering detailed info on message passing
! NTRACE_STATS    - max number of entries in trace
! LTRACE_STATS    - True for trace of all calls to gstats
! LGSTATS_LABEL   - True after GSTATS-labels have been set
! JPMAXSTAT - max number of separate  timers in gstats
! JPOBCOUNT_BASE - first counter for obs types
! NCALLS - number of times a timer has been switched on
! TIMESUM - total time spent with timer on
! TIMESQSUM - sum of the squares of times
! TIMEMAX - max time of all calls
! TIMESUMB - sum of times between previous timer was invoked and this
!            timer was switched on ( to be used for finding out which parts
!            of the code that is not being timed)
! TIMELCALL - time when event was switched on or resumed
! TTCPUSUM - total cpu time
! TVCPUSUM - total vector cpu time
! THISTIME - total accumulated time for this call to timing event (necessary
!            to be able to suspend and resume timer and still have it counted
!            as one timing event)
! THISTCPU - as THISTIME but for CPU time
! THISVCPU - as THISTIME but for vector CPU time
! TTCPULCALL - as TIMELCALL but for CPU time
! TVCPULCALL - as TIMELCALL but for vector CPU time
! TIME_LAST_CALL - last time GSTATS was called
! TIME_START - used for recording parallel startup time
!
! NSWITCHVAL - for detecting overlapping counters


LOGICAL :: lstats = .true.
LOGICAL :: lstats_omp = .false.
LOGICAL :: lstats_comms = .false.
LOGICAL :: lstats_mpl = .false.
LOGICAL :: lstats_mem = .false.
LOGICAL :: lstats_alloc = .false.
LOGICAL :: lstatscpu = .true.
LOGICAL :: lsyncstats = .false.
LOGICAL :: lxml_stats = .false.
LOGICAL :: ldetailed_stats = .true.
LOGICAL :: lbarrier_stats = .false.
LOGICAL :: lbarrier_stats2 = .false.
LOGICAL :: ltrace_stats = .false.
LOGICAL :: lgstats_label = .false.

INTEGER(KIND=JPIM),PARAMETER :: jbmaxbase=2500
INTEGER(KIND=JPIM),PARAMETER :: jpmaxbars=500
INTEGER(KIND=JPIM),PARAMETER :: jpmaxstat=jbmaxbase+jpmaxbars

INTEGER(KIND=JPIM),PARAMETER :: jpobcount_base=201
INTEGER(KIND=JPIM) :: ntrace_stats=0
INTEGER(KIND=JPIM) :: ncalls(0:jpmaxstat)
INTEGER(KIND=JPIM) :: nswitchval(0:jpmaxstat)
INTEGER(KIND=JPIM) :: ncalls_total=0
INTEGER(KIND=JPIM) :: last_kswitch=0
INTEGER(KIND=JPIM) :: last_knum=0
INTEGER(KIND=JPIM) :: nhook_messages=0
INTEGER(KIND=JPIM) :: nbar_ptr(0:jpmaxstat)=0
INTEGER(KIND=JPIM) :: nbar2=jbmaxbase+1
INTEGER(KIND=JPIM),ALLOCATABLE :: ncall_trace(:)
INTEGER(KIND=JPIM),ALLOCATABLE :: numsend(:)
INTEGER(KIND=JPIM),ALLOCATABLE :: numrecv(:)
REAL(KIND=JPRB),ALLOCATABLE :: sendbytes(:)
REAL(KIND=JPRB),ALLOCATABLE :: recvbytes(:)
INTEGER(KIND=JPIM),ALLOCATABLE :: unknown_numsend(:)
INTEGER(KIND=JPIM),ALLOCATABLE :: unknown_numrecv(:)
REAL(KIND=JPRB),ALLOCATABLE :: unknown_sendbytes(:)
REAL(KIND=JPRB),ALLOCATABLE :: unknown_recvbytes(:)

REAL(KIND=JPRD) :: timesum(0:jpmaxstat)
REAL(KIND=JPRD) :: timesqsum(0:jpmaxstat)
REAL(KIND=JPRD) :: timemax(0:jpmaxstat)
REAL(KIND=JPRD) :: timesumb(0:jpmaxstat)
REAL(KIND=JPRD) :: timelcall(0:jpmaxstat)
REAL(KIND=JPRD) :: ttcpusum(0:jpmaxstat)
REAL(KIND=JPRD) :: tvcpusum(0:jpmaxstat)
REAL(KIND=JPRD) :: thistime(0:jpmaxstat)
REAL(KIND=JPRD) :: thistcpu(0:jpmaxstat)
REAL(KIND=JPRD) :: thisvcpu(0:jpmaxstat)
REAL(KIND=JPRD) :: ttcpulcall(0:jpmaxstat)
REAL(KIND=JPRD) :: tvcpulcall(0:jpmaxstat)
REAL(KIND=JPRD) :: time_last_call

REAL(KIND=JPRD),ALLOCATABLE :: time_start(:)
REAL(KIND=JPRD),ALLOCATABLE :: time_trace(:)
INTEGER(KIND=JPIM),PARAMETER :: jperr=0
INTEGER(KIND=JPIM),PARAMETER :: jptagstat=20555

INTEGER(KIND=JPIM),PARAMETER :: jpmaxdelays=1000
INTEGER(KIND=JPIM) :: ndelay_counter(1:jpmaxdelays)
REAL(KIND=JPRD)    :: tdelay_value(1:jpmaxdelays)
CHARACTER*10       :: cdelay_time(1:jpmaxdelays)
INTEGER(KIND=JPIM) :: ndelay_index = 0

CHARACTER*50 :: ccdesc(0:jpmaxstat) = ""
CHARACTER*3  :: cctype(0:jpmaxstat) = ""

INTEGER(KIND=JPIM) :: nproc_stats = 1
INTEGER(KIND=JPIM) :: myproc_stats = 1
INTEGER(KIND=JPIM),ALLOCATABLE :: nprcids_stats(:)

INTEGER(KIND=JPIM) :: ntmem(0:jpmaxstat,5)
INTEGER(KIND=JPIM) :: nstats_mem=0

INTEGER(KIND=JPIM) :: nprnt_stats=3

END MODULE yomgstats