cellwithnbrsmodule Module Reference

Data Types
type	globalcelltype
	Data structure to hold a global cell identifier, using a pointer to the model and its local cell. More...
type	cellwithnbrstype

Functions/Subroutines
subroutine	addnbrcell (this, index, v_model)

Variables
integer(i4b), parameter	defaultcapacity = 6
	index More...

Function/Subroutine Documentation

addnbrcell()

subroutine cellwithnbrsmodule::addnbrcell	(	class(cellwithnbrstype)	this,
		integer(i4b)	index,
		class(virtualmodeltype), pointer	v_model
	)

Definition at line 30 of file CellWithNbrs.f90.

    class(CellWithNbrsType) :: this
    integer(I4B) :: index
    class(VirtualModelType), pointer :: v_model
    ! local
    integer(I4B) :: nbrCnt, currentSize, i
    type(CellWithNbrsType), dimension(:), pointer, contiguous :: newNeighbors
    type(CellWithNbrsType), dimension(:), pointer, contiguous :: oldNeighbors
 
    if (.not. associated(this%neighbors)) then
      allocate (this%neighbors(defaultcapacity))
      this%nrOfNbrs = 0
    end if
 
    nbrcnt = this%nrOfNbrs
    currentsize = size(this%neighbors)
    if (nbrcnt + 1 > currentsize) then
 
      ! inflate
      oldneighbors => this%neighbors
      allocate (newneighbors(currentsize + defaultcapacity))
      do i = 1, currentsize
        newneighbors(i) = oldneighbors(i)
      end do
      this%neighbors => newneighbors
 
      ! clean up
      deallocate (oldneighbors)
      nullify (oldneighbors)
    end if
 
    this%neighbors(nbrcnt + 1)%cell%index = index
    this%neighbors(nbrcnt + 1)%cell%v_model => v_model
 
    this%nrOfNbrs = nbrcnt + 1
 

Variable Documentation

defaultcapacity

integer(i4b), parameter cellwithnbrsmodule::defaultcapacity = 6

private

Definition at line 8 of file CellWithNbrs.f90.

  integer(I4B), parameter :: defaultCapacity = 6