wall Subroutine

  1. bc_primitive.f90
  2. bc_primitive
  3. wall

private subroutine wall(face, bc, dims)

Adiabatic/Isothermal wall boundary condition

Arguments

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

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

Calls

proc~~wall~~CallsGraph proc~wall wall proc~no_slip no_slip proc~wall->proc~no_slip proc~temp_based_density temp_based_density proc~wall->proc~temp_based_density proc~copy3 copy3 proc~wall->proc~copy3 proc~no_slip->proc~copy3 proc~set_omega_at_wall set_omega_at_wall proc~no_slip->proc~set_omega_at_wall proc~temp_based_density->proc~copy3

Called by

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

wall

Source Code

      subroutine wall(face, bc, dims)
        !< Adiabatic/Isothermal wall boundary condition
        implicit none
        type(extent), intent(in) :: dims
        character(len=*), intent(in) :: face
        type(boundarytype), intent(in) :: bc
        !< Name of the face at which boundary condition is called
        call copy3(pressure, "symm",  face, bc, dims)
        call temp_based_density(bc%fixed_wall_temperature, face, bc, dims)
        call no_slip(face, bc, dims)
      end subroutine wall