Specifies that the lower boundary in the first dimension has Dirichlet boundary conditions.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(seasonal_glacier_boundary), | intent(in) | :: | this |
pure function seasonal_lower_type(this) result(bound_type)
!* Author: Chris MacMackin
! Date: January 2017
!
! Specifies that the lower boundary in the first dimension has
! Dirichlet boundary conditions.
!
class(seasonal_glacier_boundary), intent(in) :: this
integer, dimension(:), allocatable :: bound_type
bound_type = [dirichlet, free_boundary]
end function seasonal_lower_type