get_toml_boundary_inflow_mode Subroutine

public subroutine get_toml_boundary_inflow_mode(table, key, value, context)

Arguments

Type IntentOptional Attributes Name
type(toml_table), intent(inout) :: table
type(toml_key), intent(in) :: key
integer(kind=i32), intent(out) :: value
character(len=*), intent(in) :: context

Calls

proc~~get_toml_boundary_inflow_mode~~CallsGraph proc~get_toml_boundary_inflow_mode get_toml_boundary_inflow_mode proc~get_toml_string get_toml_string proc~get_toml_boundary_inflow_mode->proc~get_toml_string proc~lower_ascii lower_ascii proc~get_toml_boundary_inflow_mode->proc~lower_ascii proc~stop_config_error stop_config_error proc~get_toml_boundary_inflow_mode->proc~stop_config_error proc~get_toml_string->proc~stop_config_error get_value get_value proc~get_toml_string->get_value proc~require_toml_success require_toml_success proc~get_toml_string->proc~require_toml_success proc~require_toml_success->proc~stop_config_error

Source Code

  subroutine get_toml_boundary_inflow_mode(table, key, value, context)
    type(toml_table), intent(inout) :: table
    type(toml_key), intent(in) :: key
    integer(i32), intent(out) :: value
    character(len=*), intent(in) :: context
    character(len=32) :: mode

    call get_toml_string(table, key, mode, context)
    select case (trim(lower_ascii(mode)))
    case ('reservoir')
      value = particle_inflow_reservoir
    case default
      call stop_config_error(trim(context)//' must be "reservoir". Omit the key to disable inflow.')
    end select
  end subroutine get_toml_boundary_inflow_mode