Returns the velocity of the ice sheet across its domain.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ice_sheet), | intent(in) | :: | this |
The ice velocity.
function sheet_velocity(this) result(velocity)
!* Author: Christopher MacMackin
! Date: July 2016
!
! Returns the velocity of the ice sheet across its domain.
!
class(ice_sheet), intent(in) :: this
class(vector_field), allocatable :: velocity !! The ice velocity.
allocate(velocity, source=this%velocity)
end function sheet_velocity