FASA03 Function

  1. astro_module.f90
  2. astro_module
  3. FASA03

public function FASA03(t) result(res)

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

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 comes from Souchay et al. (1999) after 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

  • Souchay, J., Loysel, B., Kinoshita, H., Folgueira, M. 1999, Astron.Astrophys.Supp.Ser. 135, 111

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


Called by

proc~~fasa03~~CalledByGraph proc~fasa03 FASA03 proc~nut00a NUT00A proc~nut00a->proc~fasa03 proc~xy06 XY06 proc~xy06->proc~fasa03 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

FASA03

Source Code

    function FASA03 ( t ) result(res)

    implicit none

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

    !  Mean longitude of Saturn (IERS Conventions 2003).
    res = mod ( 0.874016757_wp + 21.3299104960_wp * t, d2pi )

    end function FASA03