Default implementation of the methods getting the boundary types for a glacier. It returns an array which indicates free boundaries.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(glacier_boundary), | intent(in) | :: | this |
pure function bound_type(this)
!* Author: Chris MacMackin
! Date: January 2017
!
! Default implementation of the methods getting the boundary types
! for a glacier. It returns an array which indicates free
! boundaries.
!
class(glacier_boundary), intent(in) :: this
integer, dimension(:), allocatable :: bound_type
bound_type = [free_boundary, free_boundary]
end function bound_type