config_uses_surface_model Function

public function config_uses_surface_model(cfg, surface_model) result(uses_surface_model)

現在のメッシュ入力設定が指定された表面モデルを使うかを返す。

Arguments

Type IntentOptional Attributes Name
type(app_config), intent(in) :: cfg
character(len=*), intent(in) :: surface_model

Return Value logical


Source Code

  logical function config_uses_surface_model(cfg, surface_model) result(uses_surface_model)
    type(app_config), intent(in) :: cfg
    character(len=*), intent(in) :: surface_model
    integer :: i

    uses_surface_model = .false.
    do i = 1, cfg%n_mesh_parts
      if (.not. cfg%mesh_parts(i)%enabled) cycle
      if (trim(cfg%mesh_parts(i)%surface_model) == surface_model) then
        uses_surface_model = .true.
        return
      end if
    end do
  end function config_uses_surface_model