With units
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=rp), | intent(in) | :: | ne | ne is in m^-3 and below is converted to cm^-3 |
||
real(kind=rp), | intent(in) | :: | Te |
function CLog0_wu(ne,Te)
!! With units
REAL(rp), INTENT(IN) :: ne
!! ne is in m^-3 and below is converted to cm^-3
REAL(rp), INTENT(IN) :: Te ! In Joules
REAL(rp) :: CLog0_wu
CLog0_wu = 14.9_rp - LOG(1E-20_rp*ne)/2._rp + LOG(1E-3_rp*Te/C_E)
end function CLog0_wu