Computes and returns the melt rate at the bottom of the ice shelf due to interaction with the plume.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(asym_plume), | intent(in) | :: | this |
The melt rate at the base of the ice shelf.
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