Commit 5fad0575 authored by Gabi Seitz's avatar Gabi Seitz
Browse files

[fix] use the correct temperature and

add the energy contribution of the chem. reaction
to the gas phase
parent 83c2d1c4
......@@ -32,7 +32,7 @@ CaO2H2Initial = 0.0
BoundaryPressure= 2e5 # [Pa] outlet pressure
BoundaryTemperature = 573.15 # [K] inlet temperature: charge: 873 K ; discharge: 473K
BoundaryMoleFraction = 0.464 # [] molefraction
boundaryTemperatureSolid = 285
boundaryTemperatureSolid = 573.15
[Vtk]
#AddVelocity = 0 # Add extra information
......
......@@ -148,6 +148,7 @@ class Discharge_nonequilibrium_Problem : public PorousMediumFlowProblem<TypeTag>
conti0EqIdx = Indices::conti0EqIdx,
// Phase Indices
phaseIdx = FluidSystem::phase0Idx,
cPhaseIdx = SolidSystem::comp0Idx,
temperatureIdx = Indices::temperatureIdx,
......@@ -355,6 +356,7 @@ public:
Scalar deltaH = 108e3; // J/mol
source[energyEqSolidIdx] = qMole * deltaH;
source[energyEqIdx] = - qMole * (volVars.porosity()/(1-volVars.porosity()))*(volVars.pressure(phaseIdx)/volVars.molarDensity(phaseIdx));
return source;
}
......
......@@ -54,7 +54,7 @@ public:
using Scalar = typename VolumeVariables::PrimaryVariables::value_type;
// calculate the equilibrium temperature Teq
Scalar T= volVars.temperature();
Scalar T= volVars.temperatureSolid();
Scalar Teq = 0;
Scalar moleFractionVapor = 1e-3;
......@@ -223,7 +223,7 @@ public:
using Scalar = typename VolumeVariables::PrimaryVariables::value_type;
// calculate the equilibrium temperature Teq
Scalar T= volVars.temperature();
Scalar T= volVars.temperatureSolid();
Scalar Teq = 0;
Scalar moleFractionVapor = 1e-3;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment