config_uses_conductor_surface_model Function

public function config_uses_conductor_surface_model(cfg) result(uses_conductor)

現在のメッシュ入力設定が conductor 表面を生成し得るかを返す。

Arguments

Type IntentOptional Attributes Name
type(app_config), intent(in) :: cfg

Return Value logical


Called by

proc~~config_uses_conductor_surface_model~~CalledByGraph proc~config_uses_conductor_surface_model config_uses_conductor_surface_model proc~load_toml_config load_toml_config proc~load_toml_config->proc~config_uses_conductor_surface_model proc~load_app_config load_app_config proc~load_app_config->proc~load_toml_config proc~load_or_init_run_state load_or_init_run_state proc~load_or_init_run_state->proc~load_app_config program~main main program~main->proc~load_or_init_run_state

Source Code

  logical function config_uses_conductor_surface_model(cfg) result(uses_conductor)
    type(app_config), intent(in) :: cfg
    character(len=16) :: mode
    logical :: has_obj
    integer :: i

    uses_conductor = .false.
    mode = trim(cfg%mesh_mode)
    select case (mode)
    case ('obj')
      uses_conductor = trim(cfg%mesh_surface_model) == 'conductor'
      return
    case ('auto')
      inquire (file=trim(cfg%obj_path), exist=has_obj)
      if (has_obj) then
        uses_conductor = trim(cfg%mesh_surface_model) == 'conductor'
        return
      end if
    end select
    do i = 1, cfg%n_templates
      if (.not. cfg%templates(i)%enabled) cycle
      if (trim(cfg%templates(i)%surface_model) == 'conductor') then
        uses_conductor = .true.
        return
      end if
    end do
  end function config_uses_conductor_surface_model