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~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 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