FAUR03 Function

  1. astro_module.f90
  2. astro_module
  3. FAUR03

public function FAUR03(t) result(res)

Fundamental argument, IERS Conventions (2003): mean longitude of Uranus.

Status: canonical model.

Notes

  1. Though T is strictly TDB, it is usually more convenient to use TT, which makes no significant difference.

  2. The expression used is as adopted in IERS Conventions (2003) and is adapted from Simon et al. (1994).

References

  • McCarthy, D. D., Petit, G. (eds.), IERS Conventions (2003), IERS Technical Note No. 32, BKG (2004)

  • Simon, J.-L., Bretagnon, P., Chapront, J., Chapront-Touze, M., Francou, G., Laskar, J. 1994, Astron.Astrophys. 282, 663-683

History

  • IAU SOFA revision: 2009 December 15

Arguments

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

TDB, Julian centuries since J2000.0 (Note 1)

Return Value real(kind=wp)

mean longitude of Uranus, radians (Note 2)


Called by

proc~~faur03~~CalledByGraph proc~faur03 FAUR03 proc~nut00a NUT00A proc~nut00a->proc~faur03 proc~xy06 XY06 proc~xy06->proc~faur03 proc~ee00a EE00A proc~ee00a->proc~nut00a proc~nut06a NUT06A proc~nut06a->proc~nut00a proc~pn00a PN00A proc~pn00a->proc~nut00a proc~pnm06a PNM06A proc~pnm06a->proc~nut06a proc~pn06a PN06A proc~pn06a->proc~nut06a proc~num00a NUM00A proc~num00a->proc~pn00a proc~gst00a GST00A proc~gst00a->proc~ee00a proc~num06a NUM06A proc~num06a->proc~nut06a proc~pnm00a PNM00A proc~pnm00a->proc~pn00a proc~gst06a GST06A proc~gst06a->proc~pnm06a proc~s06a S06A proc~s06a->proc~pnm06a proc~xys06a XYS06A proc~xys06a->proc~pnm06a proc~c2i06a C2I06A proc~c2i06a->proc~pnm06a proc~apco13 APCO13 proc~apco13->proc~pnm06a proc~xys00a XYS00A proc~xys00a->proc~pnm00a proc~apci13 APCI13 proc~apci13->proc~pnm06a proc~eo06a EO06A proc~eo06a->proc~pnm06a proc~s00a S00A proc~s00a->proc~pnm00a proc~c2i00a C2I00A proc~c2i00a->proc~pnm00a proc~atco13 ATCO13 proc~atco13->proc~apco13 proc~atci13 ATCI13 proc~atci13->proc~apci13 proc~atic13 ATIC13 proc~atic13->proc~apci13 proc~c2t00a C2T00A proc~c2t00a->proc~c2i00a proc~ee06a EE06A proc~ee06a->proc~gst06a proc~c2t06a C2T06A proc~c2t06a->proc~c2i06a proc~atoc13 ATOC13 proc~atoc13->proc~apco13

Contents

Source Code

FAUR03

Source Code

    function FAUR03 ( t ) result(res)

    implicit none

    real(wp),intent(in) :: t !! TDB, Julian centuries since J2000.0 (Note 1)
    real(wp) :: res !! mean longitude of Uranus, radians (Note 2)

    !  Mean longitude of Uranus (IERS Conventions 2003).
    res = mod ( 5.481293872_wp + 7.4781598567_wp * t, d2pi )

    end function FAUR03