CA Function

  1. korc_collisions.f90
  2. korc_collisions
  3. CA

private function CA(v)

Arguments

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

Return Value real(kind=rp)


Calls

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

Called by

proc~~ca~~CalledByGraph proc~ca CA proc~nu_par nu_par proc~nu_par->proc~ca 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

CA

Source Code

  function CA(v)
    REAL(rp), INTENT(IN) 	:: v
    REAL(rp) 				:: CA
    REAL(rp) 				:: x

    x = v/cparams_ss%VTe

    if ((.not.cparams_ms%LargeCollisions).or. &
         (.not.(cparams_ss%P%ne_profile(1:6).eq.'RE-EVO'))) then
       CA  = cparams_ss%Gammac*psi(x)/v
    else
       CA  = cparams_ms%Gammac_min*psi(x)/v
    endif
  end function CA