apply_uniform_surface_model Subroutine

public subroutine apply_uniform_surface_model(mesh, surface_model_id)

全要素に同じ表面モデルIDを付与する。

Arguments

Type IntentOptional Attributes Name
type(mesh_type), intent(inout) :: mesh
integer(kind=i32), intent(in) :: surface_model_id

Called by

proc~~apply_uniform_surface_model~~CalledByGraph proc~apply_uniform_surface_model apply_uniform_surface_model proc~build_mesh_from_config build_mesh_from_config proc~build_mesh_from_config->proc~apply_uniform_surface_model proc~load_or_init_run_state load_or_init_run_state proc~load_or_init_run_state->proc~build_mesh_from_config program~main main program~main->proc~load_or_init_run_state

Source Code

  subroutine apply_uniform_surface_model(mesh, surface_model_id)
    type(mesh_type), intent(inout) :: mesh
    integer(i32), intent(in) :: surface_model_id

    if (.not. allocated(mesh%elem_surface_model)) return
    mesh%elem_surface_model = surface_model_id
  end subroutine apply_uniform_surface_model