zhao_photo_vmin_normal Function

public function zhao_photo_vmin_normal(branch, phi0_v, phi_m_v, m_phe_kg) result(vmin_normal)

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: branch
real(kind=dp), intent(in) :: phi0_v
real(kind=dp), intent(in) :: phi_m_v
real(kind=dp), intent(in) :: m_phe_kg

Return Value real(kind=dp)


Called by

proc~~zhao_photo_vmin_normal~~CalledByGraph proc~zhao_photo_vmin_normal zhao_photo_vmin_normal proc~resolve_sheath_injection_context resolve_sheath_injection_context proc~resolve_sheath_injection_context->proc~zhao_photo_vmin_normal proc~init_particle_batch_from_config init_particle_batch_from_config proc~init_particle_batch_from_config->proc~resolve_sheath_injection_context

Source Code

  real(dp) function zhao_photo_vmin_normal(branch, phi0_v, phi_m_v, m_phe_kg) result(vmin_normal)
    character(len=1), intent(in) :: branch
    real(dp), intent(in) :: phi0_v, phi_m_v, m_phe_kg
    real(dp) :: delta_phi_phe

    select case (branch)
    case ('A')
      delta_phi_phe = phi0_v - phi_m_v
    case ('B')
      delta_phi_phe = phi0_v
    case ('C')
      delta_phi_phe = 0.0d0
    case default
      error stop 'Unexpected Zhao sheath branch.'
    end select
    vmin_normal = sqrt(max(0.0d0, 2.0d0*qe*max(0.0d0, delta_phi_phe))/abs(m_phe_kg))
  end function zhao_photo_vmin_normal