evaluate_surface_closure Subroutine

public subroutine evaluate_surface_closure(app, contract, cell)

モデル固有の診断値をシミュレータへ漏らさず、境界契約だけを返す。

Arguments

Type IntentOptional Attributes Name
type(app_config), intent(in) :: app
type(surface_closure_contract_type), intent(out) :: contract
type(irradiation_cell_contract_type), intent(in), optional :: cell

Calls

proc~~evaluate_surface_closure~~CallsGraph proc~evaluate_surface_closure evaluate_surface_closure proc~evaluate_surface_current_model evaluate_surface_current_model proc~evaluate_surface_closure->proc~evaluate_surface_current_model conditions conditions proc~evaluate_surface_current_model->conditions emitted_fluxes emitted_fluxes proc~evaluate_surface_current_model->emitted_fluxes initialize initialize proc~evaluate_surface_current_model->initialize maxwellian_emission maxwellian_emission proc~evaluate_surface_current_model->maxwellian_emission none~outward_normal_velocity irradiation_cell_contract_type%outward_normal_velocity proc~evaluate_surface_current_model->none~outward_normal_velocity none~wall_area irradiation_cell_contract_type%wall_area proc~evaluate_surface_current_model->none~wall_area none~wall_tangents_periodic irradiation_cell_contract_type%wall_tangents_periodic proc~evaluate_surface_current_model->none~wall_tangents_periodic proc~lower_ascii lower_ascii proc~evaluate_surface_current_model->proc~lower_ascii proc~resolve_irradiation_cell_contract resolve_irradiation_cell_contract proc~evaluate_surface_current_model->proc~resolve_irradiation_cell_contract proc~species_number_density_m3 species_number_density_m3 proc~evaluate_surface_current_model->proc~species_number_density_m3 proc~species_temperature_k species_temperature_k proc~evaluate_surface_current_model->proc~species_temperature_k proc~resolve_irradiation_cell_contract->proc~lower_ascii

Source Code

  subroutine evaluate_surface_closure(app, contract, cell)
    type(app_config), intent(in) :: app
    type(surface_closure_contract_type), intent(out) :: contract
    type(irradiation_cell_contract_type), intent(in), optional :: cell
    type(surface_current_model_result_type) :: detailed_result

    call evaluate_surface_current_model(app, detailed_result, cell)
    contract = detailed_result%surface_closure_contract_type
  end subroutine evaluate_surface_closure