dallaston2015_upper_type Function

  1. dallaston2015_glacier.F90
  2. dallaston2015_glacier_boundary_mod
  3. dallaston2015_upper_type

private pure function dallaston2015_upper_type(this) result(bound_type)

Specifies that the upper boundary in the first dimension has Neumann boundary conditions.

Arguments

Type IntentOptional AttributesName
class(dallaston2015_glacier_boundary), intent(in) :: this

Return Value integer, dimension(:),allocatable


Contents

Source Code

dallaston2015_upper_type

Source Code

  pure function dallaston2015_upper_type(this) result(bound_type)
    !* Author: Chris MacMackin
    !  Date: January 2017
    !
    ! Specifies that the upper boundary in the first dimension has
    ! Neumann boundary conditions.
    !
    class(dallaston2015_glacier_boundary), intent(in) :: this
    integer, dimension(:), allocatable  :: bound_type
    bound_type = [neumann, free_boundary]
  end function dallaston2015_upper_type