mod_background Module



Contents


Derived Types

type, public :: background_t

Components

TypeVisibilityAttributesNameInitial
type(bg_density_t), public :: density
type(bg_velocity_t), public :: velocity
type(bg_temperature_t), public :: temperature
type(bg_magnetic_t), public :: magnetic

Type-Bound Procedures

procedure, public :: set_density_funcs
procedure, public :: set_velocity_1_funcs
procedure, public :: set_velocity_2_funcs
procedure, public :: set_velocity_3_funcs
procedure, public :: set_temperature_funcs
procedure, public :: set_magnetic_1_funcs
procedure, public :: set_magnetic_2_funcs
procedure, public :: set_magnetic_3_funcs
procedure, public :: delete

Functions

public function new_background() result(background)

Arguments

None

Return Value type(background_t)


Subroutines

private subroutine set_density_funcs(this, rho0_func, drho0_func)

Arguments

TypeIntentOptionalAttributesName
class(background_t), intent(inout) :: this
procedure(realdp) :: rho0_func
procedure(realdp), optional :: drho0_func

private subroutine set_velocity_1_funcs(this, v01_func, dv01_func, ddv01_func)

Arguments

TypeIntentOptionalAttributesName
class(background_t), intent(inout) :: this
procedure(realdp) :: v01_func
procedure(realdp), optional :: dv01_func
procedure(realdp), optional :: ddv01_func

private subroutine set_velocity_2_funcs(this, v02_func, dv02_func, ddv02_func)

Arguments

TypeIntentOptionalAttributesName
class(background_t), intent(inout) :: this
procedure(realdp) :: v02_func
procedure(realdp), optional :: dv02_func
procedure(realdp), optional :: ddv02_func

private subroutine set_velocity_3_funcs(this, v03_func, dv03_func, ddv03_func)

Arguments

TypeIntentOptionalAttributesName
class(background_t), intent(inout) :: this
procedure(realdp) :: v03_func
procedure(realdp), optional :: dv03_func
procedure(realdp), optional :: ddv03_func

private subroutine set_temperature_funcs(this, T0_func, dT0_func, ddT0_func)

Arguments

TypeIntentOptionalAttributesName
class(background_t), intent(inout) :: this
procedure(realdp) :: T0_func
procedure(realdp), optional :: dT0_func
procedure(realdp), optional :: ddT0_func

private subroutine set_magnetic_1_funcs(this, B01_func)

Arguments

TypeIntentOptionalAttributesName
class(background_t), intent(inout) :: this
procedure(realdp) :: B01_func

private subroutine set_magnetic_2_funcs(this, B02_func, dB02_func, ddB02_func)

Arguments

TypeIntentOptionalAttributesName
class(background_t), intent(inout) :: this
procedure(realdp) :: B02_func
procedure(realdp), optional :: dB02_func
procedure(realdp), optional :: ddB02_func

private subroutine set_magnetic_3_funcs(this, B03_func, dB03_func, ddB03_func)

Arguments

TypeIntentOptionalAttributesName
class(background_t), intent(inout) :: this
procedure(realdp) :: B03_func
procedure(realdp), optional :: dB03_func
procedure(realdp), optional :: ddB03_func

private pure subroutine delete(this)

Arguments

TypeIntentOptionalAttributesName
class(background_t), intent(inout) :: this