CA_SD Function

  1. korc_collisions.f90
  2. korc_collisions
  3. CA_SD

private function CA_SD(v, ne, Te)

Arguments

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

Return Value real(kind=rp)


Contents

Source Code

CA_SD

Source Code

  function CA_SD(v,ne,Te)
    REAL(rp), INTENT(IN) 	:: v
    REAL(rp), INTENT(IN) 	:: ne
    REAL(rp), INTENT(IN) 	:: Te
    REAL(rp) 				:: CA_SD
    REAL(rp) 				:: x

    x = v/VTe(Te)
    CA_SD  = Gammacee(v,ne,Te)*psi(x)/v

!    write(6,'("ne, "E17.10)') ne
!    write(6,'("Te, "E17.10)') Te
    
!    write(6,'("x, "E17.10)') x
!    write(6,'("psi, "E17.10)') psi(x)
!    write(6,'("Gammac, "E17.10)') Gammac(ne,Te)
    
  end function CA_SD