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~2~~CalledByGraph proc~species_temperature_k~2 species_temperature_k proc~evaluate_surface_current_model evaluate_surface_current_model proc~evaluate_surface_current_model->proc~species_temperature_k~2 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