FANE03 Function

  1. astro_module.f90
  2. astro_module
  3. FANE03

public function FANE03(t) result(res)

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

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 Neptune, radians (Note 2)


Called by

proc~~fane03~~CalledByGraph proc~fane03 FANE03 proc~xy06 XY06 proc~xy06->proc~fane03

Contents

Source Code

FANE03

Source Code

    function FANE03 ( t ) result(res)

    implicit none

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

    !  Mean longitude of Neptune (IERS Conventions 2003).
    res = mod ( 5.311886287_wp + 3.8133035638_wp * t, d2pi )

    end function FANE03