nu_D Function

  1. korc_collisions.f90
  2. korc_collisions
  3. nu_D

private function nu_D(params, v)

Arguments

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

Return Value real(kind=rp)


Calls

proc~~nu_d~~CallsGraph proc~nu_d nu_D proc~cb_ee CB_ee proc~nu_d->proc~cb_ee proc~cb_ei CB_ei proc~nu_d->proc~cb_ei proc~psi psi proc~cb_ee->proc~psi proc~clogei CLogei proc~cb_ei->proc~clogei proc~g_j g_j proc~cb_ei->proc~g_j proc~clogee CLogee proc~cb_ei->proc~clogee proc~clog0 CLog0 proc~clogei->proc~clog0 proc~vte VTe proc~clogei->proc~vte proc~clogee->proc~clog0 proc~clogee->proc~vte

Called by

proc~~nu_d~~CalledByGraph proc~nu_d nu_D proc~define_collisions_time_step define_collisions_time_step proc~define_collisions_time_step->proc~nu_d program~main main program~main->proc~define_collisions_time_step

Contents

Source Code

nu_D

Source Code

  function nu_D(params,v)
    ! perpendicular diffusion (pitch angle scattering) collision frequency
    REAL(rp), INTENT(IN) 	:: v
    TYPE(KORC_PARAMS), INTENT(IN) 	:: params
      ! Normalised particle speed
    REAL(rp) 				:: nu_D
    REAL(rp) 				:: p

    p = v/SQRT(1.0_rp - v**2)
    nu_D = 2.0_rp*(CB_ee(v)+CB_ei(params,v))/p**2
  end function nu_D