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~compute_macro_particles_for_species compute_macro_particles_for_species proc~compute_macro_particles_for_species->proc~species_temperature_k~2 proc~init_particle_batch_from_config init_particle_batch_from_config proc~init_particle_batch_from_config->proc~species_temperature_k~2 proc~init_particle_batch_from_config->proc~compute_macro_particles_for_species proc~sample_photo_species_state sample_photo_species_state proc~init_particle_batch_from_config->proc~sample_photo_species_state proc~sample_species_state sample_species_state proc~init_particle_batch_from_config->proc~sample_species_state proc~sample_photo_species_state->proc~species_temperature_k~2 proc~sample_species_state->proc~species_temperature_k~2 proc~init_particles_from_config init_particles_from_config proc~init_particles_from_config->proc~sample_species_state

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