circular_orbit Derived Type

  1. module_analytic_circular_orbit.f90
  2. analytic_circular_orbit
  3. circular_orbit

type, public, extends(equation) :: circular_orbit


Inherits

type~~circular_orbit~~InheritsGraph type~circular_orbit circular_orbit type~equation equation type~circular_orbit->type~equation

Contents

Variables

Type-Bound Procedures

Source Code

circular_orbit

Components

TypeVisibility AttributesNameInitial
integer(kind=ip), public :: ntmp

The number of temporary storage variables to allocate.
character(len=:), public, allocatable:: ename

The name of the system of equations
real(kind=wp), public :: r
real(kind=wp), public :: omega
real(kind=wp), public :: amp
real(kind=wp), public :: sigma
real(kind=wp), public :: t0
real(kind=wp), public :: En
real(kind=wp), public :: Lz
real(kind=wp), public :: chiomega
real(kind=wp), public :: phi_initial
integer(kind=ip), public :: io_id

Type-Bound Procedures

procedure, public :: init => co_init

  • interface

    public module subroutine co_init(this)

    Arguments

    Type IntentOptional AttributesName
    class(circular_orbit), intent(inout), target:: this

procedure, public :: rhs => co_rhs

procedure, public :: set_to_zero => co_set_to_zero

  • interface

    public module subroutine co_set_to_zero(this, dest)

    Arguments

    Type IntentOptional AttributesName
    class(circular_orbit), intent(inout) :: this
    integer(kind=ip), intent(in) :: dest

procedure, public :: update_vars => co_update_vars

  • interface

    public module subroutine co_update_vars(this, source, dest, source2, scalar, scalar2)

    Arguments

    Type IntentOptional AttributesName
    class(circular_orbit), intent(inout), target:: this
    integer(kind=ip), intent(in) :: source
    integer(kind=ip), intent(in) :: dest
    integer(kind=ip), intent(in), optional :: source2
    real(kind=wp), intent(in), optional :: scalar
    real(kind=wp), intent(in), optional :: scalar2

procedure, public :: save_globals_1 => co_save_globals_1

  • interface

    public module subroutine co_save_globals_1(this)

    Arguments

    Type IntentOptional AttributesName
    class(circular_orbit), intent(inout) :: this

procedure, public :: save_globals_2 => co_save_globals_2

  • interface

    public module subroutine co_save_globals_2(this)

    Arguments

    Type IntentOptional AttributesName
    class(circular_orbit), intent(inout) :: this

procedure, public :: load_globals => co_load_globals

  • interface

    public module subroutine co_load_globals(this)

    Arguments

    Type IntentOptional AttributesName
    class(circular_orbit), intent(inout) :: this

procedure, public :: output => co_output

  • interface

    public module subroutine co_output(this)

    Arguments

    Type IntentOptional AttributesName
    class(circular_orbit), intent(inout) :: this

procedure, public :: print_data => co_print_data

  • interface

    public module subroutine co_print_data(this)

    Arguments

    Type IntentOptional AttributesName
    class(circular_orbit), intent(inout) :: this

Source Code

  type, extends(equation) :: circular_orbit
    real(wp) :: r
    real(wp) :: omega
    real(wp) :: amp
    real(wp) :: sigma
    real(wp) :: t0
    real(wp) :: En
    real(wp) :: Lz
    real(wp) :: chiomega
    real(wp) :: phi_initial
    integer(ip) :: io_id
  contains
    procedure :: init => co_init
    procedure :: rhs => co_rhs
    procedure :: set_to_zero => co_set_to_zero
    procedure :: update_vars => co_update_vars
    procedure :: save_globals_1 => co_save_globals_1
    procedure :: save_globals_2 => co_save_globals_2
    procedure :: load_globals => co_load_globals
    procedure :: output => co_output
    procedure :: print_data => co_print_data
  end type circular_orbit