yommplstats.F90

Go to the documentation of this file.

MODULE yommplstats

USE parkind1  ,ONLY : jprd, jpim

IMPLICIT NONE

SAVE

!     ------------------------------------------------------------------
! Module for communications statistics.
! Module is internal to the MPLSTATS package -
! routines MPL_SENDSTATS, MPL_RECVSTATS

! LMPLSTATS - TRUE for gathering communications statistics


LOGICAL :: lmplstats = .false.
REAL(KIND=JPRD), ALLOCATABLE    :: mplsendbytes(:), mplrecvbytes(:)
INTEGER(KIND=JPIM), ALLOCATABLE :: mplsendnum(:), mplrecvnum(:)

END MODULE yommplstats