CB_ei_FIO Function

  1. korc_collisions.f90
  2. korc_collisions
  3. CB_ei_FIO

private function CB_ei_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~~cb_ei_fio~~CallsGraph proc~cb_ei_fio CB_ei_FIO proc~clogei CLogei proc~cb_ei_fio->proc~clogei proc~clogee CLogee proc~cb_ei_fio->proc~clogee proc~g_j g_j proc~cb_ei_fio->proc~g_j 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~~cb_ei_fio~~CalledByGraph proc~cb_ei_fio CB_ei_FIO proc~nu_d_fio nu_D_FIO proc~nu_d_fio->proc~cb_ei_fio proc~define_collisions_time_step define_collisions_time_step proc~define_collisions_time_step->proc~nu_d_fio program~main main program~main->proc~define_collisions_time_step

Contents

Source Code

CB_ei_FIO

Source Code

  function CB_ei_FIO(params,v)
    TYPE(KORC_PARAMS), INTENT(IN) 	:: params
    REAL(rp), INTENT(IN) 	:: v
    REAL(rp) 				:: CB_ei_FIO
    REAL(rp) 				:: CB_ei_temp
    REAL(rp) 				:: x
    INTEGER :: i

    x = v/cparams_ss%VTe
    CB_ei_FIO  = (0.5_rp*cparams_ss%Gammac/v)*(cparams_ss%Zeff* &
         CLogei(v,cparams_ss%ne,cparams_ss%Te)/ &
         CLogee(v,cparams_ss%ne,cparams_ss%Te))


    if (params%bound_electron_model.eq.'HESSLOW') then
       CB_ei_temp=CB_ei_FIO
       do i=1,1
          CB_ei_temp=CB_ei_temp+CB_ei_FIO*cparams_ms%nz(i)/(cparams_ms%ne* &
               cparams_ss%Zeff*CLogei(v,cparams_ss%ne,cparams_ss%Te))* &
               g_j(i,v)
       end do
       CB_ei_FIO=CB_ei_temp
    end if
    
  end function CB_ei_FIO