boundary_face_name Subroutine

public pure subroutine boundary_face_name(face, name)

face bit順の面名を返す。

Arguments

Type IntentOptional Attributes Name
integer(kind=i32), intent(in) :: face
character(len=*), intent(out) :: name

Called by

proc~~boundary_face_name~2~~CalledByGraph proc~boundary_face_name~2 boundary_face_name proc~make_boundary_inflow_spec make_boundary_inflow_spec proc~make_boundary_inflow_spec->proc~boundary_face_name~2

Source Code

  pure subroutine boundary_face_name(face, name)
    integer(i32), intent(in) :: face
    character(len=*), intent(out) :: name

    select case (face)
    case (1_i32)
      name = 'x_low'
    case (2_i32)
      name = 'x_high'
    case (3_i32)
      name = 'y_low'
    case (4_i32)
      name = 'y_high'
    case (5_i32)
      name = 'z_low'
    case (6_i32)
      name = 'z_high'
    case default
      error stop 'invalid boundary inflow face.'
    end select
  end subroutine boundary_face_name