DGAnisotropicDiffusion::DGAnisotropicDiffusion(const InputParameters & parameters) : DGKernel(parameters), _epsilon(getParam<Real>("epsilon")), _sigma(getParam<Real>("sigma")), _Dxx(getParam<Real>("Dxx")), _Dxy(getParam<Real>("Dxy")), _Dxz(getParam<Real>("Dxz")), _Dyx(getParam<Real>("Dyx")), _Dyy(getParam<Real>("Dyy")), _Dyz(getParam<Real>("Dyz")), _Dzx(getParam<Real>("Dzx")), _Dzy(getParam<Real>("Dzy")), _Dzz(getParam<Real>("Dzz")) { _Diffusion(0,0) = _Dxx; _Diffusion(0,1) = _Dxy; _Diffusion(0,2) = _Dxz; _Diffusion(1,0) = _Dyx; _Diffusion(1,1) = _Dyy; _Diffusion(1,2) = _Dyz; _Diffusion(2,0) = _Dzx; _Diffusion(2,1) = _Dzy; _Diffusion(2,2) = _Dzz; }
DGFluxBC::DGFluxBC(const InputParameters & parameters) : IntegratedBC(parameters), _epsilon(getParam<Real>("epsilon")), _sigma(getParam<Real>("sigma")), _vx(getParam<Real>("vx")), _vy(getParam<Real>("vy")), _vz(getParam<Real>("vz")), _Dxx(getParam<Real>("Dxx")), _Dxy(getParam<Real>("Dxy")), _Dxz(getParam<Real>("Dxz")), _Dyx(getParam<Real>("Dyx")), _Dyy(getParam<Real>("Dyy")), _Dyz(getParam<Real>("Dyz")), _Dzx(getParam<Real>("Dzx")), _Dzy(getParam<Real>("Dzy")), _Dzz(getParam<Real>("Dzz")), _u_input(getParam<Real>("u_input")) { _velocity(0)=_vx; _velocity(1)=_vy; _velocity(2)=_vz; _Diffusion(0,0) = _Dxx; _Diffusion(0,1) = _Dxy; _Diffusion(0,2) = _Dxz; _Diffusion(1,0) = _Dyx; _Diffusion(1,1) = _Dyy; _Diffusion(1,2) = _Dyz; _Diffusion(2,0) = _Dzx; _Diffusion(2,1) = _Dzy; _Diffusion(2,2) = _Dzz; }
Real DGColumnHeatDispersion::computeQpResidual(Moose::DGResidualType type) { _Diffusion(0,0) = _conductivity[_qp]; _Diffusion(0,1) = 0.0; _Diffusion(0,2) = 0.0; _Diffusion(1,0) = 0.0; _Diffusion(1,1) = _conductivity[_qp]; _Diffusion(1,2) = 0.0; _Diffusion(2,0) = 0.0; _Diffusion(2,1) = 0.0; _Diffusion(2,2) = 0.0; return DGAnisotropicDiffusion::computeQpResidual(type); }
Real DGColumnMassDispersion::computeQpResidual(Moose::DGResidualType type) { _Diffusion(0,0) = _molecular_diffusion[_qp][_index]; _Diffusion(0,1) = std::pow(std::pow(_molecular_diffusion[_qp][_index],2.0) + std::pow(_dispersion[_qp][_index],2.0),0.5); _Diffusion(0,2) = 0.0; _Diffusion(1,0) = std::pow(std::pow(_molecular_diffusion[_qp][_index],2.0) + std::pow(_dispersion[_qp][_index],2.0),0.5); _Diffusion(1,1) = _dispersion[_qp][_index]; _Diffusion(1,2) = 0.0; _Diffusion(2,0) = 0.0; _Diffusion(2,1) = 0.0; _Diffusion(2,2) = 0.0; return DGAnisotropicDiffusion::computeQpResidual(type); }
Real GColumnHeatDispersion::computeQpJacobian() { _Diffusion(0,0) = _conductivity[_qp]; _Diffusion(0,1) = 0.0; _Diffusion(0,2) = 0.0; _Diffusion(1,0) = 0.0; _Diffusion(1,1) = _conductivity[_qp]; _Diffusion(1,2) = 0.0; _Diffusion(2,0) = 0.0; _Diffusion(2,1) = 0.0; _Diffusion(2,2) = 0.0; return GAnisotropicDiffusion::computeQpJacobian(); }
Real DGHeatFluxBC::computeQpJacobian() { _velocity(0)=0.0; _velocity(1)=_vel[_qp]*_gas_heat_capacity[_qp]*_gas_density[_qp]; _velocity(2)=0.0; _Diffusion(0,0) = _conductivity[_qp]; _Diffusion(0,1) = std::pow(std::pow(_conductivity[_qp],2.0) + std::pow(_conductivity[_qp],2.0),0.5); _Diffusion(0,2) = 0.0; _Diffusion(1,0) = std::pow(std::pow(_conductivity[_qp],2.0) + std::pow(_conductivity[_qp],2.0),0.5); _Diffusion(1,1) = _conductivity[_qp]; _Diffusion(1,2) = 0.0; _Diffusion(2,0) = 0.0; _Diffusion(2,1) = 0.0; _Diffusion(2,2) = 0.0; _u_input = _input_temperature; return DGFluxBC::computeQpJacobian(); }
Real DGMassFluxLimitedBC::computeQpJacobian() { _velocity(0)=0.0; _velocity(1)=_vel[_qp]; _velocity(2)=0.0; _Diffusion(0,0) = _molecular_diffusion[_qp][_index]; _Diffusion(0,1) = std::pow(std::pow(_molecular_diffusion[_qp][_index],2.0) + std::pow(_dispersion[_qp][_index],2.0),0.5); _Diffusion(0,2) = 0.0; _Diffusion(1,0) = std::pow(std::pow(_molecular_diffusion[_qp][_index],2.0) + std::pow(_dispersion[_qp][_index],2.0),0.5); _Diffusion(1,1) = _dispersion[_qp][_index]; _Diffusion(1,2) = 0.0; _Diffusion(2,0) = 0.0; _Diffusion(2,1) = 0.0; _Diffusion(2,2) = 0.0; _u_input = (_input_pressure * _input_molefraction) / (8.3144621 * _input_temperature); return DGFluxLimitedBC::computeQpJacobian(); }