mod_inspections Module

Module to inspect if certain conditions are fulfilled by doing additional sanity checks on the equilibrium configuration. For cylindrical geometries we check if is an integer and if the on-axis values obey regularity conditions. Equilibrium balance for both the Cartesian and cylindrical cases is checked.


Uses


Interfaces

interface

  • private function dp_func(x)

    Arguments

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

    Return Value real(kind=dp)


Functions

private function contains_negative(func, grid)

Arguments

Type IntentOptional Attributes Name
procedure(dp_func), pointer :: func
type(grid_t), intent(in) :: grid

Return Value logical

private function contains_NaN(func, grid)

Arguments

Type IntentOptional Attributes Name
procedure(dp_func), pointer :: func
type(grid_t), intent(in) :: grid

Return Value logical

private function nan_values_present(background, physics, grid)

Arguments

Type IntentOptional Attributes Name
type(background_t), intent(in) :: background
type(physics_t), intent(in) :: physics
type(grid_t), intent(in) :: grid

Return Value logical

private function negative_values_present(background, grid)

Arguments

Type IntentOptional Attributes Name
type(background_t), intent(in) :: background
type(grid_t), intent(in) :: grid

Return Value logical

private function wave_numbers_are_valid(geometry)

Arguments

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

Return Value logical

private function B01_and_cylindrical(settings, grid, background)

Arguments

Type IntentOptional Attributes Name
type(settings_t), intent(in) :: settings
type(grid_t), intent(in) :: grid
type(background_t), intent(in) :: background

Return Value logical

private impure elemental function continuity_condition(x, grid, background)

Arguments

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

Return Value real(kind=dp)

private impure elemental function force_balance_1_condition(x, grid, background, physics)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: x
type(grid_t), intent(in) :: grid
type(background_t), intent(in) :: background
type(physics_t), intent(in) :: physics

Return Value real(kind=dp)

private impure elemental function force_balance_2_condition(x, grid, background)

Arguments

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

Return Value real(kind=dp)

private impure elemental function force_balance_3_condition(x, background)

Arguments

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

Return Value real(kind=dp)

private impure elemental function energy_balance_condition(x, settings, grid, background, physics)

Arguments

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

Return Value real(kind=dp)

private impure elemental function induction_1_condition(x, background)

Arguments

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

Return Value real(kind=dp)

private impure elemental function induction_2_condition(x, grid, background)

Arguments

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

Return Value real(kind=dp)


Subroutines

public subroutine do_equilibrium_inspections(settings, grid, background, physics)

Arguments

Type IntentOptional Attributes Name
type(settings_t), intent(in) :: settings
type(grid_t), intent(in) :: grid
type(background_t), intent(in) :: background
type(physics_t), intent(inout) :: physics

private subroutine validate_on_axis_values(settings, background)

Arguments

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

private subroutine validate_equilibrium_conditions(settings, grid, background, physics)

Arguments

Type IntentOptional Attributes Name
type(settings_t), intent(in) :: settings
type(grid_t), intent(in) :: grid
type(background_t), intent(in) :: background
type(physics_t), intent(in) :: physics