fRE Function

  1. korc_avalanche.f90
  2. korc_avalanche
  3. fRE

private function fRE(x, p)

Arguments

Type IntentOptional AttributesName
real(kind=rp), intent(in) :: x
real(kind=rp), intent(in) :: p

Return Value real(kind=rp)


Contents

Source Code

fRE

Source Code

  FUNCTION fRE(x,p)
    REAL(rp), INTENT(IN) :: x ! x = cos(pitch)
    REAL(rp), INTENT(IN) :: p ! momentum
    REAL(rp) :: fRE

    fRE = aval_params%fo*p*EXP(-p*(aval_params%C2*x + aval_params%C1/x))/x
  END FUNCTION fRE