gstats_barrier2.F90

Go to the documentation of this file.

SUBROUTINE gstats_barrier2(KNUM)

USE parkind1  ,ONLY : jpim     ,jprb

USE yomgstats, ONLY : lbarrier_stats2,nbar_ptr,nbar2
#ifdef SFX_MPI
USE mpl_module  , ONLY : mpl_barrier
#endif
IMPLICIT NONE

INTEGER(KIND=JPIM) :: KNUM
INTEGER(KIND=JPIM) :: INUM

IF(lbarrier_stats2)THEN
  IF(nbar_ptr(knum) == 0) THEN
    inum=nbar2
    nbar2=nbar2+1
    nbar_ptr(knum)=inum
  ENDIF
  inum=nbar_ptr(knum)
  CALL gstats(inum,0)
#ifdef SFX_MPI
  CALL mpl_barrier()
#endif
  CALL gstats(inum,1)
ENDIF

END SUBROUTINE gstats_barrier2