research/cantera
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Another iteration with vcs_VolPhase: getting it to use private data,

Browse source 
setState concept and StateCalc concepts.
This commit is contained in:
Harry Moffat 2008-06-12 16:00:36 +00:00
parent 451520d238
commit 53fa07bbdc
8 changed files with 1345 additions and 1304 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

76
Cantera/src/equil/vcs_VolPhase.cpp
View file

@ -23,7 +23,7 @@
namespace VCSnonideal {
/****************************************************************************
/*
*
* vcs_VolPhase():
*
@ -68,6 +68,7 @@ namespace VCSnonideal {
{
m_owningSolverObject = owningSolverObject;
}
/************************************************************************************/
/*
*
@ -82,6 +83,7 @@ namespace VCSnonideal {
sp = 0;
}
}
/************************************************************************************/
/*
*
@ -131,8 +133,9 @@ namespace VCSnonideal {
*/
*this = b;
}
/*****************************************************************************
/*****************************************************************************/
/*
* Assignment operator()
*
* (note, this is used, so keep it current!)
@ -239,7 +242,7 @@ namespace VCSnonideal {
}
return *this;
}
/************************************************************************************/
void vcs_VolPhase::resize(int phaseNum, int nspecies, const char *phaseName,
double molesInert) {
@ -327,7 +330,7 @@ namespace VCSnonideal {
m_UpToDate_VolPM = false;
m_UpToDate_GStar = false;
}
/*******************************************************************************/
//! Evaluate activity coefficients
/*!
@ -357,8 +360,9 @@ namespace VCSnonideal {
}
m_UpToDate_AC = true;
}
/********************************************************************************/
/******************************************************************************
/*
*
* Evaluate one activity coefficients.
*
@ -369,7 +373,7 @@ namespace VCSnonideal {
evaluateActCoeff();
return(ActCoeff[kspec]);
}
/************************************************************************************/
// Gibbs free energy calculation at a temperature for the reference state
// of each species
@ -424,8 +428,7 @@ namespace VCSnonideal {
* @param TKelvin Current temperature
* @param pres Current pressure (pascal)
*/
void vcs_VolPhase::GStar_calc() {
setState_TP(Temp, Pres);
void vcs_VolPhase::GStar_calc() const {
if (!m_UpToDate_GStar) {
if (m_useCanteraCalls) {
TP_ptr->getStandardChemPotentials(VCS_DATA_PTR(StarChemicalPotential));
@ -452,16 +455,14 @@ namespace VCSnonideal {
* The kth species standard state G is returned
*
* @param kspec Species number (within the phase)
* @param TKelvin Current temperature (kelvin)
* @param pres Current pressure (pascal)
*
* @return Gstar[kspec] returns the gibbs free energy for the
* standard state of the kth species.
* standard state of the kspec species.
*/
double vcs_VolPhase::GStar_calc_one(int kspec, double tkelvin,
double pres) {
setState_TP(tkelvin, pres);
GStar_calc();
double vcs_VolPhase::GStar_calc_one(int kspec) {
if (!m_UpToDate_GStar) {
GStar_calc();
}
return StarChemicalPotential[kspec];
}
/***********************************************************************/
@ -610,9 +611,7 @@ namespace VCSnonideal {
}
if (!m_isIdealSoln) {
m_UpToDate_AC = false;
m_UpToDate_VolStar = false;
m_UpToDate_VolPM = false;
m_UpToDate_GStar = false;
}
}
@ -713,7 +712,6 @@ namespace VCSnonideal {
*/
void vcs_VolPhase::sendToVCS_GStar(double * const gstar){
if (!m_UpToDate_GStar) {
setState_TP(Temp, Pres);
GStar_calc();
}
int kglob;
@ -771,7 +769,7 @@ namespace VCSnonideal {
m_UpToDate_VolPM = false;
m_UpToDate_GStar = false;
}
/***********************************************************************/
/***********************************************************************/
// Molar volume calculation for standard states
/*
@ -783,8 +781,7 @@ namespace VCSnonideal {
*
* Calculations are in m**3/kmol
*/
void vcs_VolPhase::VolStar_calc(double tkelvin, double pres) {
setState_TP(tkelvin, pres);
void vcs_VolPhase::VolStar_calc() const {
if (!m_UpToDate_VolStar) {
if (m_useCanteraCalls) {
TP_ptr->getStandardVolumes(VCS_DATA_PTR(StarMolarVol));
@ -794,13 +791,13 @@ namespace VCSnonideal {
vcs_SpeciesProperties *sProp = ListSpeciesPtr[k];
VCS_SPECIES_THERMO *sTherm = sProp->SpeciesThermo;
StarMolarVol[k] =
(sTherm->VolStar_calc(kglob, tkelvin, pres));
(sTherm->VolStar_calc(kglob, Temp, Pres));
}
}
m_UpToDate_VolStar = true;
}
}
/***********************************************************************/
/***********************************************************************/
// Update the moles within the phase, if necessary
/*
@ -815,7 +812,7 @@ namespace VCSnonideal {
*
*/
void vcs_VolPhase::updateFromVCS_MoleNumbers(const int stateCalc) {
if (!m_UpToDate) {
if (!m_UpToDate || (stateCalc != m_vcsStateStatus)) {
if (stateCalc == VCS_STATECALC_OLD || stateCalc == VCS_STATECALC_NEW) {
if (m_owningSolverObject) {
setMolesFromVCS(stateCalc);
@ -839,13 +836,16 @@ namespace VCSnonideal {
* state
*/
double vcs_VolPhase::VolStar_calc_one(int kspec, double tkelvin,
double pres)
{
VolStar_calc(tkelvin, pres);
double pres) {
setState_TP(tkelvin, pres);
if (!m_UpToDate_VolStar) {
VolStar_calc();
}
return StarMolarVol[kspec];
}
/****************************************************************************/
/****************************************************************************
/*
*
* VolPM_calc
*/
@ -885,20 +885,16 @@ namespace VCSnonideal {
m_UpToDate_VolPM = true;
return m_totalVol;
}
/************************************************************************************/
/*
* updateLnActCoeffJac():
*
*/
void vcs_VolPhase::updateLnActCoeffJac(const double * const moleNumbersVCS) {
void vcs_VolPhase::updateLnActCoeffJac() {
int k, j;
double deltaMoles_j = 0.0;
/*
* Make sure the base state of this object is fully up to date.
* with the current values of the mole numbers.
* -> This sets TMoles and Xmol[]
*/
setMolesFromVCS(VCS_STATECALC_OLD, moleNumbersVCS);
/*
* Evaluate the current base activity coefficients.
@ -961,6 +957,7 @@ namespace VCSnonideal {
_updateMoleFractionDependencies();
evaluateActCoeff();
}
/************************************************************************************/
// Downloads the ln ActCoeff jacobian into the VCS version of the
// ln ActCoeff jacobian.
@ -986,7 +983,7 @@ namespace VCSnonideal {
}
}
}
/**********************************************************************/
/************************************************************************************/
// Set the pointer for Cantera's ThermoPhase parameter
/*
@ -1043,6 +1040,7 @@ namespace VCSnonideal {
m_useCanteraCalls = false;
}
}
/************************************************************************************/
// Return a const ThermoPhase pointer corresponding to this phase
/*
@ -1051,18 +1049,22 @@ namespace VCSnonideal {
const Cantera::ThermoPhase *vcs_VolPhase::ptrThermoPhase() const {
return TP_ptr;
}
/************************************************************************************/
double vcs_VolPhase::TotalMoles() const {
return TMoles;
}
/************************************************************************************/
double vcs_VolPhase::molefraction(int k) const {
return Xmol[k];
}
/************************************************************************************/
void vcs_VolPhase::setTotalMoles(double tmols) {
TMoles = tmols;
}
/************************************************************************************/
// Return a string representing the equation of state
/*

1490
Cantera/src/equil/vcs_VolPhase.h
View file

File diff suppressed because it is too large Load diff

1047
Cantera/src/equil/vcs_prob.cpp
View file

File diff suppressed because it is too large Load diff

7
Cantera/src/equil/vcs_rxnadj.cpp
View file

@ -324,11 +324,16 @@ namespace VCSnonideal {
* We don't need to call single species phases;
*/
if (!Vphase->SingleSpecies && !Vphase->isIdealSoln()) {
/*
* update the mole numbers
*/
Vphase->setMolesFromVCS(VCS_STATECALC_OLD, moleSpeciesVCS);
/*
* update the Ln Act Coeff jacobian entries with respect to the
* mole number of species in the phase
*/
Vphase->updateLnActCoeffJac(moleSpeciesVCS);
Vphase->updateLnActCoeffJac();
/*
* Download the resulting calculation into the full vector
* -> This scatter calculation is carried out in the

2
Cantera/src/equil/vcs_solve.cpp
View file

@ -971,9 +971,7 @@ namespace VCSnonideal {
pubPhase->setMoleFractions(VCS_DATA_PTR(vPhase->moleFractions()));
for (int k = 0; k < pubPhase->NVolSpecies; k++) {
kT = pubPhase->IndSpecies[k];
//pubPhase->Xmol[k] = vPhase->Xmol[k];
pubPhase->SS0ChemicalPotential[k] = vPhase->SS0ChemicalPotential[k];
pubPhase->StarChemicalPotential[k] = vPhase->StarChemicalPotential[k];
pubPhase->StarMolarVol[k] = vPhase->StarMolarVol[k];
pubPhase->PartialMolarVol[k] = vPhase->PartialMolarVol[k];
pubPhase->ActCoeff[k] = vPhase->ActCoeff[k];

2
Cantera/src/equil/vcs_solve.h
View file

@ -1323,6 +1323,8 @@ private:
void vcs_TCounters_report(int timing_print_lvl = 1);
void vcs_setMoleNumVolPhases(bool upToDate, int stateCalc);
public:
//! value of the number of species used to malloc data structures
int NSPECIES0;

22
Cantera/src/equil/vcs_solve_TP.cpp
View file

@ -1099,6 +1099,7 @@ namespace VCSnonideal {
* solution values. We only calculate a subset of these, because
* we have only updated a subset of the W().
*/
vcs_setMoleNumVolPhases(false, VCS_STATECALC_NEW);
vcs_updateVP(VCS_STATECALC_NEW);
vcs_dfe(VCS_STATECALC_NEW, 0, 0, m_numSpeciesTot);
@ -3273,7 +3274,6 @@ namespace VCSnonideal {
}
/*****************************************************************************/
// This subroutine calculates reaction free energy changes for
// all noncomponent formation reactions.
/*
@ -5361,4 +5361,24 @@ namespace VCSnonideal {
return dx;
}
/*******************************************************************************/
void VCS_SOLVE::vcs_setMoleNumVolPhases(bool upToDate, int stateCalc) {
int iph;
vcs_VolPhase *Vphase;
if (!upToDate) {
for (iph = 0; iph < m_numPhases; iph++) {
Vphase = m_VolPhaseList[iph];
Vphase->m_UpToDate = false;
}
} else {
for (iph = 0; iph < m_numPhases; iph++) {
Vphase = m_VolPhaseList[iph];
Vphase->m_UpToDate = true;
Vphase->m_vcsStateStatus = stateCalc;
}
}
}
}

3
Cantera/src/equil/vcs_species_thermo.cpp
View file

@ -187,7 +187,8 @@ double VCS_SPECIES_THERMO::GStar_R_calc(int kglob, double TKelvin,
if (UseCanteraCalls) {
AssertThrowVCS(m_VCS_UnitsFormat == VCS_UNITS_MKS, "Possible inconsistency");
int kspec = IndexSpeciesPhase;
fe = OwningPhase->GStar_calc_one(kspec, TKelvin, pres);
OwningPhase->setState_TP(TKelvin, pres);
fe = OwningPhase->GStar_calc_one(kspec);
double R = vcsUtil_gasConstant(m_VCS_UnitsFormat);
fe /= R;
} else {