delta Function

private function delta(Te)

Arguments

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

Return Value real(kind=rp)

Contents

Source Code

delta

Source Code

  function delta(Te)
    REAL(rp), INTENT(IN) 	:: Te
    REAL(rp) 				:: delta

    delta = VTe(Te)*cparams_ss%deltao
  end function delta