region_obj_Init Subroutine

private pure subroutine region_obj_Init(this, name, xlo, xhi, dir, side)

Initializes a region

Type Bound

region_obj

Arguments

Type IntentOptional Attributes Name
class(region_obj), intent(inout) :: this

A boundary region object
character(len=*), intent(in) :: name

Name of region
real(kind=wp), intent(in) :: xlo(3)

Position of low left corner
real(kind=wp), intent(in) :: xhi(3)

Position of high right corner
integer, intent(in) :: dir

Direction of normal
integer, intent(in) :: side

Side (left or right) of the cell

Calls

proc~~region_obj_init~~CallsGraph proc~region_obj_init region_obj%region_obj_Init proc~hashtbl_obj_init hashtbl_obj%hashtbl_obj_Init proc~region_obj_init->proc~hashtbl_obj_init

Called by

proc~~region_obj_init~~CalledByGraph proc~region_obj_init region_obj%region_obj_Init proc~bc_set_add bc_set%bc_set_Add proc~bc_set_add->proc~region_obj_init proc~bc_set_read bc_set%bc_set_Read proc~bc_set_read->proc~bc_set_add proc~setupcasebcs SetUpCaseBCS proc~setupcasebcs->proc~bc_set_add proc~setupcasebcs~11 SetUpCaseBCS proc~setupcasebcs~11->proc~bc_set_add proc~setupcasebcs~13 SetUpCaseBCS proc~setupcasebcs~13->proc~bc_set_add proc~setupcasebcs~14 SetUpCaseBCS proc~setupcasebcs~14->proc~bc_set_add proc~setupcasebcs~2 SetUpCaseBCS proc~setupcasebcs~2->proc~bc_set_add proc~setupcasebcs~3 SetUpCaseBCS proc~setupcasebcs~3->proc~bc_set_add proc~setupcasebcs~4 SetUpCaseBCS proc~setupcasebcs~4->proc~bc_set_add proc~setupcasebcs~5 SetUpCaseBCS proc~setupcasebcs~5->proc~bc_set_add proc~setupcasebcs~9 SetUpCaseBCS proc~setupcasebcs~9->proc~bc_set_add program~main main program~main->proc~setupcasebcs program~main~11 main program~main~11->proc~setupcasebcs~11 program~main~13 main program~main~13->proc~setupcasebcs~13 program~main~14 main program~main~14->proc~setupcasebcs~14 program~main~2 main program~main~2->proc~setupcasebcs~2 program~main~3 main program~main~3->proc~setupcasebcs~3 program~main~4 main program~main~4->proc~setupcasebcs~4 program~main~5 main program~main~5->proc~setupcasebcs~5 program~main~9 main program~main~9->proc~setupcasebcs~9

Source Code

    pure subroutine region_obj_Init(this,name,xlo,xhi,dir,side)
      !> Initializes a region
      class(region_obj), intent(inout) :: this                                 !! A boundary region object
      character(len=*),  intent(in)    :: name                                 !! Name of region
      real(wp),          intent(in)    :: xlo(3)                               !! Position of low left corner
      real(wp),          intent(in)    :: xhi(3)                               !! Position of high right corner
      integer,           intent(in)    :: dir                                  !! Direction of normal
      integer,           intent(in)    :: side                                 !! Side (left or right) of the cell

      this%name   = name
      this%xlo    = xlo
      this%xhi    = xhi
      this%dir    = dir
      this%side   = side

      call this%tbl%Initialize(BC_SET_HTBL_SIZE)

      return
    end subroutine region_obj_Init