boundary_face_name Subroutine

public pure subroutine boundary_face_name(face, name)

face bit 順（1..6 = x_low, x_high, y_low, y_high, z_low, z_high）の面名を返す。

Arguments

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

Called by

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

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 face index.'
    end select
  end subroutine boundary_face_name