NAME
RadTrans
SYNOPSIS
call RadTrans_computeDt(integer(IN) :: blockID,
integer(IN) :: blkLimits(2,MDIM),
integer(IN) :: blkLimitsGC(2,MDIM),
real(IN),pointer:: solnData(:,:,:,:),
real(OUT) :: dt_radtrans,
real(OUT) :: dt_minloc(5))
DESCRIPTION
Compute radiative transfer time step
ARGUMENTS
blockID -- local block ID
blkLimits -- the indices for the interior endpoints of the block
blkLimitsGC -- the indices for endpoints including the guardcells
solnData -- the physical, solution data from grid
dt_radtrans -- variable to hold timestep constraint
dt_minloc(5) -- array to hold limiting zone info: zone indices