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