GetTime Function

public function GetTime() result(t)

Calculates current time (serial / OpenMP /MPI)

Arguments

None

Return Value real(kind=wp)


Source Code

FUNCTION GetTime() RESULT(t)
  ! MODULES
!$ USE omp_lib
  IMPLICIT NONE
  ! INPUT/OUTPUT VARIABLES ------------------------------------------------------------------------------------------------------!
  REAL(wp) :: t   !< output time
  ! LOCAL VARIABLES -------------------------------------------------------------------------------------------------------------!
#if MPI
  LOGICAL :: barr
  INTEGER :: ierr
  ! CODE ------------------------------------------------------------------------------------------------------------------------!
  CALL MPI_BARRIER(MPI_COMM_WORLD, ierr)  ! not possible to 'CALL parBarrier()' because MODgvec_MPI uses MODgvec_Globals!
  t = MPI_WTIME()
#else
  CALL CPU_TIME(t)
!$ t=OMP_GET_WTIME()
#endif
END FUNCTION GetTime