species_number_density_m3 Function

public pure function species_number_density_m3(spec) result(number_density_m3)

粒子種設定から有効粒子数密度 [1/m^3] を計算する。

Arguments

Type IntentOptional Attributes Name
type(particle_species_spec), intent(in) :: spec

Return Value real(kind=dp)


Called by

proc~~species_number_density_m3~2~~CalledByGraph proc~species_number_density_m3~2 species_number_density_m3 proc~evaluate_surface_current_model evaluate_surface_current_model proc~evaluate_surface_current_model->proc~species_number_density_m3~2 proc~evaluate_surface_closure evaluate_surface_closure proc~evaluate_surface_closure->proc~evaluate_surface_current_model

Source Code

  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