GetTimeSerial Function

public function GetTimeSerial() result(t)

Calculates current time locally on a MPIrank (no MPI Barrier)

Arguments

None

Return Value real(kind=wp)


Source Code

FUNCTION GetTimeSerial() RESULT(t)
  ! MODULES
!$ USE omp_lib
  IMPLICIT NONE
  ! INPUT/OUTPUT VARIABLES ------------------------------------------------------------------------------------------------------!
  REAL(wp) :: t   !< output time
  ! LOCAL VARIABLES -------------------------------------------------------------------------------------------------------------!
  ! CODE ------------------------------------------------------------------------------------------------------------------------!
  CALL CPU_TIME(t)
!$ t=OMP_GET_WTIME()
END FUNCTION GetTimeSerial