gstats_psut.F90

Go to the documentation of this file.

SUBROUTINE gstats_psut

! MEASURE PARALLELL START UP TIME

USE parkind1  ,ONLY : jprd, jpim     ,jprb

USE yomgstats
USE yommpi   , ONLY : mrealt
#ifdef SFX_MPI
USE mpl_module
#endif

IMPLICIT NONE

INTEGER(KIND=JPIM) :: ITAG,ILSEND,ILBUF,JROC,IRECV,ISEND
REAL(KIND=JPRD) :: ZTBUF(2),ZCLOCK,ZCLOCKB

#include "user_clock.h"

#ifdef SFX_MPI
IF(nproc_stats > 1) THEN
  CALL user_clock(pelapsed_time=zclockb)
  CALL mpl_barrier
  CALL user_clock(pelapsed_time=zclock)
  itag = jptagstat
  IF (myproc_stats /= 1) THEN
    ztbuf(1) = zclockb
    ztbuf(2) = zclock
    ilsend = 2
    isend = 1
    CALL mpl_send(ztbuf(1:ilsend),kdest=nprcids_stats(isend), &
     & ktag=itag,cdstring='SUSTATS:')
  ELSE
    ilbuf = 2
    ALLOCATE(time_start(nproc_stats))
    time_start(1) = zclockb - timelcall(0)
    DO jroc=2,nproc_stats
      irecv = jroc
      CALL mpl_recv(ztbuf(1:ilbuf),ksource=nprcids_stats(irecv), &
       & ktag=itag,cdstring='SUSTATS:')
      time_start(jroc) = ztbuf(1) - timelcall(0) -(ztbuf(2)-zclock)
    ENDDO
  ENDIF
ENDIF
#endif

END SUBROUTINE gstats_psut