indicator Function

  1. korc_avalanche.f90
  2. korc_avalanche
  3. indicator

private function indicator(psi, psi_max)

Compares argument psi to chosen psi_max, returning step function.

Arguments

Type IntentOptional AttributesName
real(kind=rp), intent(in) :: psi
real(kind=rp), intent(in) :: psi_max

Return Value real(kind=rp)


Contents

Source Code

indicator

Source Code

  FUNCTION indicator(psi,psi_max)
    !! Compares argument psi to chosen psi_max, returning step function.
    REAL(rp), INTENT(IN)  :: psi
    REAL(rp), INTENT(IN)  :: psi_max
    REAL(rp)              :: indicator

    IF (psi.LT.psi_max) THEN
       indicator=1
    ELSE
       indicator=0
    END IF

  END FUNCTION indicator