bc_set_Init Subroutine

private impure subroutine bc_set_Init(this, block, parallel)

Initializes bc_set.

Type Bound

bc_set

Arguments

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

Boundary conditions utility
type(block_obj), intent(in), target :: block

A block object
type(parallel_obj), intent(in), target :: parallel

Parallel structure to link with

Calls

proc~~bc_set_init~~CallsGraph proc~bc_set_init bc_set%bc_set_Init proc~hashtbl_obj_init hashtbl_obj%hashtbl_obj_Init proc~bc_set_init->proc~hashtbl_obj_init

Called by

proc~~bc_set_init~~CalledByGraph proc~bc_set_init bc_set%bc_set_Init proc~cdifs_obj_preparesolverbcs cdifs_obj_PrepareSolverBCS proc~cdifs_obj_preparesolverbcs->proc~bc_set_init proc~grans_obj_preparesolverbcs grans_obj_PrepareSolverBCS proc~grans_obj_preparesolverbcs->proc~bc_set_init proc~setupcasebcs SetUpCaseBCS proc~setupcasebcs->proc~bc_set_init proc~setupcasebcs~10 SetUpCaseBCS proc~setupcasebcs~10->proc~bc_set_init proc~setupcasebcs~11 SetUpCaseBCS proc~setupcasebcs~11->proc~bc_set_init proc~setupcasebcs~12 SetUpCaseBCS proc~setupcasebcs~12->proc~bc_set_init proc~setupcasebcs~13 SetUpCaseBCS proc~setupcasebcs~13->proc~bc_set_init proc~setupcasebcs~14 SetUpCaseBCS proc~setupcasebcs~14->proc~bc_set_init proc~setupcasebcs~2 SetUpCaseBCS proc~setupcasebcs~2->proc~bc_set_init proc~setupcasebcs~3 SetUpCaseBCS proc~setupcasebcs~3->proc~bc_set_init proc~setupcasebcs~4 SetUpCaseBCS proc~setupcasebcs~4->proc~bc_set_init proc~setupcasebcs~5 SetUpCaseBCS proc~setupcasebcs~5->proc~bc_set_init proc~setupcasebcs~6 SetUpCaseBCS proc~setupcasebcs~6->proc~bc_set_init proc~setupcasebcs~7 SetUpCaseBCS proc~setupcasebcs~7->proc~bc_set_init proc~setupcasebcs~8 SetUpCaseBCS proc~setupcasebcs~8->proc~bc_set_init proc~setupcasebcs~9 SetUpCaseBCS proc~setupcasebcs~9->proc~bc_set_init proc~cdifs_obj_preparesolver cdifs_obj_PrepareSolver proc~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolverbcs proc~grans_obj_preparesolver grans_obj_PrepareSolver proc~grans_obj_preparesolver->proc~grans_obj_preparesolverbcs program~main main program~main->proc~setupcasebcs program~main~10 main program~main~10->proc~setupcasebcs~10 program~main~11 main program~main~11->proc~setupcasebcs~11 program~main~12 main program~main~12->proc~setupcasebcs~12 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~6 main program~main~6->proc~setupcasebcs~6 program~main~7 main program~main~7->proc~setupcasebcs~7 program~main~8 main program~main~8->proc~setupcasebcs~8 program~main~9 main program~main~9->proc~setupcasebcs~9 interface~cdifs_obj_preparesolver cdifs_obj%cdifs_obj_PrepareSolver interface~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolver interface~grans_obj_preparesolver grans_obj%grans_obj_PrepareSolver interface~grans_obj_preparesolver->proc~grans_obj_preparesolver

Source Code

    impure subroutine bc_set_Init(this,block,parallel)
      !> Initializes bc_set.
      class(bc_set),      intent(inout) :: this                                !! Boundary conditions utility
      type(block_obj),    intent(in),    &
                                 target :: block                               !! A block object
      type(parallel_obj), intent(in),    &
                                 target :: parallel                            !! Parallel structure to link with

      ! Point to the master objects
      this%parallel => parallel
      this%block    => block

      call this%tbl%Initialize(BC_SET_HTBL_SIZE)

      return
    end subroutine bc_set_Init