With units
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(KORC_PARAMS), | intent(in) | :: | params | |||
real(kind=rp), | intent(in) | :: | ne | |||
real(kind=rp), | intent(in) | :: | Te |
function Gammac_wu(params,ne,Te)
!! With units
TYPE(KORC_PARAMS), INTENT(IN) :: params
REAL(rp), INTENT(IN) :: ne
REAL(rp), INTENT(IN) :: Te ! In Joules
REAL(rp) :: Gammac_wu
Gammac_wu = ne*CLogee_wu(params,ne,Te)*cparams_ss%Gammaco
end function Gammac_wu