FAD03 Function

  1. astro_module.f90
  2. astro_module
  3. FAD03

public function FAD03(t) result(fa)

Fundamental argument, IERS Conventions (2003): mean elongation of the Moon from the Sun.

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 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)

D, radians (Note 2)


Called by

proc~~fad03~~CalledByGraph proc~fad03 FAD03 proc~eect00 EECT00 proc~eect00->proc~fad03 proc~s00 S00 proc~s00->proc~fad03 proc~xy06 XY06 proc~xy06->proc~fad03 proc~s06 S06 proc~s06->proc~fad03 proc~ee00 EE00 proc~ee00->proc~eect00 proc~xys00a XYS00A proc~xys00a->proc~s00 proc~s06a S06A proc~s06a->proc~s06 proc~apco13 APCO13 proc~apco13->proc~s06 proc~c2i06a C2I06A proc~c2i06a->proc~s06 proc~xys06a XYS06A proc~xys06a->proc~s06 proc~c2ixy C2IXY proc~c2ixy->proc~s00 proc~xys00b XYS00B proc~xys00b->proc~s00 proc~s00a S00A proc~s00a->proc~s00 proc~s00b S00B proc~s00b->proc~s00 proc~gst06 GST06 proc~gst06->proc~s06 proc~apci13 APCI13 proc~apci13->proc~s06 proc~eo06a EO06A proc~eo06a->proc~s06 proc~ee00a EE00A proc~ee00a->proc~ee00 proc~ee00b EE00B proc~ee00b->proc~ee00 proc~atco13 ATCO13 proc~atco13->proc~apco13 proc~c2ibpn C2IBPN proc~c2ibpn->proc~c2ixy proc~c2txy C2TXY proc~c2txy->proc~c2ixy proc~gst06a GST06A proc~gst06a->proc~gst06 proc~atci13 ATCI13 proc~atci13->proc~apci13 proc~atic13 ATIC13 proc~atic13->proc~apci13 proc~c2tpe C2TPE proc~c2tpe->proc~ee00 proc~atoc13 ATOC13 proc~atoc13->proc~apco13 proc~c2t06a C2T06A proc~c2t06a->proc~c2i06a proc~gst00a GST00A proc~gst00a->proc~ee00a proc~c2i00b C2I00B proc~c2i00b->proc~c2ibpn proc~ee06a EE06A proc~ee06a->proc~gst06a proc~c2i00a C2I00A proc~c2i00a->proc~c2ibpn proc~gst00b GST00B proc~gst00b->proc~ee00b proc~c2t00b C2T00B proc~c2t00b->proc~c2i00b proc~c2t00a C2T00A proc~c2t00a->proc~c2i00a

Contents

Source Code

FAD03

Source Code

    function FAD03 ( t ) result(fa)

    implicit none

    real(wp),intent(in) :: t !! TDB, Julian centuries since J2000.0 (Note 1)
    real(wp) :: fa !! D, radians (Note 2)

    !  Arcseconds in a full circle.
    real(wp),parameter :: turnas = 1296000.0_wp

    !  Mean elongation of the Moon from the Sun (IERS Conventions 2003).
    fa = mod (  1072260.703692_wp + &
                t*( 1602961601.2090_wp + &
                t*(        - 6.3706_wp + &
                t*(          0.006593_wp + &
                t*(        - 0.00003169_wp )))), turnas ) * das2r

    end function FAD03