mod_iv_initial_conditions Module

Uses

Derived Types

type, public :: ic_density_t

Components

Type	Visibility	Attributes		Name		Initial
procedure(profile_fcn),	public,	pointer, nopass	::	rho	=>	null()
procedure(profile_fcn),	public,	pointer, nopass	::	drho	=>	null()

type, public :: ic_velocity_t

Components

Type	Visibility	Attributes		Name		Initial
procedure(profile_fcn),	public,	pointer, nopass	::	v	=>	null()
procedure(profile_fcn),	public,	pointer, nopass	::	dv	=>	null()

type, public :: ic_temperature_t

Components

Type	Visibility	Attributes		Name		Initial
procedure(profile_fcn),	public,	pointer, nopass	::	T	=>	null()
procedure(profile_fcn),	public,	pointer, nopass	::	dT	=>	null()

type, public :: initial_conditions_t

Components

Type	Visibility	Attributes		Name		Initial
type(ic_density_t),	public		::	density
type(ic_velocity_t),	public		::	velocity_1
type(ic_velocity_t),	public		::	velocity_2
type(ic_velocity_t),	public		::	velocity_3
type(ic_temperature_t),	public		::	temperature

Type-Bound Procedures

procedure, public :: set_ic_density_funcs
procedure, public :: set_ic_velocity_1_funcs
procedure, public :: set_ic_velocity_2_funcs
procedure, public :: set_ic_velocity_3_funcs
procedure, public :: set_ic_temperature_funcs

Functions

public function new_initial_conditions() result(ic)

Arguments

None

Return Value type(initial_conditions_t)

Subroutines

private subroutine set_ic_density_funcs(self, rho_func, drho_func)

Arguments

Type	Intent	Optional	Attributes		Name
class(initial_conditions_t),	intent(inout)			::	self
procedure(profile_fcn)				::	rho_func
procedure(profile_fcn),		optional		::	drho_func

private subroutine set_ic_velocity_1_funcs(self, v01_func, dv01_func)

Arguments

Type	Intent	Optional	Attributes		Name
class(initial_conditions_t),	intent(inout)			::	self
procedure(profile_fcn)				::	v01_func
procedure(profile_fcn)				::	dv01_func

private subroutine set_ic_velocity_2_funcs(self, v02_func, dv02_func)

Arguments

Type	Intent	Optional	Attributes		Name
class(initial_conditions_t),	intent(inout)			::	self
procedure(profile_fcn)				::	v02_func
procedure(profile_fcn)				::	dv02_func

private subroutine set_ic_velocity_3_funcs(self, v03_func, dv03_func)

Arguments

Type	Intent	Optional	Attributes		Name
class(initial_conditions_t),	intent(inout)			::	self
procedure(profile_fcn)				::	v03_func
procedure(profile_fcn)				::	dv03_func

private subroutine set_ic_temperature_funcs(self, T_func, dT_func)

Arguments

Type	Intent	Optional	Attributes		Name
class(initial_conditions_t),	intent(inout)			::	self
procedure(profile_fcn)				::	T_func
procedure(profile_fcn),		optional		::	dT_func