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