Function to get the current working precision time, .
Returns .
function get_current_time ( ) result(t)
!! Function to get the current working precision time, \(t\).
implicit none
real(wp) :: t
!! Returns \(t\).
t = time
end function get_current_time