nu_par Function

  1. korc_collisions.f90
  2. korc_collisions
  3. nu_par

private function nu_par(v)

Arguments

Type IntentOptional AttributesName
real(kind=rp), intent(in) :: v

Return Value real(kind=rp)


Calls

proc~~nu_par~~CallsGraph proc~nu_par nu_par proc~ca CA proc~nu_par->proc~ca proc~psi psi proc~ca->proc~psi

Called by

proc~~nu_par~~CalledByGraph proc~nu_par nu_par proc~define_collisions_time_step define_collisions_time_step proc~define_collisions_time_step->proc~nu_par program~main main program~main->proc~define_collisions_time_step

Contents

Source Code

nu_par

Source Code

  function nu_par(v)
    ! parallel (speed diffusion) collision frequency
    REAL(rp), INTENT(IN) 	:: v
      ! Normalised particle speed
    REAL(rp) 				:: nu_par
    REAL(rp) 				:: p

    p = v/SQRT(1.0_rp - v**2)
    nu_par = 2.0_rp*CA(v)/p**2
  end function nu_par