analytical_ephemeris_module Module

Analytical ephemeris routines for solar system bodies.

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.

Subroutines

public subroutine simpson_lunar_ephemeris(jd, r_moon, v_moon)

A simple analytical lunar ephemeris model. Returns Lunar cartesian coordinates (mean equator and equinox of epoch J2000).

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	jd	Julian date
real(kind=wp),	intent(out),		dimension(3)	::	r_moon	Moon position (km)
real(kind=wp),	intent(out),	optional,	dimension(3)	::	v_moon	Moon velocity (km/s)