gstats_barrier.F90

Go to the documentation of this file.

SUBROUTINE gstats_barrier(KNUM)

USE parkind1  ,ONLY : jpim     ,jprb

USE yomgstats, ONLY : lbarrier_stats
#ifdef SFX_MPI
USE mpl_module  , ONLY : mpl_barrier
#endif
IMPLICIT NONE

INTEGER(KIND=JPIM) :: KNUM

IF(lbarrier_stats)THEN
  CALL gstats(knum,0)
#ifdef SFX_MPI
  CALL mpl_barrier()
#endif
  CALL gstats(knum,1)
ENDIF

END SUBROUTINE gstats_barrier