slip_wall Subroutine

  1. bc_primitive.f90
  2. bc_primitive
  3. slip_wall

private subroutine slip_wall(face, Ifaces, Jfaces, Kfaces, bc, dims)

Slip wall boundary condition. Maintain flow tangency

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: face
type(facetype), intent(in), dimension(-2:dims%imx+3,-2:dims%jmx+2,-2:dims%kmx+2):: Ifaces

Input varaible which stores I faces' area and unit normal
type(facetype), intent(in), dimension(-2:dims%imx+2,-2:dims%jmx+3,-2:dims%kmx+2):: Jfaces

Input varaible which stores J faces' area and unit normal
type(facetype), intent(in), dimension(-2:dims%imx+2,-2:dims%jmx+2,-2:dims%kmx+3):: Kfaces

Input varaible which stores K faces' area and unit normal Name of the face at which boundary condition is called
type(boundarytype), intent(in) :: bc
type(extent), intent(in) :: dims

Calls

proc~~slip_wall~~CallsGraph proc~slip_wall slip_wall proc~copy3 copy3 proc~slip_wall->proc~copy3 proc~flow_tangency flow_tangency proc~slip_wall->proc~flow_tangency

Called by

proc~~slip_wall~~CalledByGraph proc~slip_wall slip_wall proc~populate_ghost_primitive populate_ghost_primitive proc~populate_ghost_primitive->proc~slip_wall proc~get_total_conservative_residue get_total_conservative_Residue proc~get_total_conservative_residue->proc~populate_ghost_primitive proc~get_next_solution get_next_solution proc~get_next_solution->proc~get_total_conservative_residue proc~iterate_one_more_time_step iterate_one_more_time_step proc~iterate_one_more_time_step->proc~get_next_solution program~main main program~main->proc~iterate_one_more_time_step

Contents

Source Code

slip_wall

Source Code

      subroutine slip_wall(face, Ifaces, Jfaces, Kfaces, bc, dims)
        !< Slip wall boundary condition. 
        !< Maintain flow tangency
        implicit none
        type(extent), intent(in) :: dims
        type(boundarytype), intent(in) :: bc
        character(len=*), intent(in) :: face
        type(facetype), dimension(-2:dims%imx+3,-2:dims%jmx+2,-2:dims%kmx+2), intent(in) :: Ifaces
        !< Input varaible which stores I faces' area and unit normal
        type(facetype), dimension(-2:dims%imx+2,-2:dims%jmx+3,-2:dims%kmx+2), intent(in) :: Jfaces
        !< Input varaible which stores J faces' area and unit normal
        type(facetype), dimension(-2:dims%imx+2,-2:dims%jmx+2,-2:dims%kmx+3), intent(in) :: Kfaces
        !< Input varaible which stores K faces' area and unit normal
        !< Name of the face at which boundary condition is called
        call copy3(density , "symm", face, bc, dims)
        call copy3(pressure, "symm", face, bc, dims)
        select case (turbulence)
          case('none')
            !do nothing
            continue
          case('sa', 'saBC')
            call copy3(tv, "symm", face, bc, dims)
          case('sst', 'sst2003')
            call copy3(tk, "symm", face, bc, dims)
            call copy3(tw, "symm", face, bc, dims)
          case('kkl')
            call copy3(tk, "symm", face, bc, dims)
            call copy3(tkl, "symm", face, bc, dims)
          case DEFAULT
            Fatal_error
        end select
        select case(trim(transition))
          case('lctm2015')
            call copy3(tgm, "flat", face, bc, dims)
          case DEFAULT
            continue
        end select
        call flow_tangency(qp, face, Ifaces, Jfaces, Kfaces, dims)
      end subroutine slip_wall