Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(one_equation_melt), | intent(in) | :: | this |
Whether this formulation of melting contributes terms to the heat equation of the plume.
pure function one_equation_has_heat(this) result(has_heat)
class(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