nu_S_FIO Function

  1. korc_collisions.f90
  2. korc_collisions
  3. nu_S_FIO

private function nu_S_FIO(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_s_fio~~CallsGraph proc~nu_s_fio nu_S_FIO proc~cf_fio CF_FIO proc~nu_s_fio->proc~cf_fio proc~psi psi proc~cf_fio->proc~psi proc~h_j h_j proc~cf_fio->proc~h_j proc~clogee CLogee proc~cf_fio->proc~clogee proc~clog0 CLog0 proc~clogee->proc~clog0 proc~vte VTe proc~clogee->proc~vte

Called by

proc~~nu_s_fio~~CalledByGraph proc~nu_s_fio nu_S_FIO proc~define_collisions_time_step define_collisions_time_step proc~define_collisions_time_step->proc~nu_s_fio program~main main program~main->proc~define_collisions_time_step

Contents

Source Code

nu_S_FIO

Source Code

  function nu_S_FIO(params,v)
    ! Slowing down collision frequency
    TYPE(KORC_PARAMS), INTENT(IN) 	:: params
    REAL(rp), INTENT(IN) 	:: v
      ! Normalised particle speed
    REAL(rp) 				:: nu_S_FIO
    REAL(rp) 				:: nu_S_temp
    REAL(rp) 				:: p
    
    p = v/SQRT(1.0_rp - v**2)
    nu_S_FIO = CF_FIO(params,v)/p
        
  end function nu_S_FIO