A global type with information needed by the time dependent coordinate transformation object.
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=wp), | private | :: | r | The radial coordinate, (in Schwarzschild coordinates). |
|||
| real(kind=wp), | private | :: | drdt | The time derivative of the radial coordinate, . |
|||
| real(kind=wp), | private | :: | d2rdt2 | The second time derivative of the radial coordinate, . |
Routine to set the tdc_orbit values.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(tdc_orbit), | intent(inout) | :: | this | The routine is called on this tdc_orbit object. |
||
| real(kind=wp), | intent(in) | :: | r | The radial coordinate, (in Schwarzschild coordinates). |
||
| real(kind=wp), | intent(in) | :: | drdt | The time derivative of the radial coordinate, . |
||
| real(kind=wp), | intent(in) | :: | d2rdt2 | The second time derivative of the radial coordinate, . |
Routine to get the tdc_orbit values.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(tdc_orbit), | intent(inout) | :: | this | The routine is called on this tdc_orbit object. |
||
| real(kind=wp), | intent(out) | :: | r | The radial coordinate, (in Schwarzschild coordinates). |
||
| real(kind=wp), | intent(out) | :: | drdt | The time derivative of the radial coordinate, . |
||
| real(kind=wp), | intent(out) | :: | d2rdt2 | The second time derivative of the radial coordinate, . |
type :: tdc_orbit
!! A global type with information needed by the time dependent coordinate
!! transformation object.
real(wp), private :: r
!! The radial coordinate, \(r\) (in Schwarzschild coordinates).
real(wp), private :: drdt
!! The time derivative of the radial coordinate, \(\dot{r}\).
real(wp), private :: d2rdt2
!! The second time derivative of the radial coordinate, \(\ddot{r}\).
contains
procedure :: set_tdc
!! Routine to set the [[tdc_orbit]] values.
procedure :: get_tdc
!! Routine to get the [[tdc_orbit]] values.
end type tdc_orbit