FAL03 Function

  1. astro_module.f90
  2. astro_module
  3. FAL03

public function FAL03(t) result(l)

Fundamental argument, IERS Conventions (2003): mean anomaly of the Moon.

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)

l, radians (Note 2)


Called by

proc~~fal03~~CalledByGraph proc~fal03 FAL03 proc~nut00a NUT00A proc~nut00a->proc~fal03 proc~s00 S00 proc~s00->proc~fal03 proc~s06 S06 proc~s06->proc~fal03 proc~xy06 XY06 proc~xy06->proc~fal03 proc~eect00 EECT00 proc~eect00->proc~fal03 proc~ee00a EE00A proc~ee00a->proc~nut00a proc~ee00 EE00 proc~ee00a->proc~ee00 proc~pn00a PN00A proc~pn00a->proc~nut00a proc~xys00a XYS00A proc~xys00a->proc~s00 proc~pnm00a PNM00A proc~xys00a->proc~pnm00a proc~s06a S06A proc~s06a->proc~s06 proc~pnm06a PNM06A proc~s06a->proc~pnm06a proc~apco13 APCO13 proc~apco13->proc~s06 proc~apco13->proc~pnm06a proc~c2i06a C2I06A proc~c2i06a->proc~s06 proc~c2i06a->proc~pnm06a proc~xys06a XYS06A proc~xys06a->proc~s06 proc~xys06a->proc~pnm06a proc~ee00->proc~eect00 proc~s00a S00A proc~s00a->proc~s00 proc~s00a->proc~pnm00a proc~nut06a NUT06A proc~nut06a->proc~nut00a proc~xys00b XYS00B proc~xys00b->proc~s00 proc~c2ixy C2IXY proc~c2ixy->proc~s00 proc~s00b S00B proc~s00b->proc~s00 proc~gst06 GST06 proc~gst06->proc~s06 proc~apci13 APCI13 proc~apci13->proc~s06 proc~apci13->proc~pnm06a proc~eo06a EO06A proc~eo06a->proc~s06 proc~eo06a->proc~pnm06a proc~atco13 ATCO13 proc~atco13->proc~apco13 proc~num00a NUM00A proc~num00a->proc~pn00a proc~ee00b EE00B proc~ee00b->proc~ee00 proc~pnm06a->proc~nut06a proc~pn06a PN06A proc~pn06a->proc~nut06a proc~c2ibpn C2IBPN proc~c2ibpn->proc~c2ixy proc~c2txy C2TXY proc~c2txy->proc~c2ixy proc~gst06a GST06A proc~gst06a->proc~gst06 proc~gst06a->proc~pnm06a proc~atci13 ATCI13 proc~atci13->proc~apci13 proc~atic13 ATIC13 proc~atic13->proc~apci13 proc~gst00a GST00A proc~gst00a->proc~ee00a proc~atoc13 ATOC13 proc~atoc13->proc~apco13 proc~pnm00a->proc~pn00a proc~c2t06a C2T06A proc~c2t06a->proc~c2i06a proc~c2tpe C2TPE proc~c2tpe->proc~ee00 proc~num06a NUM06A proc~num06a->proc~nut06a proc~gst00b GST00B proc~gst00b->proc~ee00b proc~c2i00b C2I00B proc~c2i00b->proc~c2ibpn proc~ee06a EE06A proc~ee06a->proc~gst06a proc~c2i00a C2I00A proc~c2i00a->proc~c2ibpn proc~c2i00a->proc~pnm00a proc~c2t00b C2T00B proc~c2t00b->proc~c2i00b proc~c2t00a C2T00A proc~c2t00a->proc~c2i00a

Contents

Source Code

FAL03

Source Code

    function FAL03 ( t ) result(l)

    implicit none

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

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

    !  Mean anomaly of the Moon (IERS Conventions 2003).
    l = mod ( 485868.249036_wp + &
              t*( 1717915923.2178_wp + &
              t*(         31.8792_wp + &
              t*(          0.051635_wp + &
              t*(        - 0.00024470_wp )))), turnas ) * das2r

    end function FAL03