Indicates that one layer of cells at the upper boundary in the first dimension should be omitted for thickness. This is appropriate for Dirichlet boundary conditions.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(seasonal_glacier_boundary), | intent(in) | :: | this |
pure function seasonal_upper_bound(this) result(bound_array)
!* Author: Chris MacMackin
! Date: October 2017
!
! Indicates that one layer of cells at the upper boundary in the
! first dimension should be omitted for thickness. This is
! appropriate for Dirichlet boundary conditions.
!
class(seasonal_glacier_boundary), intent(in) :: this
integer, dimension(2) :: bound_array
bound_array = [1,0]
end function seasonal_upper_bound