gstats_setup.F90

Go to the documentation of this file.

SUBROUTINE gstats_setup( KPROC,KMYPROC,KPRCIDS,&
 & LDSTATS,LDSTATSCPU,LDSYNCSTATS,LDDETAILED_STATS,LDBARRIER_STATS,LDBARRIER_STATS2,&
 & LDSTATS_OMP,LDSTATS_COMMS,LDSTATS_MEM,KSTATS_MEM,LDSTATS_ALLOC,&
 & LDTRACE_STATS,KTRACE_STATS,KPRNT_STATS,LDXML_STATS,LDSTATS_MPL)

!**** *GSTATS_SETUP*  - Setup stats package

!     PURPOSE.  
!     --------
!      Setup gstats package


!**   INTERFACE.
!     ----------
!       *CALL* *GSTATS_SETUP

!        EXPLICIT ARGUMENTS   None
!        --------------------

!        IMPLICIT ARGUMENTS
!        --------------------
!        Module YOMSTATS

!     METHOD.
!     -------


!     EXTERNALS.   USER_CLOCK - timing routine
!     ----------

!     REFERENCE.
!     ----------
!        ECMWF Research Department documentation of the IFS

!     AUTHOR.
!     -------
!        Mats Hamrud ECMWF

!     MODIFICATIONS.
!     --------------
!        ORIGINAL : 98-11-15
!     ------------------------------------------------------------------

USE parkind1  ,ONLY : jpim     ,jprb

USE yomgstats
#ifdef SFX_MPI
USE mpl_stats_mod
#endif
IMPLICIT NONE

LOGICAL :: LDSTATS
LOGICAL :: LDSTATSCPU
LOGICAL :: LDSYNCSTATS
LOGICAL :: LDDETAILED_STATS
LOGICAL :: LDBARRIER_STATS
LOGICAL :: LDBARRIER_STATS2
LOGICAL :: LDSTATS_OMP
LOGICAL :: LDSTATS_COMMS
LOGICAL :: LDTRACE_STATS
INTEGER(KIND=JPIM) :: KTRACE_STATS
INTEGER(KIND=JPIM) :: KPROC,KMYPROC
INTEGER(KIND=JPIM) :: KPRCIDS(kproc)
INTEGER(KIND=JPIM) :: KSTATS_MEM
INTEGER(KIND=JPIM) :: KPRNT_STATS
LOGICAL :: LDSTATS_MEM
LOGICAL :: LDSTATS_ALLOC
LOGICAL :: LDXML_STATS
LOGICAL :: LDSTATS_MPL
!     ------------------------------------------------------------------

lstats = ldstats
lstatscpu = ldstatscpu
lsyncstats = ldsyncstats
ldetailed_stats=lddetailed_stats
lbarrier_stats=ldbarrier_stats
lbarrier_stats2=ldbarrier_stats2
lxml_stats=ldxml_stats
lstats_omp = ldstats_omp
lstats_comms = ldstats_comms
nstats_mem = kstats_mem
lstats_mem = ldstats_mem
lstats_alloc = ldstats_alloc
ltrace_stats = ldtrace_stats
IF(ltrace_stats) ntrace_stats = ktrace_stats

myproc_stats = kmyproc
nproc_stats  = kproc
ALLOCATE(nprcids_stats(nproc_stats))
nprcids_stats(:) = kprcids(1:nproc_stats)
IF(nproc_stats == 1) lsyncstats = .false.

IF (ltrace_stats .AND. ntrace_stats>0 ) THEN
  ALLOCATE(ncall_trace(ntrace_stats))
  ALLOCATE(time_trace(ntrace_stats))
  ncall_trace(:) = 0
  time_trace(:) = 0.0_jprb
ENDIF


IF(lbarrier_stats) THEN
  lstats_mpl=.true.
  ALLOCATE(numsend(501:1000))
  ALLOCATE(numrecv(501:1000))
  ALLOCATE(sendbytes(501:1000))
  ALLOCATE(recvbytes(501:1000))
  ALLOCATE(unknown_numsend(501:1000))
  ALLOCATE(unknown_numrecv(501:1000))
  ALLOCATE(unknown_sendbytes(501:1000))
  ALLOCATE(unknown_recvbytes(501:1000))
  numsend(:)=0
  numrecv(:)=0
  sendbytes(:)=0
  recvbytes(:)=0
  unknown_numsend(:)=0
  unknown_numrecv(:)=0
  unknown_sendbytes(:)=0
  unknown_recvbytes(:)=0
#ifdef SFX_MPI
  CALL mpl_statsinit
#endif
ENDIF

nprnt_stats=kprnt_stats

! write(0,*) "GSTATS_SETUP: NPRNT_STATS=",NPRNT_STATS

RETURN
END SUBROUTINE gstats_setup