示例#1
0
Real
SolidMechTempCoupleZ::computeQpResidual()
{
  if (!_constant_properties)
    recomputeCouplingConstants();

  return -(_c1*(1+2*_c2)*_grad_test[_i][_qp](2)*_thermal_strain[_qp]);
}
示例#2
0
void
SolidMechTempCouple::subdomainSetup()
{
  if(_constant_properties)
  {
    _qp = 0;
    recomputeCouplingConstants();
  }
}
示例#3
0
Real
SolidMechTempCoupleZ::computeQpOffDiagJacobian(unsigned int jvar)
{
  if (!_constant_properties)
    recomputeCouplingConstants();

  if (jvar == _temp_var)
    return -(_c1*(1+2*_c2)*_grad_test[_i][_qp](2)*_alpha[_qp]*_phi[_j][_qp]);

  return 0.0;
}