find_wall Subroutine

  1. wall.f90
  2. wall
  3. find_wall

private subroutine find_wall(bc)

Setup wall flag for all six boundary of the block

Arguments

Type IntentOptional AttributesName
type(boundarytype), intent(in) :: bc

Called by

proc~~find_wall~~CalledByGraph proc~find_wall find_wall proc~setup_surface setup_surface proc~setup_surface->proc~find_wall proc~write_surfnode write_surfnode proc~write_surfnode->proc~setup_surface proc~setup_solver setup_solver proc~setup_solver->proc~write_surfnode proc~start_run start_run proc~start_run->proc~setup_solver program~main main program~main->proc~start_run

Contents

Source Code

find_wall

Source Code

    subroutine find_wall(bc)
      !< Setup wall flag for all six boundary of the block

      implicit none
      type(boundarytype), intent(in) :: bc
      integer :: i

      NO_slip_flag=0
      do i = 1,6
        if(bc%id(i)==-5) NO_SLIP_FLAG(i)=1
      end do

    end subroutine find_wall