NAME
Gravity_bhSelfContrib
SYNOPSIS
call Gravity_bhSelfContrib(
real(in) :: node(:),
real(in) :: cellsize(MDIM),
integer(in) :: blockno,
integer(in) :: point(MDIM),
integer(in) :: blkLimits(2,MDIM),
real,pointer :: solnData(:,:,:,:)
)
DESCRIPTION
Calculates contribution of the node to the gravitational potential and adds it to the solnData array (with index grv_bhGpotVar).
ARGUMENTS
node : array of the node of the tree, whose
contribution is added to the gravitational potential
cellsize : physical size of the cell (in each dimension)
blockno : number of block into which the point-of-calculation belongs
point : indeces of the point-of-calculation in the block
blkLimits : limits of indeces in the block
solnData : solution data from the grid