Processing math: 100%

mod_inspections Module

  1. mod_inspections.f08
  2. mod_inspections

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


Uses


Contents

Interfaces

Functions

Subroutines


Interfaces

interface

  • private function dp_func(x)

    Arguments

    TypeIntentOptionalAttributesName
    real(kind=dp), intent(in) :: x

    Return Value real(kind=dp)


Functions

private function contains_negative(func, grid)

Arguments

TypeIntentOptionalAttributesName
procedure(dp_func), pointer:: func
type(grid_t), intent(in) :: grid

Return Value logical

private function contains_NaN(func, grid)

Arguments

TypeIntentOptionalAttributesName
procedure(dp_func), pointer:: func
type(grid_t), intent(in) :: grid

Return Value logical

private function nan_values_present(background, physics, grid)

Arguments

TypeIntentOptionalAttributesName
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

TypeIntentOptionalAttributesName
type(background_t), intent(in) :: background
type(grid_t), intent(in) :: grid

Return Value logical

private function wave_numbers_are_valid(geometry)

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: geometry

Return Value logical

private function B01_and_cylindrical(settings, grid, background)

Arguments

TypeIntentOptionalAttributesName
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

TypeIntentOptionalAttributesName
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

TypeIntentOptionalAttributesName
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

TypeIntentOptionalAttributesName
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

TypeIntentOptionalAttributesName
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

TypeIntentOptionalAttributesName
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

TypeIntentOptionalAttributesName
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

TypeIntentOptionalAttributesName
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

TypeIntentOptionalAttributesName
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

TypeIntentOptionalAttributesName
type(settings_t), intent(in) :: settings
type(background_t), intent(in) :: background

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

Arguments

TypeIntentOptionalAttributesName
type(settings_t), intent(in) :: settings
type(grid_t), intent(in) :: grid
type(background_t), intent(in) :: background
type(physics_t), intent(in) :: physics