init_overlaps Subroutine

  1. mimic_data_collect.f90
  2. mimic_data_collect
  3. init_overlaps

public subroutine init_overlaps(this, overlap_maps)

initialize overlap mapping

Arguments

TypeIntentOptionalAttributesName
class(mimic_communicator), intent(inout) :: this
type(maps_type), dimension(:):: overlap_maps

list of overlap_maps

Contents

Source Code

init_overlaps

Source Code

subroutine init_overlaps(this, overlap_maps)

    class(mimic_communicator), intent(inout) :: this
    !> list of overlap_maps
    type(maps_type), dimension(:) :: overlap_maps

    if (allocated(this%overlap_maps)) deallocate(this%overlap_maps)
    allocate(this%overlap_maps(size(overlap_maps)))
    this%overlap_maps = overlap_maps

end subroutine init_overlaps