diff --git a/solvers_post/LagrangianCMCFoam/QCMC_init.H b/solvers_post/LagrangianCMCFoam/QCMC_init.H index 990b9bb..21938ba 100644 --- a/solvers_post/LagrangianCMCFoam/QCMC_init.H +++ b/solvers_post/LagrangianCMCFoam/QCMC_init.H @@ -1,97 +1,94 @@ - IFstream slfmFile - ( - SLFMinit - ); +IFstream slfmFile (SLFMinit); - word garbage, yname; - scalar neta(0), ny(0); +word garbage, yname; +scalar neta(0), ny(0); - slfmFile.getLine(garbage);//INPUT - slfmFile.getLine(garbage);//NO. - slfmFile>>neta>>ny;//number of eta and species +slfmFile.getLine(garbage);//INPUT +slfmFile.getLine(garbage);//NO. +slfmFile>>neta>>ny;//number of eta and species - slfmFile.getLine(garbage);//blank line - slfmFile.getLine(garbage);//PRESSURE - slfmFile.getLine(garbage);//1.0 - slfmFile.getLine(garbage);//MIXTURE +slfmFile.getLine(garbage);//blank line +slfmFile.getLine(garbage);//PRESSURE +slfmFile.getLine(garbage);//1.0 +slfmFile.getLine(garbage);//MIXTURE - scalarField eta(neta, 0); - scalarField yi_temp(neta*(ny+1), 0), yi((etamax+1)*(ny+1),0), wi(neta*(ny+1), 0); +scalarField eta(neta, 0); +scalarField yi_temp(neta*(ny+1), 0), yi((etamax+1)*(ny+1),0), wi(neta*(ny+1), 0); - for(label j=0 ; j>eta[j]; - } +for(label j=0 ; j>eta[j]; +} - slfmFile.getLine(garbage); //blank line - slfmFile.getLine(garbage); //INITIAL +slfmFile.getLine(garbage); //blank line +slfmFile.getLine(garbage); //INITIAL - for(label i=0; i>yname; - Info<>yi_temp[j*(ny+1)+i]; - } +for(label i=0; i>yname; + Info<>yi_temp[j*(ny+1)+i]; + } - for(label j=0 ; j>wi[j*(ny+1)+i]; //reaction rates - } - slfmFile.getLine(garbage);//blank line - } - //Temperature + for(label j=0 ; j>wi[j*(ny+1)+i]; //reaction rates + } + slfmFile.getLine(garbage);//blank line +} +//Temperature - slfmFile>>yname; - Info<>yi_temp[j*(ny+1)+ny]; +slfmFile>>yname; +Info<>yi_temp[j*(ny+1)+ny]; - } +} - Interpolation(etaValue, eta, 1, ny+1, yi_temp, yi); +Interpolation(etaValue, eta, 1, ny+1, yi_temp, yi); - for(label j = 0 ; j<=etamax ; j++) - { - for(label i = 0 ; icalculateRHOCMC(QiCMCin , Tin, Pin); - - QhCMC[j+k*(etamax+1)] = chemistry->calculateHCMC(QiCMCin , Tin, rhoCMC[ j+k*(etamax+1)], Pin); - + QiCMCin[i] = QiCMC[(k*(etamax+1)+j)*Ysize + i]; } + + rhoCMC[j+k*(etamax+1)] = chemistry->calculateRHOCMC(QiCMCin , Tin, Pin); + + QhCMC[j+k*(etamax+1)] = chemistry->calculateHCMC(QiCMCin , Tin, rhoCMC[ j+k*(etamax+1)], Pin); + + } }