FAOM03 Function

  1. astro_module.f90
  2. astro_module
  3. FAOM03

public function FAOM03(t) result(res)

Fundamental argument, IERS Conventions (2003): mean longitude of the Moon's ascending node.

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)

Omega, radians (Note 2)


Called by

proc~~faom03~~CalledByGraph proc~faom03 FAOM03 proc~nut00a NUT00A proc~nut00a->proc~faom03 proc~s00 S00 proc~s00->proc~faom03 proc~s06 S06 proc~s06->proc~faom03 proc~xy06 XY06 proc~xy06->proc~faom03 proc~eect00 EECT00 proc~eect00->proc~faom03 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

FAOM03

Source Code

    function FAOM03 ( t ) result(res)

    implicit none

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

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

    !  Mean longitude of the Moon's ascending node (IERS Conventions 2003).
    res  = mod ( 450160.398036_wp + &
                 t*( - 6962890.5431_wp + &
                 t*(         7.4722_wp + &
                 t*(         0.007702_wp + &
                 t*(       - 0.00005939_wp )))), turnas ) * das2r

    end function FAOM03