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()); } } } } } } }