VTe_wu Function

private function VTe_wu(Te)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rp),	intent(in)			::	Te	In Joules

Return Value real(kind=rp)

Contents

Source Code

VTe_wu

Source Code

  function VTe_wu(Te)
    REAL(rp), INTENT(IN) 	:: Te
    !! In Joules
    REAL(rp) 			:: VTe_wu

    VTe_wu = SQRT(2.0_rp*Te/C_ME)
  end function VTe_wu