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

Source Code

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

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