UT1TT Subroutine

  1. astro_module.f90
  2. astro_module
  3. UT1TT

public subroutine UT1TT(ut11, ut12, dt, tt1, tt2, j)

Time scale transformation: Universal Time, UT1, to Terrestrial Time, TT.

Status: canonical.

Notes

  1. UT11+UT12 is Julian Date, apportioned in any convenient way between the two arguments, for example where UT11 is the Julian Day Number and UT12 is the fraction of a day. The returned TT1,TT2 follow suit.

  2. The argument DT is classical Delta T.

Reference

  • Explanatory Supplement to the Astronomical Almanac, P. Kenneth Seidelmann (ed), University Science Books (1992)

History

  • IAU SOFA revision: 2019 June 20

Arguments

TypeIntentOptionalAttributesName
real(kind=wp), intent(in) :: ut11

UT1 as a 2-part Julian Date
real(kind=wp), intent(in) :: ut12

UT1 as a 2-part Julian Date
real(kind=wp), intent(in) :: dt

TT-UT1 in seconds
real(kind=wp), intent(out) :: tt1

TT as a 2-part Julian Date
real(kind=wp), intent(out) :: tt2

TT as a 2-part Julian Date
integer, intent(out) :: j

status: 0 = OK

Contents

Source Code

UT1TT

Source Code

    subroutine UT1TT ( ut11, ut12, dt, tt1, tt2, j )

    implicit none

    real(wp),intent(in) :: ut11 !! UT1 as a 2-part Julian Date
    real(wp),intent(in) :: ut12 !! UT1 as a 2-part Julian Date
    real(wp),intent(in) :: dt !! TT-UT1 in seconds
    real(wp),intent(out) :: tt1 !! TT as a 2-part Julian Date
    real(wp),intent(out) :: tt2 !! TT as a 2-part Julian Date
    integer,intent(out) :: j !! status:  0 = OK

    real(wp) :: dtd

    !  Result, safeguarding precision.
    dtd = dt/d2s
    if ( abs(ut11)>abs(ut12) ) then
       tt1 = ut11
       tt2 = ut12 + dtd
    else
       tt1 = ut11 + dtd
       tt2 = ut12
    end if

    !  Status (always OK).
    j = 0

    end subroutine UT1TT