NAME
Gravity_bhNodeContrib
SYNOPSIS
call Gravity_bhNodeContrib( real(in) :: node(:), integer(in) :: trLevel, integer(in) :: refLevel, real(in) :: dr(MDIM+2), 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 trLevel : level of the block-tree refLevel : refinement level of the block with the node dr : (1:MDIM) - position vector from the point-of-calculation to the node (MDIM+1) - square of the magnitude of the position vector (MDIM+2) - inverted magnitude of the position vector 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