CB_ee Function

  1. korc_collisions.f90
  2. korc_collisions
  3. CB_ee

private function CB_ee(v)

Arguments

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

Return Value real(kind=rp)


Calls

proc~~cb_ee~~CallsGraph proc~cb_ee CB_ee proc~psi psi proc~cb_ee->proc~psi

Called by

proc~~cb_ee~~CalledByGraph proc~cb_ee CB_ee proc~nu_d_fio nu_D_FIO proc~nu_d_fio->proc~cb_ee proc~nu_d nu_D proc~nu_d->proc~cb_ee proc~define_collisions_time_step define_collisions_time_step proc~define_collisions_time_step->proc~nu_d_fio proc~define_collisions_time_step->proc~nu_d program~main main program~main->proc~define_collisions_time_step

Contents

Source Code

CB_ee

Source Code

  function CB_ee(v)
    REAL(rp), INTENT(IN) 	:: v
    REAL(rp) 				:: CB_ee
    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
       CB_ee  = (0.5_rp*cparams_ss%Gammac/v)*(ERF(x) - &
            psi(x) + 0.5_rp*cparams_ss%delta**4*x**2 )
    else
       CB_ee  = (0.5_rp*cparams_ms%Gammac_min/v)*(ERF(x) - &
            psi(x) + 0.5_rp*cparams_ss%delta**4*x**2 )
    endif
    

  end function CB_ee