supersonic_outlet Subroutine

  1. bc_primitive.f90
  2. bc_primitive
  3. supersonic_outlet

private subroutine supersonic_outlet(face, bc, dims)

Supersonic outlet boundary condition. All the values of state variables are copied from inside the domain

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: face

Name of the face at which boundary condition is called
type(boundarytype), intent(in) :: bc
type(extent), intent(in) :: dims

Calls

proc~~supersonic_outlet~~CallsGraph proc~supersonic_outlet supersonic_outlet proc~copy3 copy3 proc~supersonic_outlet->proc~copy3

Called by

proc~~supersonic_outlet~~CalledByGraph proc~supersonic_outlet supersonic_outlet proc~populate_ghost_primitive populate_ghost_primitive proc~populate_ghost_primitive->proc~supersonic_outlet 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

supersonic_outlet

Source Code

      subroutine supersonic_outlet(face, bc, dims)
        !< Supersonic outlet boundary condition. 
        !< All the values of state variables are copied 
        !< from inside the domain
        implicit none
        type(extent), intent(in) :: dims
        type(boundarytype), intent(in) :: bc
        character(len=*), intent(in) :: face
        !< Name of the face at which boundary condition is called
        call copy3(density , "flat", face, bc, dims)
        call copy3(x_speed , "flat", face, bc, dims)
        call copy3(y_speed , "flat", face, bc, dims)
        call copy3(z_speed , "flat", face, bc, dims)
        call copy3(pressure, "flat", face, bc, dims)
        select case (turbulence)
          case('none')
            !do nothing
            continue
          case('sa', 'saBC')
            call copy3(tv, "flat", face, bc, dims)
          case('sst', 'sst2003')
            call copy3(tk, "flat", face, bc, dims)
            call copy3(tw, "flat", face, bc, dims)
          case('kkl')
            call copy3(tk, "flat", face, bc, dims)
            call copy3(tkl, "flat", 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
      end subroutine supersonic_outlet