iau_orientation_module Module

Jacob Williams
89 statements
Source File

IAU orientation models for the Earth and planets.

See also

NAIF SPICE pck.html documentation
"Report of the IAU Working Group on Cartographic Coordinates and Rotational Elements: 2009", Celestial Mechanics and Dynamical Astronomy, February 2011, Vol 109, Issue 2, p 101-135.

Warning

Not Finished.

Todo

Use a class to provide access to the different models

Uses

Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Used by

Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Functions

public pure function iau_rotation_matrix(w, dec, ra) result(rotmat)

Author: Jacob Williams
Date: 2/3/2015

Returns the rotation matrix for a coordinate transformation from the International Celestial Reference Frame (ICRF) frame to the IAU rotating frame associated with a body. The IAU orientation models use three Euler angles to describe the pole and prime meridian location (ra, dec, and w).

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	w	right ascension of the pole [rad]
real(kind=wp),	intent(in)			::	dec	declination of the pole [rad]
real(kind=wp),	intent(in)			::	ra	prime meridian location [rad]

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

the rotation matrix

public pure function icrf_to_iau_earth(et) result(rotmat)

Author: Jacob Williams
Date: 2/3/2015

Rotation matrix from ICRF to IAU_EARTH.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	et	ephemeris time [sec]

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

the rotation matrix

public pure function icrf_to_iau_moon(et) result(rotmat)

Author: Jacob Williams
Date: 3/5/2016

Rotation matrix from ICRF to IAU_MOON.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	et	ephemeris time [sec]

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

the rotation matrix

Subroutines

public subroutine iau_test()

Author: Jacob Williams
Date: 2/3/2015

Unit test routine for iau_module.

Arguments

None