block_obj_Init Subroutine

private impure subroutine block_obj_Init(this, ngc, parallel)

Initializes block object.

Type Bound

block_obj

Arguments

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

A block object
integer, intent(in) :: ngc

Number of ghostcells
type(parallel_obj), intent(in), target :: parallel

Parallel structure to link with

Called by

proc~~block_obj_init~~CalledByGraph proc~block_obj_init block_obj%block_obj_Init none~initialize~6 block_obj%Initialize none~initialize~6->proc~block_obj_init proc~cdifs_obj_preparesolverblock cdifs_obj_PrepareSolverBlock proc~cdifs_obj_preparesolverblock->none~initialize~6 proc~collision_obj_setupcollisionblock collision_obj%collision_obj_SetupCollisionBlock proc~collision_obj_setupcollisionblock->none~initialize~6 proc~collision_obj_setupcollisionblock2 collision_obj%collision_obj_SetupCollisionBlock2 proc~collision_obj_setupcollisionblock2->none~initialize~6 proc~grans_obj_preparesolverblock grans_obj_PrepareSolverBlock proc~grans_obj_preparesolverblock->none~initialize~6 proc~cdifs_obj_preparesolver cdifs_obj_PrepareSolver proc~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolverblock proc~cdifs_obj_preparesolver->proc~collision_obj_setupcollisionblock proc~grans_obj_preparesolver grans_obj_PrepareSolver proc~grans_obj_preparesolver->proc~grans_obj_preparesolverblock proc~grans_obj_preparesolvercollision grans_obj_PrepareSolverCollision proc~grans_obj_preparesolver->proc~grans_obj_preparesolvercollision proc~grans_obj_preparesolvercollision->proc~collision_obj_setupcollisionblock 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 block_obj_Init(this,ngc,parallel)
      !> Initializes block object.
      class(block_obj),   intent(inout) :: this                                !! A block object
      integer,            intent(in)    :: ngc                                 !! Number of ghostcells
      type(parallel_obj), intent(in),    &
                                 target :: parallel                            !! Parallel structure to link with
      ! Work variables
      integer :: dir

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

      ! Store number of ghostcells
      this%ngc = ngc

      ! Initialize MPI datatypes
      do dir=1,3
        this%gc_slab_r(dir) = MPI_DATATYPE_NULL
        this%gc_slab_i(dir) = MPI_DATATYPE_NULL
      end do

      ! Switch flag
      this%is_initialized = .true.

      return
    end subroutine block_obj_Init