one_equation_has_heat Function

  1. averaged_one_equation_melt.f90
  2. ave_one_equation_melt_mod
  3. one_equation_has_heat

private pure function one_equation_has_heat(this) result(has_heat)

Arguments

Type IntentOptional AttributesName
class(ave_one_equation_melt), intent(in) :: this

Return Value logical

Whether this formulation of melting contributes terms to the heat equation of the plume.


Contents

Source Code

one_equation_has_heat

Source Code

  pure function one_equation_has_heat(this) result(has_heat)
    class(ave_one_equation_melt), intent(in) :: this
    logical                              :: has_heat
      !! Whether this formulation of melting contributes terms to
      !! the heat equation of the plume.
    has_heat = .true.
  end function one_equation_has_heat