Calculates the monoenergetic radial transport coefficients using epsilon effective.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=dp), | intent(in) | :: | eps_eff |
function neoclassics_calc_D11_mono(eps_eff) result(D11_mono)
!! Calculates the monoenergetic radial transport coefficients
!! using epsilon effective.
!
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
use const_and_precisions, only: pi
real(dp),dimension(4,no_roots) :: D11_mono
real(dp), intent(in):: eps_eff
D11_mono = 4.0d0/(9.0d0*pi) * (2.0d0 * eps_eff)**(3.0d0/2.0d0) &
* vd**2/nu
end function neoclassics_calc_D11_mono