dallaston2015_has_heat Function

private pure function dallaston2015_has_heat(this) result(has_heat)

Arguments

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

Return Value logical

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


Contents


Source Code

  pure function dallaston2015_has_heat(this) result(has_heat)
    class(dallaston2015_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 dallaston2015_has_heat