mod_cooling_curves Module


Uses


Variables

Type Visibility Attributes Name Initial
real(kind=dp), private, allocatable :: curve_T(:)
real(kind=dp), private, allocatable :: curve_lambda(:)
real(kind=dp), private, allocatable :: curve_dlambdadT(:)
real(kind=dp), private :: minT
real(kind=dp), private :: maxT

Functions

private pure function get_rosner_index(logT0)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: logT0

dimensionfull log10(T0) value

Return Value integer

public function get_rosner_lambdaT(x, settings, background)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: x
type(settings_t), intent(in) :: settings
type(background_t), intent(in) :: background

Return Value real(kind=dp)

public function get_rosner_dlambdadT(x, settings, background)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: x
type(settings_t), intent(in) :: settings
type(background_t), intent(in) :: background

Return Value real(kind=dp)

public function get_interpolated_lambdaT(x, settings, background)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: x
type(settings_t), intent(in) :: settings
type(background_t), intent(in) :: background

Return Value real(kind=dp)

public function get_interpolated_dlambdadT(x, settings, background)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: x
type(settings_t), intent(in) :: settings
type(background_t), intent(in) :: background

Return Value real(kind=dp)

public function is_valid_cooling_curve(name)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name

Return Value logical


Subroutines

public subroutine interpolate_cooling_curves(settings)

The cooling tables contain dimensionfull values on a logarithmic scale. To avoid resampling the table on an unequally spaced temperature grid by doing 10**T, we interpolate the logarithmic table values on an equally spaced T grid in log scale, so we get log10(lambda(T)) and log10(T) values.

Read more…

Arguments

Type IntentOptional Attributes Name
type(settings_t), intent(in) :: settings

public subroutine get_cooling_table(name, table_T, table_lambda)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name
real(kind=dp), intent(out), allocatable :: table_T(:)
real(kind=dp), intent(out), allocatable :: table_lambda(:)

public subroutine deallocate_cooling_curves()

Arguments

None