particle_boundary_action_for_face Function

public pure function particle_boundary_action_for_face(boundary_low, boundary_high, face) result(action)

6面名に対応する有効粒子境界作用を返す。

Arguments

Type IntentOptional Attributes Name
integer(kind=i32), intent(in) :: boundary_low(3)
integer(kind=i32), intent(in) :: boundary_high(3)
character(len=*), intent(in) :: face

Return Value integer(kind=i32)


Calls

proc~~particle_boundary_action_for_face~~CallsGraph proc~particle_boundary_action_for_face particle_boundary_action_for_face proc~lower_ascii lower_ascii proc~particle_boundary_action_for_face->proc~lower_ascii

Source Code

  pure function particle_boundary_action_for_face(boundary_low, boundary_high, face) result(action)
    integer(i32), intent(in) :: boundary_low(3), boundary_high(3)
    character(len=*), intent(in) :: face
    integer(i32) :: action

    select case (trim(lower_ascii(face)))
    case ('x_low')
      action = boundary_low(1)
    case ('x_high')
      action = boundary_high(1)
    case ('y_low')
      action = boundary_low(2)
    case ('y_high')
      action = boundary_high(2)
    case ('z_low')
      action = boundary_low(3)
    case ('z_high')
      action = boundary_high(3)
    case default
      action = particle_bc_inherit
    end select
  end function particle_boundary_action_for_face