wiso_akel Function

public function wiso_akel(isp, tk, hum0, alpeq)

difrmj = difrm(isp)/fisub(isp) else wiso_akel = alpeq end if

wiso_akel = wiso_akel**expk(isp)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	isp
real(kind=r8),	intent(in)			::	tk
real(kind=r8),	intent(in)			::	hum0
real(kind=r8),	intent(in)			::	alpeq

Return Value real(kind=r8)