粒子種設定から有効粒子数密度 [1/m^3] を計算する。
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(particle_species_spec), | intent(in) | :: | spec |
pure function species_number_density_m3(spec) result(number_density_m3) type(particle_species_spec), intent(in) :: spec real(dp) :: number_density_m3 number_density_m3 = spec%number_density_m3 if (spec%has_number_density_cm3) number_density_m3 = spec%number_density_cm3*1.0d6 end function species_number_density_m3