Homec4science
Diffusion COSOlver (llechot) Browse

cosolver/src/timer_mod.f90
df55999e752fllechot

Last Change
Raw File

timer_mod.f90
View Options

module timer
!
! timer module
!
use prec_const
use basic_mpi
implicit none
! CPU TIME in s
REAL(dp) :: start_time
REAL(dp):: end_time
REAL(dp) :: cpu_ellapsed_time
! system clock
INTEGER :: count_start,count_rate,count_stop
REAL(dp) :: system_ellapsed_time
! wall time
real(dp) :: startt0
contains
!================================================================================
SUBROUTINE clock(endorstart)
!
IMPLICIT NONE
!
INTEGER,INTENT(IN) :: endorstart
!
IF(endorstart .eq. 1) THEN
CALL system_clock(count = count_start, count_rate = count_rate)
ELSEIF (endorstart .eq. -1) THEN
CALL system_clock(count = count_stop)
system_ellapsed_time = real(count_stop - count_start)/real( count_rate)
ENDIF
!
END SUBROUTINE clock
!================================================================================
SUBROUTINE daytim(str)
! Print date and time
use prec_const
IMPLICIT NONE
CHARACTER(len=*) , INTENT(in) :: str
CHARACTER(len=16) :: d, t, dat, time
!________________________________________________________________________________
!
CALL DATE_AND_TIME(d,t)
dat=d(7:8) // '/' // d(5:6) // '/' // d(1:4)
time=t(1:2) // ':' // t(3:4) // ':' // t(5:10)
IF( me .eq. 0) WRITE(*,'(a,1x,a,1x,a)') str, dat(1:10), time(1:12)
!
END SUBROUTINE daytim
!================================================================================
SUBROUTINE timera(cntrl,eltime)
!
! Timers (cntrl=0/1 to Init/Update)
!
! Note : time returned are local to the node
!
use prec_const
IMPLICIT NONE
INTEGER, INTENT(in) :: cntrl
real(dp), INTENT(out) :: eltime ! ... time elapsed since startt0 spend by the MPI proc
!
SELECT CASE (cntrl)
!
CASE(-1) ! Current wall time
eltime = mpi_wtime() - startt0 ! ellapsed time in second since startt0
! ELSE IF (me .EQ. 0 ) THEN
! WRITE(*,'(/a,a,1pe10.3/)') "++ ", ' Wall time used so far = ', mpi_wtime() - startt0
! END IF
!
CASE(0) ! Init Timer
!
startt0 = mpi_wtime()
!
CASE(1)
!
END SELECT
!
END SUBROUTINE timera
!
!================================================================================
!
SUBROUTINE tesend
!
! test for run completion
!
implicit none
!
! local vars
real(dp) :: eltime,tremain
! get ellapsed time
CALL timera(-1,eltime)
END SUBROUTINE tesend
!
!================================================================================
end module timer
c4science · Help