get_avalanche_distribution Subroutine

  1. korc_avalanche.f90
  2. korc_avalanche
  3. get_avalanche_distribution

public subroutine get_avalanche_distribution(params, g, eta, go, etao)

Arguments

Type IntentOptional AttributesName
type(KORC_PARAMS), intent(in) :: params
real(kind=rp), intent(inout), DIMENSION(:), ALLOCATABLE:: g
real(kind=rp), intent(inout), DIMENSION(:), ALLOCATABLE:: eta
real(kind=rp), intent(out) :: go
real(kind=rp), intent(out) :: etao

Contents

Source Code

get_avalanche_distribution

Source Code

  SUBROUTINE get_avalanche_distribution(params,g,eta,go,etao)
    TYPE(KORC_PARAMS), INTENT(IN) :: params
    REAL(rp), DIMENSION(:), ALLOCATABLE, INTENT(INOUT) :: g
    REAL(rp), DIMENSION(:), ALLOCATABLE, INTENT(INOUT) :: eta
    REAL(rp), INTENT(OUT) :: go
    REAL(rp), INTENT(OUT) :: etao

    call initialize_avalanche_params(params)

    call save_avalanche_params(params)

    call sample_distribution(params,g,eta,go,etao)
  END SUBROUTINE get_avalanche_distribution