Line data    Source code

       1             : //* This file is part of the MOOSE framework
       2             : //* https://mooseframework.inl.gov
       3             : //*
       4             : //* All rights reserved, see COPYRIGHT for full restrictions
       5             : //* https://github.com/idaholab/moose/blob/master/COPYRIGHT
       6             : //*
       7             : //* Licensed under LGPL 2.1, please see LICENSE for details
       8             : //* https://www.gnu.org/licenses/lgpl-2.1.html
       9             : 
      10             : #include "TrussHeatConduction.h"
      11             : #include "MooseMesh.h"
      12             : 
      13             : registerMooseObject("HeatTransferApp", TrussHeatConduction);
      14             : 
      15             : InputParameters
      16          57 : TrussHeatConduction::validParams()
      17             : {
      18          57 :   InputParameters params = HeatConductionKernel::validParams();
      19          57 :   params.addClassDescription("Computes conduction term in heat equation for truss elements, taking "
      20             :                              "cross-sectional area into account");
      21         114 :   params.addCoupledVar("area", "Cross-sectional area of truss element");
      22          57 :   return params;
      23           0 : }
      24             : 
      25          30 : TrussHeatConduction::TrussHeatConduction(const InputParameters & parameters)
      26          30 :   : HeatConductionKernel(parameters), _area(coupledValue("area"))
      27             : {
      28          30 : }
      29             : 
      30             : Real
      31        8560 : TrussHeatConduction::computeQpResidual()
      32             : {
      33        8560 :   return _area[_qp] * HeatConductionKernel::computeQpResidual();
      34             : }
      35             : 
      36             : Real
      37        3360 : TrussHeatConduction::computeQpJacobian()
      38             : {
      39        3360 :   return _area[_qp] * HeatConductionKernel::computeQpJacobian();
      40             : }