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 CLog_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) :: CLog_wu
CLog_wu = 25.3_rp - 1.15_rp*LOG10(1E-6_rp*ne) + 2.3_rp*LOG10(Te/C_E)
end function CLog_wu