asym_plume_melt Function

private function asym_plume_melt(this) result(melt)

Computes and returns the melt rate at the bottom of the ice shelf due to interaction with the plume.

Arguments

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

Return Value class(scalar_field), pointer

The melt rate at the base of the ice shelf.


Contents

Source Code


Source Code

  function asym_plume_melt(this) result(melt)
    !* Author: Christopher MacMackin
    !  Date: April 2016
    !
    ! Computes and returns the melt rate at the bottom of the ice
    ! shelf due to interaction with the plume.
    !
    class(asym_plume), intent(in)     :: this
    class(scalar_field), pointer :: melt
      !! The melt rate at the base of the ice shelf.
    melt => this%melt_formulation%melt_rate()
#ifdef DEBUG
    call logger%debug('asym_plume%melt','Returned melt rate.')
#endif
  end function asym_plume_melt