julian_date_intsec Function

private pure function julian_date_intsec(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

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
integer, intent(in) :: second

Return Value real(kind=wp)


Calls

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

Called by

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

Source Code

    pure function julian_date_intsec(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
    integer,intent(in) :: second

    ! call the other routine:
    julian_date = julian_date_realsec(y,m,d,hour,minute,real(second,wp))

    end function julian_date_intsec