CA Function

private function CA(v)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rp),	intent(in)			::	v

Return Value real(kind=rp)

Contents

Source Code

CA

Source Code

  function CA(v)
    REAL(rp), INTENT(IN) 	:: v
    REAL(rp) 				:: CA
    REAL(rp) 				:: x

    x = v/cparams_ss%VTe
    CA  = cparams_ss%Gammac*psi(x)/v
  end function CA