粒子種設定から有効温度 [K] を計算する。
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(particle_species_spec), | intent(in) | :: | spec |
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