void
ComputeFullJacobianThread::computeFaceJacobian(BoundaryID bnd_id)
{
std::vector<std::pair<MooseVariable *, MooseVariable *> > & ce = _fe_problem.couplingEntries(_tid);
for (std::vector<std::pair<MooseVariable *, MooseVariable *> >::iterator it = ce.begin(); it != ce.end(); ++it)
{
MooseVariable & ivar = *(*it).first;
MooseVariable & jvar = *(*it).second;
if (ivar.activeOnSubdomain(_subdomain) && jvar.activeOnSubdomain(_subdomain))
{
// only if there are dofs for j-variable (if it is subdomain restricted var, there may not be any)
std::vector<IntegratedBC *> bcs = _sys.getBCWarehouse(_tid).getBCs(bnd_id);
for (std::vector<IntegratedBC *>::iterator jt = bcs.begin(); jt != bcs.end(); ++jt)
{
IntegratedBC * bc = *jt;
if (bc->shouldApply() && bc->variable().number() == ivar.number() && bc->isImplicit())
{
bc->subProblem().prepareFaceShapes(jvar.number(), _tid);
bc->computeJacobianBlock(jvar.number());
}
}
}
}
const std::vector<MooseVariableScalar *> & scalar_vars = _sys.getScalarVariables(_tid);
if (scalar_vars.size() > 0)
{
// go over nl-variables (non-scalar)
const std::vector<MooseVariable *> & vars = _sys.getVariables(_tid);
for (std::vector<MooseVariable *>::const_iterator it = vars.begin(); it != vars.end(); it++)
{
MooseVariable & ivar = *(*it);
if (ivar.activeOnSubdomain(_subdomain) > 0)
{
// for each variable get the list of active kernels
std::vector<IntegratedBC *> bcs;
_sys.getBCWarehouse(_tid).activeIntegrated(bnd_id, bcs);
for (std::vector<IntegratedBC *>::iterator kt = bcs.begin(); kt != bcs.end(); ++kt)
{
IntegratedBC * bc = *kt;
if (bc->variable().number() == ivar.number() && bc->isImplicit())
{
// now, get the list of coupled scalar vars and compute their off-diag jacobians
const std::vector<MooseVariableScalar *> coupled_scalar_vars = bc->getCoupledMooseScalarVars();
for (std::vector<MooseVariableScalar *>::const_iterator jt = coupled_scalar_vars.begin(); jt != coupled_scalar_vars.end(); jt++)
{
MooseVariableScalar & jvar = *(*jt);
// Do: dvar / dscalar_var
if (_sys.hasScalarVariable(jvar.name())) // want to process only nl-variables (not aux ones)
bc->computeJacobianBlockScalar(jvar.number());
}
}
}
}
}
}
}
