vector_bound Function

  1. plume_boundary.F90
  2. plume_boundary_mod
  3. vector_bound

private function vector_bound(this, location)

Returns a field containing the boundary values for the specified boundary location.

Arguments

Type IntentOptional AttributesName
class(plume_boundary), intent(in) :: this
integer, intent(in) :: location

Which boundary information is to be provided for. The boundary will be the one normal to dimension of number abs(boundary). If the argument is negative, then the lower boundary is returned. If positive, then the upper boundary is returned.

Return Value class(vector_field), pointer


Calls

proc~~vector_bound~~CallsGraph proc~vector_bound vector_bound uniform_vector_field uniform_vector_field proc~vector_bound->uniform_vector_field

Contents

Source Code

vector_bound

Source Code

  function vector_bound(this, location)
    !* Author: Chris MacMackin
    !  Date: March 2017
    !
    ! Returns a field containing the boundary values for the specified
    ! boundary location.
    !
    class(plume_boundary), intent(in) :: this
    integer, intent(in)               :: location
      !! Which boundary information is to be provided for.  The
      !! boundary will be the one normal to dimension of number
      !! `abs(boundary)`. If the argument is negative, then the lower
      !! boundary is returned. If positive, then the upper boundary is
      !! returned.
    class(vector_field), pointer  :: vector_bound
    type(uniform_scalar_field) :: dummy
    call dummy%allocate_vector_field(vector_bound)
    vector_bound = uniform_vector_field([0.0_r8,0.0_r8])
  end function vector_bound