VTe Function

private function VTe(Te)

Dimensionless temperature

Arguments

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

Return Value real(kind=rp)

Contents

Source Code

VTe

Source Code

  function VTe(Te)
    !! Dimensionless temperature
    REAL(rp), INTENT(IN) 	:: Te
    REAL(rp) 				:: VTe

    VTe = SQRT(2.0_rp*Te)*cparams_ss%VTeo
  end function VTe