species_temperature_k Function

public pure function species_temperature_k(spec) result(temperature_k)

粒子種設定から有効温度 [K] を計算する。

Arguments

Type IntentOptional Attributes Name
type(particle_species_spec), intent(in) :: spec

Return Value real(kind=dp)


Called by

proc~~species_temperature_k~~CalledByGraph proc~species_temperature_k species_temperature_k proc~build_particle_source_plan build_particle_source_plan proc~build_particle_source_plan->proc~species_temperature_k proc~compute_macro_particles_for_species compute_macro_particles_for_species proc~compute_macro_particles_for_species->proc~species_temperature_k proc~evaluate_surface_current_model evaluate_surface_current_model proc~evaluate_surface_current_model->proc~species_temperature_k proc~refresh_zhao_outflow_closure refresh_zhao_outflow_closure proc~refresh_zhao_outflow_closure->proc~species_temperature_k proc~solve_zhao_outflow_closure solve_zhao_outflow_closure proc~solve_zhao_outflow_closure->proc~species_temperature_k proc~warn_face_average_potential_variation warn_face_average_potential_variation proc~warn_face_average_potential_variation->proc~species_temperature_k proc~evaluate_surface_closure evaluate_surface_closure proc~evaluate_surface_closure->proc~evaluate_surface_current_model

Source Code

  pure function species_temperature_k(spec) result(temperature_k)
    type(particle_species_spec), intent(in) :: spec
    real(dp) :: temperature_k

    temperature_k = spec%temperature_k
    if (spec%has_temperature_ev) temperature_k = spec%temperature_ev*1.160451812d4
  end function species_temperature_k