julian_date_realsec Function

private pure function julian_date_realsec(y, m, d, hour, minute, second) result(julian_date)

Returns the Julian date for the specified YEAR, MONTH, DAY, HR, MIN, SEC.

Valid for any Gregorian calendar date producing a Julian date greater than zero.

History

  • JW : 10/4/2017 : made second a real value & renamed routine.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: y
integer, intent(in) :: m
integer, intent(in) :: d
integer, intent(in) :: hour
integer, intent(in) :: minute
real(kind=wp), intent(in) :: second

Return Value real(kind=wp)


Calls

proc~~julian_date_realsec~~CallsGraph proc~julian_date_realsec time_module::julian_date_realsec proc~julian_day time_module::julian_day proc~julian_date_realsec->proc~julian_day

Called by

proc~~julian_date_realsec~~CalledByGraph proc~julian_date_realsec time_module::julian_date_realsec interface~julian_date time_module::julian_date interface~julian_date->proc~julian_date_realsec proc~julian_date_intsec time_module::julian_date_intsec interface~julian_date->proc~julian_date_intsec proc~julian_date_intsec->proc~julian_date_realsec proc~time_module_test time_module::time_module_test proc~time_module_test->interface~julian_date

Source Code

    pure function julian_date_realsec(y,m,d,hour,minute,second) result(julian_date)

    implicit none

    real(wp)            :: julian_date
    integer,intent(in)  :: y
    integer,intent(in)  :: m
    integer,intent(in)  :: d
    integer,intent(in)  :: hour
    integer,intent(in)  :: minute
    real(wp),intent(in) :: second

    integer :: julian_day_number

    julian_day_number = julian_day(y,m,d)

    julian_date = real(julian_day_number,wp) + &
                    (hour-12.0_wp)/24.0_wp + &
                    minute/1440.0_wp + &
                    second/86400.0_wp

    end function julian_date_realsec