research/OF-POSTECH-1
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

removed goto statements in Peta.H

Browse source
This commit is contained in:
ignis 2017-08-17 13:57:17 +09:00
parent f4c39c52b4
commit 1ec6187fa3
1 changed files with 115 additions and 120 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

139
solvers_post/LagrangianCMCFoam/Peta.H
View file

@ -4,141 +4,136 @@
// eta = (1/etamax)*etacount
{
scalar betaftn=0.0, gammaCMC=0.0, alphaCMC=0.0, betaCMC=0.0, PTOTAL=0.0;
scalar loop_counter = 0, mf_diff=0.0, mfnew=0.0;
forAll(mf, celli) //cell number loop
{
mf_temp[celli] = mf[celli]; //karam, test
scalar mfi = mf[celli]; //karam, test
Re_calculate_pdf:;
Switch pdfCalculated = false;
scalarField pdf(etamax+1,0.0);
label loop_counter = 0;
do
{
//Adjust mixture fraction and its variance
if(mfVar[celli] < 1.0e-30)
{
mfVar[celli] = 1.0e-30;
}
if(mf_temp[celli] < 0.0)
if(mfi < 0.0)
{
mf_temp[celli] = 0.0;
mfi = 0.0;
}
if(mf_temp[celli] < 5.0e-4) //karam, 5e-4 -> 1e-4 )
//calculate alpha and beta for PDF function
scalar gammaCMC = mfi*(1.0-mfi) / mfVar[celli] - 1.0;
scalar betaCMC = (1.0-mfi) * gammaCMC;
scalar alphaCMC = mfi * gammaCMC;
if(mfi < 5.0e-4) //karam, 5e-4 -> 1e-4 )
{
pdf = 0.0;
pdf[0] = 1.0 / deta[0];//1;
deltaftn[celli] = 0;
goto Peta_NextCell;
pdfCalculated = true;
}
gammaCMC = mf_temp[celli]*(1.0-mf_temp[celli]) / mfVar[celli] - 1.0;
if(gammaCMC <= 0.0)
else if(gammaCMC <= 0.0)
{
// Info<<"GammaCMC is lower than zero -- two delta function";
pdf = 0.0;
pdf[0] = 0.5 * 1.0/deta[0]; //0.5;
pdf[etamax] = 0.5 * 1.0/deta[etamax]; //0.5;
deltaftn[celli] = 1;
goto Peta_NextCell;
pdfCalculated = true;
}
//calculate alpha and beta for PDF function
betaCMC = (1.0-mf_temp[celli]) * gammaCMC;
alphaCMC = mf_temp[celli] * gammaCMC;
if(alphaCMC <= 1.0 && betaCMC <= 1.0)
else if(alphaCMC <= 1.0 && betaCMC <= 1.0)
{
// Info<<"AlphaCMC and betaCMC are lower than one -- two delta function";
pdf = 0.0;
pdf[0] = 0.5 * 1.0/deta[0]; //0.5;
pdf[etamax] = 0.5 * 1.0/deta[etamax]; //0.5;
deltaftn[celli] = 1;
goto Peta_NextCell;
pdfCalculated = true;
}
else if(alphaCMC < 1.0 && betaCMC >= 1.0)
{
pdf = 0.0;
pdf[0] = 1.0/deta[0]; //1;
deltaftn[celli] = 0;
goto Peta_NextCell;
pdfCalculated = true;
}
else if(alphaCMC >= 1.0 && betaCMC < 1.0)
{
pdf = 0.0;
pdf[etamax] = 1.0/deta[etamax]; //1;
deltaftn[celli] = 0;
goto Peta_NextCell;
}
betaftn = std::exp( gammaln(alphaCMC) + gammaln(betaCMC) - gammaln(alphaCMC + betaCMC) ); //Numerial recipe 2nd Edition 206page
if(betaftn < 1.0e-50)
{
set_onedelta:;
pdf = 0.0;
for(label etacount = 0; etacount<=etamax ; etacount++) //set one delta function
{
if( etaValue[etacount] >= mf_temp[celli])
{
pdf[etacount] = 1.0/deta[etacount]; //1;
deltaftn[celli] = 0;
goto Peta_NextCell;
}
}
}
for(label etacount=0 ; etacount <= etamax ; etacount++)
{
if(etacount == 0 || etacount == etamax)
{
pdf[etacount] = 0.0;
pdfCalculated = true;
}
else
{
pdf[etacount] = Foam::pow( etaValue[etacount] , alphaCMC - 1.0 ) * Foam::pow ( 1.0 - etaValue[etacount] , betaCMC -1.0 ) / betaftn ;
}
scalar betaftn = std::exp( gammaln(alphaCMC) + gammaln(betaCMC) - gammaln(alphaCMC + betaCMC) ); //Numerial recipe 2nd Edition 206page
if (betaftn > 1.0e-50)
{
pdf[0] = 0.0;
pdf[etamax] = 0.0;
for(label etacount = 1 ; etacount < etamax ; etacount++)
{
pdf[etacount] = Foam::pow( etaValue[etacount] , alphaCMC - 1.0 )
* Foam::pow ( 1.0 - etaValue[etacount] , betaCMC - 1.0 ) / betaftn ;
}
deltaftn[celli] = 2;
PTOTAL = 0.0; //PTOTAL initialization in each cell
scalarField f(etamax+1, 1.0);
scalar pTotal = integration(deltaftn[celli], MFcut, Neta, pdf, f);
f = 1.0;
PTOTAL = integration(deltaftn[celli], MFcut, Neta, pdf, f);
for(label etacount=0; etacount<=etamax ; etacount++)
for(label etacount = 0; etacount <= etamax ; etacount++)
{
pdf[etacount] = pdf[etacount]/PTOTAL;
pdf[etacount] = pdf[etacount]/pTotal;
}
mfnew = integration(deltaftn[celli], MFcut, Neta, pdf, etaValue);
scalar mfnew = integration(deltaftn[celli], MFcut, Neta, pdf, etaValue);
scalar mf_diff = (mf[celli] - mfnew)/mf[celli];
mf_diff = (mf[celli] - mfnew)/mf[celli];
if(std::fabs(mf_diff) > 0.00001)//1e-5)
if(std::fabs(mf_diff) < 0.00001) // 1e-5)
{
mf_temp[celli] = mf_temp[celli] + 0.5*mf_diff*mf[celli];
if(loop_counter > 100)
{
Info<<"Force set pdf to one delta"<<endl;
goto set_onedelta;
pdfCalculated = true;
}
else
{
mfi = mfi + 0.5*mf_diff*mf[celli];
}
}
else
{
loop_counter = 1000;
}
}
loop_counter++;
goto Re_calculate_pdf;
}
Peta_NextCell:;
} while ((!pdfCalculated) && (loop_counter < 100));
if(!pdfCalculated)
{
pdf = 0.0;
for(label etacount = 0; etacount<=etamax ; etacount++) //set one delta function
{
if( etaValue[etacount] >= mfi)
{
pdf[etacount] = 1.0/deta[etacount]; //1;
deltaftn[celli] = 0;
break;
}
}
}
for(label etacount = 0; etacount <= etamax ; etacount++)
{
Peta[etacount][celli] = pdf[etacount];
}
loop_counter = 0;
}
}