yomgstats.F90 File Reference

Go to the source code of this file.

Modules
module	yomgstats

Variables
logical	yomgstats::lstats = .TRUE.
logical	yomgstats::lstats_omp = .FALSE.
logical	yomgstats::lstats_comms = .FALSE.
logical	yomgstats::lstats_mpl = .FALSE.
logical	yomgstats::lstats_mem = .FALSE.
logical	yomgstats::lstats_alloc = .FALSE.
logical	yomgstats::lstatscpu = .TRUE.
logical	yomgstats::lsyncstats = .FALSE.
logical	yomgstats::lxml_stats = .FALSE.
logical	yomgstats::ldetailed_stats = .TRUE.
logical	yomgstats::lbarrier_stats = .FALSE.
logical	yomgstats::lbarrier_stats2 = .FALSE.
logical	yomgstats::ltrace_stats = .FALSE.
logical	yomgstats::lgstats_label = .FALSE.
integer(kind=jpim), parameter	yomgstats::jbmaxbase =2500
integer(kind=jpim), parameter	yomgstats::jpmaxbars =500
integer(kind=jpim), parameter	yomgstats::jpmaxstat =JBMAXBASE+JPMAXBARS
integer(kind=jpim), parameter	yomgstats::jpobcount_base =201
integer(kind=jpim)	yomgstats::ntrace_stats =0
integer(kind=jpim), dimension(0:jpmaxstat)	yomgstats::ncalls
integer(kind=jpim), dimension(0:jpmaxstat)	yomgstats::nswitchval
integer(kind=jpim)	yomgstats::ncalls_total =0
integer(kind=jpim)	yomgstats::last_kswitch =0
integer(kind=jpim)	yomgstats::last_knum =0
integer(kind=jpim)	yomgstats::nhook_messages =0
integer(kind=jpim), dimension(0:jpmaxstat)	yomgstats::nbar_ptr =0
integer(kind=jpim)	yomgstats::nbar2 =JBMAXBASE+1
integer(kind=jpim), dimension(:), allocatable	yomgstats::ncall_trace
integer(kind=jpim), dimension(:), allocatable	yomgstats::numsend
integer(kind=jpim), dimension(:), allocatable	yomgstats::numrecv
real(kind=jprb), dimension(:), allocatable	yomgstats::sendbytes
real(kind=jprb), dimension(:), allocatable	yomgstats::recvbytes
integer(kind=jpim), dimension(:), allocatable	yomgstats::unknown_numsend
integer(kind=jpim), dimension(:), allocatable	yomgstats::unknown_numrecv
real(kind=jprb), dimension(:), allocatable	yomgstats::unknown_sendbytes
real(kind=jprb), dimension(:), allocatable	yomgstats::unknown_recvbytes
real(kind=jprd), dimension(0:jpmaxstat)	yomgstats::timesum
real(kind=jprd), dimension(0:jpmaxstat)	yomgstats::timesqsum
real(kind=jprd), dimension(0:jpmaxstat)	yomgstats::timemax
real(kind=jprd), dimension(0:jpmaxstat)	yomgstats::timesumb
real(kind=jprd), dimension(0:jpmaxstat)	yomgstats::timelcall
real(kind=jprd), dimension(0:jpmaxstat)	yomgstats::ttcpusum
real(kind=jprd), dimension(0:jpmaxstat)	yomgstats::tvcpusum
real(kind=jprd), dimension(0:jpmaxstat)	yomgstats::thistime
real(kind=jprd), dimension(0:jpmaxstat)	yomgstats::thistcpu
real(kind=jprd), dimension(0:jpmaxstat)	yomgstats::thisvcpu
real(kind=jprd), dimension(0:jpmaxstat)	yomgstats::ttcpulcall
real(kind=jprd), dimension(0:jpmaxstat)	yomgstats::tvcpulcall
real(kind=jprd)	yomgstats::time_last_call
real(kind=jprd), dimension(:), allocatable	yomgstats::time_start
real(kind=jprd), dimension(:), allocatable	yomgstats::time_trace
integer(kind=jpim), parameter	yomgstats::jperr =0
integer(kind=jpim), parameter	yomgstats::jptagstat =20555
integer(kind=jpim), parameter	yomgstats::jpmaxdelays =1000
integer(kind=jpim), dimension(1:jpmaxdelays)	yomgstats::ndelay_counter
real(kind=jprd), dimension(1:jpmaxdelays)	yomgstats::tdelay_value
character *10, dimension(1:jpmaxdelays)	yomgstats::cdelay_time
integer(kind=jpim)	yomgstats::ndelay_index = 0
character *50, dimension(0:jpmaxstat)	yomgstats::ccdesc = ""
character *3, dimension(0:jpmaxstat)	yomgstats::cctype = ""
integer(kind=jpim)	yomgstats::nproc_stats = 1
integer(kind=jpim)	yomgstats::myproc_stats = 1
integer(kind=jpim), dimension(:), allocatable	yomgstats::nprcids_stats
integer(kind=jpim), dimension(0:jpmaxstat, 5)	yomgstats::ntmem
integer(kind=jpim)	yomgstats::nstats_mem =0
integer(kind=jpim)	yomgstats::nprnt_stats =3