obliquity_module Module

For computing the obliquity of the ecliptic.

Notes

  • Mean obliquity does not include the short-period terms due to nutation. True obliquity includes these terms.

Uses

  • module~~obliquity_module~~UsesGraph module~obliquity_module obliquity_module module~conversion_module conversion_module module~obliquity_module->module~conversion_module module~kind_module kind_module module~obliquity_module->module~kind_module module~conversion_module->module~kind_module module~numbers_module numbers_module module~conversion_module->module~numbers_module iso_fortran_env iso_fortran_env module~kind_module->iso_fortran_env module~numbers_module->module~kind_module

Used by

  • module~~obliquity_module~~UsedByGraph module~obliquity_module obliquity_module module~fortran_astrodynamics_toolkit fortran_astrodynamics_toolkit module~fortran_astrodynamics_toolkit->module~obliquity_module proc~get_c_cdot_ecliptic transformation_module::ecliptic_frame%get_c_cdot_ecliptic proc~get_c_cdot_ecliptic->module~obliquity_module

Abstract Interfaces

abstract interface

  • private pure function mean_obliquity_func(et) result(e)

    a function for computing the mean obliquity of the ecliptic.

    Arguments

    Type IntentOptional Attributes Name
    real(kind=wp), intent(in) :: et

    ephemeris time (sec)

    Return Value real(kind=wp)

    obliquity of ecliptic (deg)


Functions

public pure function mean_ecliptic_to_equatorial_rotmat(obliquity_func) result(rot)

Rotation matrix from Mean Ecliptic to J2000.

Read more…

Arguments

Type IntentOptional Attributes Name
procedure(mean_obliquity_func), optional :: obliquity_func

optional function to compute the mean obliquity. If not present, then mean_obliquity_of_ecliptic_iau1980 is used.

Return Value real(kind=wp), dimension(3,3)

rotation matrix

public pure function equatorial_to_mean_ecliptic_rotmat(obliquity_func) result(rot)

Rotation matrix from J2000 to Mean Ecliptic.

Arguments

Type IntentOptional Attributes Name
procedure(mean_obliquity_func), optional :: obliquity_func

optional function to compute the mean obliquity. If not present, then mean_obliquity_of_ecliptic_iau1980 is used.

Return Value real(kind=wp), dimension(3,3)

rotation matrix

public pure function mean_obliquity_of_ecliptic_iau2006(et) result(e)

Mean obliquity of the ecliptic, IAU 2006 formula.

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: et

ephemeris time (sec)

Return Value real(kind=wp)

obliquity of ecliptic (deg)

public pure function mean_obliquity_of_ecliptic_iau1980(et) result(e)

Mean obliquity of the ecliptic, IAU 1980 formula.

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: et

ephemeris time (sec)

Return Value real(kind=wp)

obliquity of ecliptic (deg)