call Particles_sinkAccelSinksOnGas(integer,intent(IN) :: blockcount, integer,dimension(blockCount),intent(IN) :: blocklist, integer, OPTIONAL ,intent(IN) :: accelVars(MDIM))
Computes SGAX,SGAY,SGAZ UNK vars from sink particles. (sinks -> gas accelerations). if accelVars is given, store into those UNK vars instead. Computes sinks -> gas gravitational accelerations by direct summation over all sink particles and grid cells.
blockcount - the number of blocks on this processor blocklist - the list of blocks held by this processor accelVars - optionally give the indices of the UNK variables into which the sink-on-gas accelerations should be stored. Default is SGAX_VAR,SGAY_VAR,SGAZ_VAR.
written by Robi Banerjee, 2007-2008 modified by Christoph Federrath, 2008-2012 ported to FLASH3.3/4 by Chalence Safranek-Shrader, 2010-2012 modified by Nathan Goldbaum, 2012 refactored for FLASH4 by John Bachan, 2012 debugged by Christoph Federrath, 2013 added optional argument for accel vars - Klaus Weide, 2014