jd_to_et Function

public pure function jd_to_et(jd) result(et)

Uses

  • proc~~jd_to_et~~UsesGraph proc~jd_to_et time_module::jd_to_et module~conversion_module conversion_module proc~jd_to_et->module~conversion_module module~kind_module kind_module module~conversion_module->module~kind_module module~numbers_module numbers_module module~conversion_module->module~numbers_module iso_fortran_env iso_fortran_env module~kind_module->iso_fortran_env module~numbers_module->module~kind_module

Convert Julian date to ephemeris time (seconds from J2000 epoch).

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: jd

Julian date [days]

Return Value real(kind=wp)

ephemeris time [sec from J2000 epoch]


Source Code

    pure function jd_to_et(jd) result(et)

    use conversion_module, only: day2sec

    implicit none

    real(wp),intent(in) :: jd   !! Julian date [days]
    real(wp)            :: et   !! ephemeris time [sec from J2000 epoch]

    et = (jd - jd_j2000) * day2sec

    end function jd_to_et