constructor Function

  1. kochergin1987_entrainment.F90
  2. kochergin1987_entrainment_mod
  3. constructor

private pure function constructor(coefficient, delta) result(this)

Arguments

Type IntentOptional AttributesName
real(kind=r8), intent(in) :: coefficient

The entrainment coefficient

real(kind=r8), intent(in) :: delta

The ratio

Return Value type(kochergin1987_entrainment)

A new entrainment object


Called by

proc~~constructor~21~~CalledByGraph proc~constructor~21 constructor interface~kochergin1987_entrainment kochergin1987_entrainment interface~kochergin1987_entrainment->proc~constructor~21

Contents

Source Code

constructor

Source Code

  pure function constructor(coefficient, delta) result(this)
    real(r8), intent(in) :: coefficient
      !! The entrainment coefficient \(c_L^2x_0/D_0\)
    real(r8), intent(in) :: delta
      !! The ratio \(D_0/h_0\)
    type(kochergin1987_entrainment) :: this
      !! A new entrainment object
    this%coefficient = coefficient
    this%delta = delta
  end function constructor