dallaston2015_heat Function

  1. dallaston2015_melt.F90
  2. dallaston2015_melt_mod
  3. dallaston2015_heat

private function dallaston2015_heat(this) result(heat)

Arguments

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

Return Value class(scalar_field), pointer

The value of the contribution made by melting/thermal transfer to the heat equation for a plume


Contents

Source Code

dallaston2015_heat

Source Code

  function dallaston2015_heat(this) result(heat)
    class(dallaston2015_melt), intent(in) :: this
    class(scalar_field), pointer          :: heat
      !! The value of the contribution made by melting/thermal
      !! transfer to the heat equation for a [[plume]]
    if (.not. allocated(this%melt_values)) error stop ('Melt values not allocated')
    call this%melt_values%allocate_scalar_field(heat)
    heat = this%coef * this%melt_values
  end function dallaston2015_heat