OilfieldToolsNet/LBPM
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
Files
cd49bae2b4a200681836bcf1eb57ae9b8d29e22f
LBPM/cpu/FreeLee.cpp

4830 lines
269 KiB
C++
Raw Normal View History

template for freelee model
2020-09-25 16:18:54 -04:00
#include <math.h>
D3Q7 Lee model (looks anisotropic)
2021-03-18 14:51:26 -04:00
#include <stdio.h>
template for freelee model
2020-09-25 16:18:54 -04:00
#define STOKES
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
extern "C" void ScaLBL_D3Q19_FreeLeeModel_TwoFluid_Init(double *gqbar, double *mu_phi, double *ColorGrad, double Fx, double Fy, double Fz, int Np)
template for freelee model
2020-09-25 16:18:54 -04:00
{
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
int n;
double p = 1.0;//NOTE: take initial pressure p=1.0
build pass; ongoing model validation
2021-01-31 21:26:03 -05:00
double chem;
double cg_x,cg_y,cg_z;
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
for (n=0; n<Np; n++){
chem = mu_phi[n];//chemical potential
cg_x = ColorGrad[0*Np+n];
cg_y = ColorGrad[1*Np+n];
cg_z = ColorGrad[2*Np+n];
add a correcting factor cs2 into velocity equation
2021-02-08 20:31:45 -05:00
gqbar[0*Np+n] = 0.3333333333333333*p;
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
gqbar[1*Np+n] = 0.055555555555555555*(p - 0.5*(chem*cg_x+Fx)); //double(100*n)+1.f;
gqbar[2*Np+n] = 0.055555555555555555*(p - 0.5*(-chem*cg_x-Fx)); //double(100*n)+2.f;
gqbar[3*Np+n] = 0.055555555555555555*(p - 0.5*(chem*cg_y+Fy)); //double(100*n)+3.f;
gqbar[4*Np+n] = 0.055555555555555555*(p - 0.5*(-chem*cg_y-Fy)); //double(100*n)+4.f;
gqbar[5*Np+n] = 0.055555555555555555*(p - 0.5*(chem*cg_z+Fz)); //double(100*n)+5.f;
gqbar[6*Np+n] = 0.055555555555555555*(p - 0.5*(-chem*cg_z-Fz)); //double(100*n)+6.f;
gqbar[7*Np+n] = 0.0277777777777778*(p-0.5*(chem*(cg_x+cg_y)+Fx+Fy)); //double(100*n)+7.f;
gqbar[8*Np+n] = 0.0277777777777778*(p-0.5*(chem*(-cg_x-cg_y)-Fx-Fy)); //double(100*n)+8.f;
gqbar[9*Np+n] = 0.0277777777777778*(p-0.5*(chem*(cg_x-cg_y)+Fx-Fy)); //double(100*n)+9.f;
gqbar[10*Np+n] = 0.0277777777777778*(p-0.5*(chem*(-cg_x+cg_y)-Fx+Fy)); //double(100*n)+10.f;
gqbar[11*Np+n] = 0.0277777777777778*(p-0.5*(chem*(cg_x+cg_z)+Fx+Fz)); //double(100*n)+11.f;
gqbar[12*Np+n] = 0.0277777777777778*(p-0.5*(chem*(-cg_x-cg_z)-Fx-Fz)); //double(100*n)+12.f;
gqbar[13*Np+n] = 0.0277777777777778*(p-0.5*(chem*(cg_x-cg_z)+Fx-Fz)); //double(100*n)+13.f;
gqbar[14*Np+n] = 0.0277777777777778*(p-0.5*(chem*(-cg_x+cg_z)-Fx+Fz)); //double(100*n)+14.f;
gqbar[15*Np+n] = 0.0277777777777778*(p-0.5*(chem*(cg_y+cg_z)+Fy+Fz)); ; //double(100*n)+15.f;
gqbar[16*Np+n] = 0.0277777777777778*(p-0.5*(chem*(-cg_y-cg_z)-Fy-Fz));; //double(100*n)+16.f;
gqbar[17*Np+n] = 0.0277777777777778*(p-0.5*(chem*(cg_y-cg_z)+Fy-Fz)); ; //double(100*n)+17.f;
gqbar[18*Np+n] = 0.0277777777777778*(p-0.5*(chem*(-cg_y+cg_z)-Fy+Fz));; //double(100*n)+18.f;
template for freelee model
2020-09-25 16:18:54 -04:00
}
}
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
extern "C" void ScaLBL_D3Q19_FreeLeeModel_SingleFluid_Init(double *gqbar, double Fx, double Fy, double Fz, int Np)
{
int n;
double p = 1.0;//NOTE: take initial pressure p=1.0
for (n=0; n<Np; n++){
add a correcting factor cs2 into velocity equation
2021-02-08 20:31:45 -05:00
gqbar[0*Np+n] = 0.3333333333333333*p;
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
gqbar[1*Np+n] = 0.055555555555555555*(p - 0.5*(Fx)); //double(100*n)+1.f;
gqbar[2*Np+n] = 0.055555555555555555*(p - 0.5*(-Fx)); //double(100*n)+2.f;
gqbar[3*Np+n] = 0.055555555555555555*(p - 0.5*(Fy)); //double(100*n)+3.f;
gqbar[4*Np+n] = 0.055555555555555555*(p - 0.5*(-Fy)); //double(100*n)+4.f;
gqbar[5*Np+n] = 0.055555555555555555*(p - 0.5*(Fz)); //double(100*n)+5.f;
gqbar[6*Np+n] = 0.055555555555555555*(p - 0.5*(-Fz)); //double(100*n)+6.f;
gqbar[7*Np+n] = 0.0277777777777778*(p-0.5*(Fx+Fy)); //double(100*n)+7.f;
gqbar[8*Np+n] = 0.0277777777777778*(p-0.5*(-Fx-Fy)); //double(100*n)+8.f;
gqbar[9*Np+n] = 0.0277777777777778*(p-0.5*(Fx-Fy)); //double(100*n)+9.f;
gqbar[10*Np+n] = 0.0277777777777778*(p-0.5*(-Fx+Fy)); //double(100*n)+10.f;
gqbar[11*Np+n] = 0.0277777777777778*(p-0.5*(Fx+Fz)); //double(100*n)+11.f;
gqbar[12*Np+n] = 0.0277777777777778*(p-0.5*(-Fx-Fz)); //double(100*n)+12.f;
gqbar[13*Np+n] = 0.0277777777777778*(p-0.5*(Fx-Fz)); //double(100*n)+13.f;
gqbar[14*Np+n] = 0.0277777777777778*(p-0.5*(-Fx+Fz)); //double(100*n)+14.f;
gqbar[15*Np+n] = 0.0277777777777778*(p-0.5*(Fy+Fz)); ; //double(100*n)+15.f;
gqbar[16*Np+n] = 0.0277777777777778*(p-0.5*(-Fy-Fz));; //double(100*n)+16.f;
gqbar[17*Np+n] = 0.0277777777777778*(p-0.5*(Fy-Fz)); ; //double(100*n)+17.f;
gqbar[18*Np+n] = 0.0277777777777778*(p-0.5*(-Fy+Fz));; //double(100*n)+18.f;
}
D3Q7 Lee model (looks anisotropic)
2021-03-18 14:51:26 -04:00
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
}
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
extern "C" void ScaLBL_FreeLeeModel_PhaseField_Init(int *Map, double *Phi, double *Den, double *hq, double *ColorGrad,
build pass; ongoing model validation
2021-01-31 21:26:03 -05:00
double rhoA, double rhoB, double tauM, double W, int start, int finish, int Np){
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
int idx,n;
double phi;
double nx,ny,nz,cg_mag;
double theta;//anti-diffusion term
double cs2_inv = 4.5;//inverse of speed of sound for D3Q7
double M = 1.0/cs2_inv*(tauM-0.5);//diffusivity (or mobility)
for (idx=start; idx<finish; idx++){
n = Map[idx];
phi = Phi[n];
if (phi > 1.f) phi = 1.0;
if (phi < -1.f) phi = -1.0;
Den[idx] = rhoA + 0.5*(1.0-phi)*(rhoB-rhoA);
//compute unit normal of color gradient
nx = ColorGrad[idx+0*Np];
ny = ColorGrad[idx+1*Np];
nz = ColorGrad[idx+2*Np];
cg_mag = sqrt(nx*nx+ny*ny+nz*nz);
double ColorMag_temp = cg_mag;
if (cg_mag==0.0) ColorMag_temp=1.0;
nx = nx/ColorMag_temp;
ny = ny/ColorMag_temp;
nz = nz/ColorMag_temp;
further clean up CPU code;Update GPU code;GPU version to be built and verified
2021-03-31 20:42:16 -04:00
theta = M*cs2_inv*2.0*(1-phi*phi)/W;
D3Q7 Lee model (looks anisotropic)
2021-03-18 14:51:26 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
hq[0*Np+idx]=0.3333333333333333*(phi);
hq[1*Np+idx]=0.1111111111111111*(phi+theta*nx);
hq[2*Np+idx]=0.1111111111111111*(phi-theta*nx);
hq[3*Np+idx]=0.1111111111111111*(phi+theta*ny);
hq[4*Np+idx]=0.1111111111111111*(phi-theta*ny);
hq[5*Np+idx]=0.1111111111111111*(phi+theta*nz);
hq[6*Np+idx]=0.1111111111111111*(phi-theta*nz);
template for freelee model
2020-09-25 16:18:54 -04:00
}
}
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
extern "C" void ScaLBL_D3Q7_AAodd_FreeLeeModel_PhaseField(int *neighborList, int *Map, double *hq, double *Den, double *Phi,
double rhoA, double rhoB, int start, int finish, int Np){
template for freelee model
2020-09-25 16:18:54 -04:00
D3Q7 Lee model (looks anisotropic)
2021-03-18 14:51:26 -04:00
int idx,nread;
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
double fq,phi;
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
for (int n=start; n<finish; n++){
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q=0
fq = hq[n];
phi = fq;
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q=1
nread = neighborList[n];
fq = hq[nread];
phi += fq;
// q=2
nread = neighborList[n+Np];
fq = hq[nread];
phi += fq;
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q=3
nread = neighborList[n+2*Np];
fq = hq[nread];
phi += fq;
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 4
nread = neighborList[n+3*Np];
fq = hq[nread];
phi += fq;
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q=5
nread = neighborList[n+4*Np];
fq = hq[nread];
phi += fq;
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 6
nread = neighborList[n+5*Np];
fq = hq[nread];
phi += fq;
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// save the number densities
Den[n] = rhoA + 0.5*(1.0-phi)*(rhoB-rhoA);
// save the phase indicator field
idx = Map[n];
Phi[idx] = phi;
D3Q7 Lee model (looks anisotropic)
2021-03-18 14:51:26 -04:00
template for freelee model
2020-09-25 16:18:54 -04:00
}
}
D3Q7 Lee model (looks anisotropic)
2021-03-18 14:51:26 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
extern "C" void ScaLBL_D3Q7_AAeven_FreeLeeModel_PhaseField(int *Map, double *hq, double *Den, double *Phi,
double rhoA, double rhoB, int start, int finish, int Np){
D3Q7 Lee model (looks anisotropic)
2021-03-18 14:51:26 -04:00
int idx;
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
double fq,phi;
for (int n=start; n<finish; n++){
// q=0
fq = hq[n];
phi = fq;
// q=1
fq = hq[2*Np+n];
phi += fq;
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// f2 = hq[10*Np+n];
fq = hq[1*Np+n];
phi += fq;
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q=3
fq = hq[4*Np+n];
phi += fq;
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 4
fq = hq[3*Np+n];
phi += fq;
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q=5
fq = hq[6*Np+n];
phi += fq;
// q = 6
fq = hq[5*Np+n];
phi += fq;
// save the number densities
Den[n] = rhoA + 0.5*(1.0-phi)*(rhoB-rhoA);
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// save the phase indicator field
idx = Map[n];
Phi[idx] = phi;
}
template for freelee model
2020-09-25 16:18:54 -04:00
}
D3Q7 Lee model (looks anisotropic)
2021-03-18 14:51:26 -04:00
extern "C" void ScaLBL_D3Q7_AAodd_FreeLee_PhaseField(int *neighborList, int *Map, double *hq, double *Den, double *Phi, double *ColorGrad, double *Vel,
double rhoA, double rhoB, double tauM, double W, int start, int finish, int Np){
int idx,nr1,nr2,nr3,nr4,nr5,nr6;
double h0,h1,h2,h3,h4,h5,h6;
double nx,ny,nz,C;
double ux,uy,uz;
double phi;
double M = 2.0/9.0*(tauM-0.5);//diffusivity (or mobility) for the phase field D3Q7
1.revised relations of surface tension and W;2.reintroduce theta for better modele tuning;3.put chemical potential in debug output
2021-03-24 21:02:34 -04:00
double theta;
D3Q7 Lee model (looks anisotropic)
2021-03-18 14:51:26 -04:00
for (int n=start; n<finish; n++){
/* load phase indicator field */
idx = Map[n];
phi = Phi[idx];
1.revised relations of surface tension and W;2.reintroduce theta for better modele tuning;3.put chemical potential in debug output
2021-03-24 21:02:34 -04:00
theta = 4.5*M*2.0*(1-phi*phi)/W;
D3Q7 Lee model (looks anisotropic)
2021-03-18 14:51:26 -04:00
/* velocity */
ux = Vel[0*Np+n];
uy = Vel[1*Np+n];
uz = Vel[2*Np+n];
/*color gradient */
nx = ColorGrad[0*Np+n];
ny = ColorGrad[1*Np+n];
nz = ColorGrad[2*Np+n];
//Normalize the Color Gradient
C = sqrt(nx*nx+ny*ny+nz*nz);
double ColorMag = C;
clean up arguments for Free Lee
2021-03-20 13:12:49 -04:00
if (C < 1.0e-12) ColorMag=1.0;
D3Q7 Lee model (looks anisotropic)
2021-03-18 14:51:26 -04:00
nx = nx/ColorMag;
ny = ny/ColorMag;
nz = nz/ColorMag;
// q=1
nr1 = neighborList[n];
nr2 = neighborList[n+Np];
nr3 = neighborList[n+2*Np];
nr4 = neighborList[n+3*Np];
nr5 = neighborList[n+4*Np];
nr6 = neighborList[n+5*Np];
//q=0
h0 = hq[n];
//q=1
h1 = hq[nr1];
//q=2
h2 = hq[nr2];
//q=3
h3 = hq[nr3];
//q=4
h4 = hq[nr4];
//q=5
h5 = hq[nr5];
//q=6
h6 = hq[nr6];
//-------------------------------- BGK collison for phase field ---------------------------------//
h0 -= (h0 - 0.3333333333333333*phi)/tauM;
1.revised relations of surface tension and W;2.reintroduce theta for better modele tuning;3.put chemical potential in debug output
2021-03-24 21:02:34 -04:00
h1 -= (h1 - 0.1111111111111111*nx*theta - phi*(0.1111111111111111 + 0.5*ux))/tauM;
h2 -= (h2 + 0.1111111111111111*nx*theta - phi*(0.1111111111111111 - 0.5*ux))/tauM;
h3 -= (h3 - 0.1111111111111111*ny*theta - phi*(0.1111111111111111 + 0.5*uy))/tauM;
h4 -= (h4 + 0.1111111111111111*ny*theta - phi*(0.1111111111111111 - 0.5*uy))/tauM;
h5 -= (h5 - 0.1111111111111111*nz*theta - phi*(0.1111111111111111 + 0.5*uz))/tauM;
h6 -= (h6 + 0.1111111111111111*nz*theta - phi*(0.1111111111111111 - 0.5*uz))/tauM;
D3Q7 Lee model (looks anisotropic)
2021-03-18 14:51:26 -04:00
//........................................................................
/*Update the distributions */
// q = 0
hq[n] = h0;
hq[nr2] = h1;
hq[nr1] = h2;
hq[nr4] = h3;
hq[nr3] = h4;
hq[nr6] = h5;
hq[nr5] = h6;
//........................................................................
clean up arguments for Free Lee
2021-03-20 13:12:49 -04:00
D3Q7 Lee model (looks anisotropic)
2021-03-18 14:51:26 -04:00
}
}
extern "C" void ScaLBL_D3Q7_AAeven_FreeLee_PhaseField( int *Map, double *hq, double *Den, double *Phi, double *ColorGrad, double *Vel,
double rhoA, double rhoB, double tauM, double W, int start, int finish, int Np){
int idx,n;
double h0,h1,h2,h3,h4,h5,h6;
double nx,ny,nz,C;
double ux,uy,uz;
double phi;
double M = 2.0/9.0*(tauM-0.5);//diffusivity (or mobility) for the phase field D3Q7
1.revised relations of surface tension and W;2.reintroduce theta for better modele tuning;3.put chemical potential in debug output
2021-03-24 21:02:34 -04:00
double theta;
D3Q7 Lee model (looks anisotropic)
2021-03-18 14:51:26 -04:00
for (int n=start; n<finish; n++){
/* load phase indicator field */
idx = Map[n];
phi = Phi[idx];
1.revised relations of surface tension and W;2.reintroduce theta for better modele tuning;3.put chemical potential in debug output
2021-03-24 21:02:34 -04:00
theta = 4.5*M*2.0*(1-phi*phi)/W;
D3Q7 Lee model (looks anisotropic)
2021-03-18 14:51:26 -04:00
/* velocity */
ux = Vel[0*Np+n];
uy = Vel[1*Np+n];
uz = Vel[2*Np+n];
/*color gradient */
nx = ColorGrad[0*Np+n];
ny = ColorGrad[1*Np+n];
nz = ColorGrad[2*Np+n];
//Normalize the Color Gradient
C = sqrt(nx*nx+ny*ny+nz*nz);
double ColorMag = C;
clean up arguments for Free Lee
2021-03-20 13:12:49 -04:00
if (C < 1.0e-12) ColorMag=1.0;
D3Q7 Lee model (looks anisotropic)
2021-03-18 14:51:26 -04:00
nx = nx/ColorMag;
ny = ny/ColorMag;
nz = nz/ColorMag;
h0 = hq[n];
h1 = hq[2*Np+n];
h2 = hq[Np+n];
h3 = hq[4*Np+n];
h4 = hq[3*Np+n];
h5 = hq[6*Np+n];
h6 = hq[5*Np+n];
//-------------------------------- BGK collison for phase field ---------------------------------//
h0 -= (h0 - 0.3333333333333333*phi)/tauM;
1.revised relations of surface tension and W;2.reintroduce theta for better modele tuning;3.put chemical potential in debug output
2021-03-24 21:02:34 -04:00
h1 -= (h1 - 0.1111111111111111*nx*theta - phi*(0.1111111111111111 + 0.5*ux))/tauM;
h2 -= (h2 + 0.1111111111111111*nx*theta - phi*(0.1111111111111111 - 0.5*ux))/tauM;
h3 -= (h3 - 0.1111111111111111*ny*theta - phi*(0.1111111111111111 + 0.5*uy))/tauM;
h4 -= (h4 + 0.1111111111111111*ny*theta - phi*(0.1111111111111111 - 0.5*uy))/tauM;
h5 -= (h5 - 0.1111111111111111*nz*theta - phi*(0.1111111111111111 + 0.5*uz))/tauM;
h6 -= (h6 + 0.1111111111111111*nz*theta - phi*(0.1111111111111111 - 0.5*uz))/tauM;
D3Q7 Lee model (looks anisotropic)
2021-03-18 14:51:26 -04:00
//........................................................................
/*Update the distributions */
// q = 0
hq[n] = h0;
hq[Np+n] = h1;
hq[2*Np+n] = h2;
hq[3*Np+n] = h3;
hq[4*Np+n] = h4;
hq[5*Np+n] = h5;
hq[6*Np+n] = h6;
//........................................................................
clean up arguments for Free Lee
2021-03-20 13:12:49 -04:00
D3Q7 Lee model (looks anisotropic)
2021-03-18 14:51:26 -04:00
}
}
extern "C" void ScaLBL_D3Q7_ComputePhaseField(int *Map, double *hq, double *Den, double *Phi, double rhoA, double rhoB, int start, int finish, int Np){
int idx,n;
double h0,h1,h2,h3,h4,h5,h6;
double phi;
for (int n=start; n<finish; n++){
h0 = hq[n];
h1 = hq[1*Np+n];
h2 = hq[2*Np+n];
h3 = hq[3*Np+n];
h4 = hq[4*Np+n];
h5 = hq[5*Np+n];
h6 = hq[6*Np+n];
phi = h0+h1+h2+h3+h4+h5+h6;
// save the number densities
Den[n] = rhoA + 0.5*(1.0-phi)*(rhoB-rhoA);
// save the phase indicator field
idx = Map[n];
Phi[idx] = phi;
}
}
clean up arguments for Free Lee
2021-03-20 13:12:49 -04:00
extern "C" void ScaLBL_D3Q19_AAodd_FreeLeeModel(int *neighborList, int *Map, double *dist, double *Den, double *Phi, double *mu_phi, double *Vel, double *Pressure, double *ColorGrad,
double rhoA, double rhoB, double tauA, double tauB, double kappa, double beta, double W, double Fx, double Fy, double Fz,
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
int strideY, int strideZ, int start, int finish, int Np){
D3Q7 Lee model (looks anisotropic)
2021-03-18 14:51:26 -04:00
int nn,nn2x,ijk;
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
int nr1,nr2,nr3,nr4,nr5,nr6,nr7,nr8,nr9,nr10,nr11,nr12,nr13,nr14,nr15,nr16,nr17,nr18;
double ux,uy,uz;//fluid velocity
double p;//pressure
double chem;//chemical potential
double phi; //phase field
double rho0;//fluid density
// distribution functions
double m1,m2,m4,m6,m8,m9,m10,m11,m12,m13,m14,m15,m16,m17,m18;
double m0,m3,m5,m7;
double mm1,mm2,mm4,mm6,mm8,mm9,mm10,mm11,mm12,mm13,mm14,mm15,mm16,mm17,mm18;
double mm3,mm5,mm7;
double feq0,feq1,feq2,feq3,feq4,feq5,feq6,feq7,feq8,feq9,feq10,feq11,feq12,feq13,feq14,feq15,feq16,feq17,feq18;
double nx,ny,nz;//normal color gradient
double mgx,mgy,mgz;//mixed gradient reaching secondary neighbor
//double f0,f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18;
D3Q7 Lee model (looks anisotropic)
2021-03-18 14:51:26 -04:00
//double h0,h1,h2,h3,h4,h5,h6;//distributions for LB phase field
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
double tau;//position dependent LB relaxation time for fluid
D3Q7 Lee model (looks anisotropic)
2021-03-18 14:51:26 -04:00
//double C,theta;
// double M = 2.0/9.0*(tauM-0.5);//diffusivity (or mobility) for the phase field D3Q7
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
for (int n=start; n<finish; n++){
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
rho0 = Den[n];//load density
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// Get the 1D index based on regular data layout
ijk = Map[n];
corrected the phase field loading and removed a wrong factor in mixed-grad
2021-02-15 18:33:07 -05:00
phi = Phi[ijk];// load phase field
fix error where parameter is used before being loaded
2021-02-26 01:18:21 -05:00
// local relaxation time
tau=tauA + 0.5*(1.0-phi)*(tauB-tauA);
template for freelee model
2020-09-25 16:18:54 -04:00
// COMPUTE THE COLOR GRADIENT
//........................................................................
//.................Read Phase Indicator Values............................
//........................................................................
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
nn = ijk-1; // neighbor index (get convention)
m1 = Phi[nn]; // get neighbor for phi - 1
template for freelee model
2020-09-25 16:18:54 -04:00
//........................................................................
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
nn = ijk+1; // neighbor index (get convention)
m2 = Phi[nn]; // get neighbor for phi - 2
template for freelee model
2020-09-25 16:18:54 -04:00
//........................................................................
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
nn = ijk-strideY; // neighbor index (get convention)
m3 = Phi[nn]; // get neighbor for phi - 3
template for freelee model
2020-09-25 16:18:54 -04:00
//........................................................................
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
nn = ijk+strideY; // neighbor index (get convention)
m4 = Phi[nn]; // get neighbor for phi - 4
template for freelee model
2020-09-25 16:18:54 -04:00
//........................................................................
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
nn = ijk-strideZ; // neighbor index (get convention)
m5 = Phi[nn]; // get neighbor for phi - 5
template for freelee model
2020-09-25 16:18:54 -04:00
//........................................................................
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
nn = ijk+strideZ; // neighbor index (get convention)
m6 = Phi[nn]; // get neighbor for phi - 6
template for freelee model
2020-09-25 16:18:54 -04:00
//........................................................................
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
nn = ijk-strideY-1; // neighbor index (get convention)
m7 = Phi[nn]; // get neighbor for phi - 7
template for freelee model
2020-09-25 16:18:54 -04:00
//........................................................................
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
nn = ijk+strideY+1; // neighbor index (get convention)
m8 = Phi[nn]; // get neighbor for phi - 8
template for freelee model
2020-09-25 16:18:54 -04:00
//........................................................................
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
nn = ijk+strideY-1; // neighbor index (get convention)
m9 = Phi[nn]; // get neighbor for phi - 9
template for freelee model
2020-09-25 16:18:54 -04:00
//........................................................................
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
nn = ijk-strideY+1; // neighbor index (get convention)
m10 = Phi[nn]; // get neighbor for phi - 10
template for freelee model
2020-09-25 16:18:54 -04:00
//........................................................................
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
nn = ijk-strideZ-1; // neighbor index (get convention)
m11 = Phi[nn]; // get neighbor for phi - 11
template for freelee model
2020-09-25 16:18:54 -04:00
//........................................................................
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
nn = ijk+strideZ+1; // neighbor index (get convention)
m12 = Phi[nn]; // get neighbor for phi - 12
template for freelee model
2020-09-25 16:18:54 -04:00
//........................................................................
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
nn = ijk+strideZ-1; // neighbor index (get convention)
m13 = Phi[nn]; // get neighbor for phi - 13
template for freelee model
2020-09-25 16:18:54 -04:00
//........................................................................
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
nn = ijk-strideZ+1; // neighbor index (get convention)
m14 = Phi[nn]; // get neighbor for phi - 14
template for freelee model
2020-09-25 16:18:54 -04:00
//........................................................................
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
nn = ijk-strideZ-strideY; // neighbor index (get convention)
m15 = Phi[nn]; // get neighbor for phi - 15
template for freelee model
2020-09-25 16:18:54 -04:00
//........................................................................
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
nn = ijk+strideZ+strideY; // neighbor index (get convention)
m16 = Phi[nn]; // get neighbor for phi - 16
template for freelee model
2020-09-25 16:18:54 -04:00
//........................................................................
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
nn = ijk+strideZ-strideY; // neighbor index (get convention)
m17 = Phi[nn]; // get neighbor for phi - 17
template for freelee model
2020-09-25 16:18:54 -04:00
//........................................................................
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
nn = ijk-strideZ+strideY; // neighbor index (get convention)
m18 = Phi[nn]; // get neighbor for phi - 18
// compute mixed difference (Eq.30, A.Fukhari et al. JCP 315(2016) 434-457)
//........................................................................
nn2x = ijk-2; // neighbor index (get convention)
mm1 = Phi[nn2x]; // get neighbor for phi - 1
mm1 = 0.25*(-mm1+5.0*m1-3.0*phi-m2);
//........................................................................
nn2x = ijk+2; // neighbor index (get convention)
mm2 = Phi[nn2x]; // get neighbor for phi - 2
mm2 = 0.25*(-mm2+5.0*m2-3.0*phi-m1);
//........................................................................
nn2x = ijk-strideY*2; // neighbor index (get convention)
mm3 = Phi[nn2x]; // get neighbor for phi - 3
mm3 = 0.25*(-mm3+5.0*m3-3.0*phi-m4);
//........................................................................
nn2x = ijk+strideY*2; // neighbor index (get convention)
mm4 = Phi[nn2x]; // get neighbor for phi - 4
mm4 = 0.25*(-mm4+5.0*m4-3.0*phi-m3);
//........................................................................
nn2x = ijk-strideZ*2; // neighbor index (get convention)
mm5 = Phi[nn2x]; // get neighbor for phi - 5
mm5 = 0.25*(-mm5+5.0*m5-3.0*phi-m6);
//........................................................................
nn2x = ijk+strideZ*2; // neighbor index (get convention)
mm6 = Phi[nn2x]; // get neighbor for phi - 6
mm6 = 0.25*(-mm6+5.0*m6-3.0*phi-m5);
//........................................................................
nn2x = ijk-strideY*2-2; // neighbor index (get convention)
mm7 = Phi[nn2x]; // get neighbor for phi - 7
mm7 = 0.25*(-mm7+5.0*m7-3.0*phi-m8);
//........................................................................
nn2x = ijk+strideY*2+2; // neighbor index (get convention)
mm8 = Phi[nn2x]; // get neighbor for phi - 8
mm8 = 0.25*(-mm8+5.0*m8-3.0*phi-m7);
//........................................................................
nn2x = ijk+strideY*2-2; // neighbor index (get convention)
mm9 = Phi[nn2x]; // get neighbor for phi - 9
mm9 = 0.25*(-mm9+5.0*m9-3.0*phi-m10);
//........................................................................
nn2x = ijk-strideY*2+2; // neighbor index (get convention)
mm10 = Phi[nn2x]; // get neighbor for phi - 10
mm10 = 0.25*(-mm10+5.0*m10-3.0*phi-m9);
//........................................................................
nn2x = ijk-strideZ*2-2; // neighbor index (get convention)
mm11 = Phi[nn2x]; // get neighbor for phi - 11
mm11 = 0.25*(-mm11+5.0*m11-3.0*phi-m12);
//........................................................................
nn2x = ijk+strideZ*2+2; // neighbor index (get convention)
mm12 = Phi[nn2x]; // get neighbor for phi - 12
mm12 = 0.25*(-mm12+5.0*m12-3.0*phi-m11);
//........................................................................
nn2x = ijk+strideZ*2-2; // neighbor index (get convention)
mm13 = Phi[nn2x]; // get neighbor for phi - 13
mm13 = 0.25*(-mm13+5.0*m13-3.0*phi-m14);
//........................................................................
nn2x = ijk-strideZ*2+2; // neighbor index (get convention)
mm14 = Phi[nn2x]; // get neighbor for phi - 14
mm14 = 0.25*(-mm14+5.0*m14-3.0*phi-m13);
//........................................................................
nn2x = ijk-strideZ*2-strideY*2; // neighbor index (get convention)
mm15 = Phi[nn2x]; // get neighbor for phi - 15
mm15 = 0.25*(-mm15+5.0*m15-3.0*phi-m16);
//........................................................................
nn2x = ijk+strideZ*2+strideY*2; // neighbor index (get convention)
mm16 = Phi[nn2x]; // get neighbor for phi - 16
mm16 = 0.25*(-mm16+5.0*m16-3.0*phi-m15);
//........................................................................
nn2x = ijk+strideZ*2-strideY*2; // neighbor index (get convention)
mm17 = Phi[nn2x]; // get neighbor for phi - 17
mm17 = 0.25*(-mm17+5.0*m17-3.0*phi-m18);
//........................................................................
nn2x = ijk-strideZ*2+strideY*2; // neighbor index (get convention)
mm18 = Phi[nn2x]; // get neighbor for phi - 18
mm18 = 0.25*(-mm18+5.0*m18-3.0*phi-m17);
template for freelee model
2020-09-25 16:18:54 -04:00
//............Compute the Color Gradient...................................
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
nx = -3.0*1.0/18.0*(m1-m2+0.5*(m7-m8+m9-m10+m11-m12+m13-m14));
ny = -3.0*1.0/18.0*(m3-m4+0.5*(m7-m8-m9+m10+m15-m16+m17-m18));
nz = -3.0*1.0/18.0*(m5-m6+0.5*(m11-m12-m13+m14+m15-m16-m17+m18));
//............Compute the Chemical Potential...............................
chem = 2.0*3.0/18.0*(m1+m2+m3+m4+m5+m6-6*phi+0.5*(m7+m8+m9+m10+m11+m12+m13+m14+m15+m16+m17+m18-12*phi));//intermediate var, i.e. the laplacian
chem = 4.0*beta*phi*(phi+1.0)*(phi-1.0)-kappa*chem;
//............Compute the Mixed Gradient...................................
corrected the phase field loading and removed a wrong factor in mixed-grad
2021-02-15 18:33:07 -05:00
mgx = -3.0*1.0/18.0*(mm1-mm2+0.5*(mm7-mm8+mm9-mm10+mm11-mm12+mm13-mm14));
mgy = -3.0*1.0/18.0*(mm3-mm4+0.5*(mm7-mm8-mm9+mm10+mm15-mm16+mm17-mm18));
mgz = -3.0*1.0/18.0*(mm5-mm6+0.5*(mm11-mm12-mm13+mm14+mm15-mm16-mm17+mm18));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q=0
m0 = dist[n];
// q=1
nr1 = neighborList[n]; // neighbor 2 ( > 10Np => odd part of dist)
m1 = dist[nr1]; // reading the f1 data into register fq
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
nr2 = neighborList[n+Np]; // neighbor 1 ( < 10Np => even part of dist)
m2 = dist[nr2]; // reading the f2 data into register fq
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q=3
nr3 = neighborList[n+2*Np]; // neighbor 4
m3 = dist[nr3];
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 4
nr4 = neighborList[n+3*Np]; // neighbor 3
m4 = dist[nr4];
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q=5
nr5 = neighborList[n+4*Np];
m5 = dist[nr5];
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 6
nr6 = neighborList[n+5*Np];
m6 = dist[nr6];
// q=7
nr7 = neighborList[n+6*Np];
m7 = dist[nr7];
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 8
nr8 = neighborList[n+7*Np];
m8 = dist[nr8];
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q=9
nr9 = neighborList[n+8*Np];
m9 = dist[nr9];
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 10
nr10 = neighborList[n+9*Np];
m10 = dist[nr10];
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q=11
nr11 = neighborList[n+10*Np];
m11 = dist[nr11];
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q=12
nr12 = neighborList[n+11*Np];
m12 = dist[nr12];
// q=13
nr13 = neighborList[n+12*Np];
m13 = dist[nr13];
// q=14
nr14 = neighborList[n+13*Np];
m14 = dist[nr14];
// q=15
nr15 = neighborList[n+14*Np];
m15 = dist[nr15];
// q=16
nr16 = neighborList[n+15*Np];
m16 = dist[nr16];
// q=17
nr17 = neighborList[n+16*Np];
m17 = dist[nr17];
// q=18
nr18 = neighborList[n+17*Np];
m18 = dist[nr18];
//compute fluid velocity
add a correcting factor cs2 into velocity equation
2021-02-08 20:31:45 -05:00
ux = 3.0/rho0*(m1-m2+m7-m8+m9-m10+m11-m12+m13-m14+0.5*(chem*nx+Fx)/3.0);
uy = 3.0/rho0*(m3-m4+m7-m8-m9+m10+m15-m16+m17-m18+0.5*(chem*ny+Fy)/3.0);
uz = 3.0/rho0*(m5-m6+m11-m12-m13+m14+m15-m16-m17+m18+0.5*(chem*nz+Fz)/3.0);
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
//compute pressure
p = (m0+m2+m1+m4+m3+m6+m5+m8+m7+m10+m9+m12+m11+m14+m13+m16+m15+m18+m17)
+0.5*(rhoA-rhoB)/2.0/3.0*(ux*nx+uy*ny+uz*nz);
//compute equilibrium distributions
feq0 = 0.3333333333333333*p - 0.25*(Fx*ux + Fy*uy + Fz*uz)*(-0.6666666666666666 + ux*ux + uy*uy + uz*uz) -
0.16666666666666666*rho0*(ux*ux + uy*uy + uz*uz) - 0.5*(-(nx*ux) - ny*uy - nz*uz)*
(-0.08333333333333333*(rhoA - rhoB)*(ux*ux + uy*uy + uz*uz) + chem*(0.3333333333333333 - 0.5*(ux*ux + uy*uy + uz*uz)));
feq1 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-ux*ux + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*uz)) -
0.125*(Fx*(-1. + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux +
0.3333333333333333*(-2.*ux + ux*ux + uy*uy + uz*uz)) - 0.0625*(nx - nx*ux - ny*uy - nz*uz)*
(2*chem*ux*ux - 0.3333333333333333*((-rhoA + rhoB)*ux*ux + 2*chem*(-2*ux + ux*ux + uy*uy + uz*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*uz)));
feq2 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-ux*ux + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*uz)) -
0.125*(Fx + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux +
0.3333333333333333*(2.*ux + ux*ux + uy*uy + uz*uz)) - 0.0625*(nx + nx*ux + ny*uy + nz*uz)*
(-2.*chem*ux*ux + 0.1111111111111111*(-4.*chem + rhoB*(-2.*ux - 1.*ux*ux - 1.*uy*uy - 1.*uz*uz) +
rhoA*(2.*ux + ux*ux + uy*uy + uz*uz)) + 0.3333333333333333*((-1.*rhoA + rhoB)*ux*ux +
chem*(4.*ux + 2.*ux*ux + 2.*uy*uy + 2.*uz*uz)));
feq3 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-uy*uy + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*uz)) -
0.125*(Fx*ux + Fy*(-1. + uy) + Fz*uz)*(-0.2222222222222222 - 1.*uy*uy +
0.3333333333333333*(ux*ux - 2.*uy + uy*uy + uz*uz)) - 0.0625*(ny - nx*ux - ny*uy - nz*uz)*
(2*chem*uy*uy - 0.3333333333333333*((-rhoA + rhoB)*uy*uy + 2*chem*(ux*ux - 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*uz)));
feq4 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-uy*uy + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*uz)) -
0.125*(Fy + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*uy*uy +
0.3333333333333333*(ux*ux + 2.*uy + uy*uy + uz*uz)) - 0.0625*(ny + nx*ux + ny*uy + nz*uz)*
(-2.*chem*uy*uy + 0.1111111111111111*(-4.*chem + rhoB*(-1.*ux*ux - 2.*uy - 1.*uy*uy - 1.*uz*uz) +
rhoA*(ux*ux + 2.*uy + uy*uy + uz*uz)) + 0.3333333333333333*((-1.*rhoA + rhoB)*uy*uy +
chem*(2.*ux*ux + 4.*uy + 2.*uy*uy + 2.*uz*uz)));
feq5 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-uz*uz + 0.3333333333333333*(ux*ux + uy*uy + (-2 + uz)*uz)) -
0.125*(Fx*ux + Fy*uy + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*uz*uz +
0.3333333333333333*(ux*ux + uy*uy + (-2. + uz)*uz)) - 0.0625*(nx*ux + ny*uy + nz*(-1. + uz))*
(-2.*chem*uz*uz + 0.1111111111111111*(-4.*chem + rhoB*(-1.*ux*ux - 1.*uy*uy + (2. - 1.*uz)*uz) +
rhoA*(ux*ux + uy*uy + (-2. + uz)*uz)) + 0.3333333333333333*((-1.*rhoA + rhoB)*uz*uz +
chem*(2.*ux*ux + 2.*uy*uy + uz*(-4. + 2.*uz))));
feq6 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-uz*uz + 0.3333333333333333*(ux*ux + uy*uy + uz*(2 + uz))) -
0.125*(Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*uz*uz +
0.3333333333333333*(ux*ux + uy*uy + uz*(2. + uz))) - 0.0625*(nz + nx*ux + ny*uy + nz*uz)*
(-2.*chem*uz*uz + 0.1111111111111111*(-4.*chem + rhoB*(-1.*ux*ux - 1.*uy*uy + (-2. - 1.*uz)*uz) +
rhoA*(ux*ux + uy*uy + uz*(2. + uz))) + 0.3333333333333333*((-1.*rhoA + rhoB)*uz*uz +
chem*(2.*ux*ux + 2.*uy*uy + uz*(4. + 2.*uz))));
feq7 = 0.027777777777777776*p - 0.041666666666666664*rho0*
(-(ux + uy)*(ux + uy) + 0.3333333333333333*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) -
0.0625*(Fx*(-1. + ux) + Fy*(-1. + uy) + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux - 2.*ux*uy - 1.*uy*uy +
0.3333333333333333*(-2.*ux + ux*ux - 2.*uy + uy*uy + uz*uz)) - 0.03125*(nx + ny - nx*ux - ny*uy - nz*uz)*
(2*chem*(ux + uy)*(ux + uy) + 0.3333333333333333*((rhoA - rhoB)*(ux + uy)*(ux + uy) - 2*chem*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)));
feq8 = 0.027777777777777776*p - 0.041666666666666664*rho0*
(-(ux + uy)*(ux + uy) + 0.3333333333333333*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) -
0.0625*(Fx + Fy + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux - 2.*ux*uy - 1.*uy*uy +
0.3333333333333333*(2.*ux + ux*ux + 2.*uy + uy*uy + uz*uz)) - 0.03125*(-(nx*(1 + ux)) - ny*(1 + uy) - nz*uz)*
(2*chem*(ux + uy)*(ux + uy) - 0.3333333333333333*(-((rhoA - rhoB)*(ux + uy)*(ux + uy)) +
2*chem*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) + 0.1111111111111111*
(4*chem - (rhoA - rhoB)*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)));
feq9 = 0.027777777777777776*p - 0.041666666666666664*rho0*
(-(ux - uy)*(ux - uy) + 0.3333333333333333*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) -
0.0625*(Fy + Fx*(-1. + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux + 2.*ux*uy - 1.*uy*uy +
0.3333333333333333*(-2.*ux + ux*ux + 2.*uy + uy*uy + uz*uz)) - 0.03125*(nx - nx*ux - ny*(1 + uy) - nz*uz)*
(2*chem*(ux - uy)*(ux - uy) - 0.3333333333333333*(-((rhoA - rhoB)*(ux - uy)*(ux - uy)) +
2*chem*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) + 0.1111111111111111*
(4*chem - (rhoA - rhoB)*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)));
feq10 = 0.027777777777777776*p - 0.041666666666666664*rho0*
(-(ux - uy)*(ux - uy) + 0.3333333333333333*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) -
0.0625*(Fx*(1 + ux) + Fy*(-1. + uy) + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux + 2.*ux*uy - 1.*uy*uy +
0.3333333333333333*(2.*ux + ux*ux - 2.*uy + uy*uy + uz*uz)) - 0.03125*(ny - nx*(1 + ux) - ny*uy - nz*uz)*
(2*chem*(ux - uy)*(ux - uy) - 0.3333333333333333*(-((rhoA - rhoB)*(ux - uy)*(ux - uy)) +
2*chem*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) + 0.1111111111111111*
(4*chem - (rhoA - rhoB)*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)));
feq11 = 0.027777777777777776*p - 0.041666666666666664*rho0*
(-(ux + uz)*(ux + uz) + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) -
0.0625*(Fx*(-1. + ux) + Fy*uy + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*ux*ux - 2.*ux*uz - 1.*uz*uz +
0.3333333333333333*(-2.*ux + ux*ux + uy*uy + (-2. + uz)*uz)) - 0.03125*(nx + nz - nx*ux - ny*uy - nz*uz)*
(2*chem*(ux + uz)*(ux + uz) + 0.3333333333333333*((rhoA - rhoB)*(ux + uz)*(ux + uz) - 2*chem*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)));
feq12 = 0.027777777777777776*p - 0.041666666666666664*rho0*
(-(ux + uz)*(ux + uz) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*(2 + uz))) -
0.0625*(Fx + Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux - 2.*ux*uz - 1.*uz*uz +
0.3333333333333333*(2.*ux + ux*ux + uy*uy + uz*(2. + uz))) - 0.03125*(-(nx*(1 + ux)) - ny*uy - nz*(1 + uz))*
(2*chem*(ux + uz)*(ux + uz) - 0.3333333333333333*(-((rhoA - rhoB)*(ux + uz)*(ux + uz)) +
2*chem*(2*ux + ux*ux + uy*uy + uz*(2 + uz))) + 0.1111111111111111*
(4*chem - (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + uz*(2 + uz))));
feq13 = 0.027777777777777776*p - 0.041666666666666664*rho0*
(-(ux - uz)*(ux - uz) + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) -
0.0625*(Fz + Fx*(-1. + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux + 2.*ux*uz - 1.*uz*uz +
0.3333333333333333*(-2.*ux + ux*ux + uy*uy + uz*(2. + uz))) - 0.03125*(nx - nx*ux - ny*uy - nz*(1 + uz))*
(2*chem*(ux - uz)*(ux - uz) - 0.3333333333333333*(-((rhoA - rhoB)*(ux - uz)*(ux - uz)) +
2*chem*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) + 0.1111111111111111*
(4*chem - (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))));
feq14 = 0.027777777777777776*p - 0.041666666666666664*rho0*
(-(ux - uz)*(ux - uz) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) -
0.0625*(Fx*(1 + ux) + Fy*uy + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*ux*ux + 2.*ux*uz - 1.*uz*uz +
0.3333333333333333*(2.*ux + ux*ux + uy*uy + (-2. + uz)*uz)) - 0.03125*(nz - nx*(1 + ux) - ny*uy - nz*uz)*
(2*chem*(ux - uz)*(ux - uz) - 0.3333333333333333*(-((rhoA - rhoB)*(ux - uz)*(ux - uz)) +
2*chem*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) + 0.1111111111111111*
(4*chem - (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)));
feq15 = 0.027777777777777776*p - 0.041666666666666664*rho0*
(-(uy + uz)*(uy + uz) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)) -
0.0625*(Fx*ux + Fy*(-1. + uy) + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*uy*uy - 2.*uy*uz - 1.*uz*uz +
0.3333333333333333*(ux*ux - 2.*uy + uy*uy + (-2. + uz)*uz)) - 0.03125*(ny + nz - nx*ux - ny*uy - nz*uz)*
(2*chem*(uy + uz)*(uy + uz) + 0.3333333333333333*((rhoA - rhoB)*(uy + uz)*(uy + uz) - 2*chem*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)));
feq16 = 0.027777777777777776*p - 0.041666666666666664*rho0*
(-(uy + uz)*(uy + uz) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))) -
0.0625*(Fy + Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*uy*uy - 2.*uy*uz - 1.*uz*uz +
0.3333333333333333*(ux*ux + 2.*uy + uy*uy + uz*(2. + uz))) - 0.03125*(-(nx*ux) - ny*(1 + uy) - nz*(1 + uz))*
(2*chem*(uy + uz)*(uy + uz) - 0.3333333333333333*(-((rhoA - rhoB)*(uy + uz)*(uy + uz)) +
2*chem*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))) + 0.1111111111111111*
(4*chem - (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))));
feq17 = 0.027777777777777776*p - 0.041666666666666664*rho0*
(-(uy - uz)*(uy - uz) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))) -
0.0625*(Fz + Fx*ux + Fy*(-1. + uy) + Fz*uz)*(-0.2222222222222222 - 1.*uy*uy + 2.*uy*uz - 1.*uz*uz +
0.3333333333333333*(ux*ux - 2.*uy + uy*uy + uz*(2. + uz))) - 0.03125*(ny - nx*ux - ny*uy - nz*(1 + uz))*
(2*chem*(uy - uz)*(uy - uz) - 0.3333333333333333*(-((rhoA - rhoB)*(uy - uz)*(uy - uz)) +
2*chem*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))) + 0.1111111111111111*
(4*chem - (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))));
feq18 = 0.027777777777777776*p - 0.041666666666666664*rho0*
(-(uy - uz)*(uy - uz) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) -
0.0625*(Fx*ux + Fy*(1 + uy) + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*uy*uy + 2.*uy*uz - 1.*uz*uz +
0.3333333333333333*(ux*ux + 2.*uy + uy*uy + (-2. + uz)*uz)) - 0.03125*(nz - nx*ux - ny*(1 + uy) - nz*uz)*
(2*chem*(uy - uz)*(uy - uz) - 0.3333333333333333*(-((rhoA - rhoB)*(uy - uz)*(uy - uz)) +
2*chem*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) + 0.1111111111111111*
(4*chem - (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)));
//------------------------------------------------- BCK collison ------------------------------------------------------------//
// q=0
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[n] = m0 - (m0-feq0)/tau + 0.25*(2*(Fx*ux + Fy*uy + Fz*uz)*(-0.6666666666666666 + ux*ux + uy*uy + uz*uz) +
(mgx*ux + mgy*uy + mgz*uz)*(2*chem*(ux*ux + uy*uy + uz*uz) +
0.3333333333333333*(-4*chem + (rhoA - rhoB)*(ux*ux + uy*uy + uz*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 1
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[nr2] = m1 - (m1-feq1)/tau + 0.125*(2*(Fx*(-1 + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - ux*ux +
0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*uz)) +
(mgx*(-1 + ux) + mgy*uy + mgz*uz)*(-2*chem*(ux*ux) +
0.3333333333333333*((-rhoA + rhoB)*(ux*ux) + 2*chem*(-2*ux + ux*ux + uy*uy + uz*uz)) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q=2
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[nr1] = m2 - (m2-feq2)/tau + 0.125*(2*(Fx + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - ux*ux +
0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*uz)) +
(mgx + mgx*ux + mgy*uy + mgz*uz)*(-2*chem*(ux*ux) +
0.3333333333333333*((-rhoA + rhoB)*(ux*ux) + 2*chem*(2*ux + ux*ux + uy*uy + uz*uz)) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + uz*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 3
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[nr4] = m3 - (m3-feq3)/tau + 0.125*(2*(Fx*ux + Fy*(-1 + uy) + Fz*uz)*(-0.2222222222222222 - uy*uy +
0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*uz)) +
(mgx*ux + mgy*(-1 + uy) + mgz*uz)*(-2*chem*(uy*uy) +
0.3333333333333333*((-rhoA + rhoB)*(uy*uy) + 2*chem*(ux*ux - 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 4
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[nr3] = m4 - (m4-feq4)/tau + 0.125*(2*(Fy + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - uy*uy +
0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*uz)) +
(mgy + mgx*ux + mgy*uy + mgz*uz)*(-2*chem*(uy*uy) +
0.3333333333333333*((-rhoA + rhoB)*(uy*uy) + 2*chem*(ux*ux + 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + uz*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 5
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[nr6] = m5 - (m5-feq5)/tau + 0.125*(2*(Fx*ux + Fy*uy + Fz*(-1 + uz))*(-0.2222222222222222 - uz*uz +
0.3333333333333333*(ux*ux + uy*uy + (-2 + uz)*uz)) +
(mgx*ux + mgy*uy + mgz*(-1 + uz))*(-2*chem*(uz*uz) +
0.3333333333333333*((-rhoA + rhoB)*(uz*uz) + 2*chem*(ux*ux + uy*uy + (-2 + uz)*uz)) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + uy*uy + (-2 + uz)*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 6
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[nr5] = m6 - (m6-feq6)/tau + 0.125*(2*(Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - uz*uz +
0.3333333333333333*(ux*ux + uy*uy + uz*(2 + uz))) +
(mgz + mgx*ux + mgy*uy + mgz*uz)*(-2*chem*(uz*uz) +
0.3333333333333333*((-rhoA + rhoB)*(uz*uz) + 2*chem*(ux*ux + uy*uy + uz*(2 + uz))) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + uy*uy + uz*(2 + uz)))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 7
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[nr8] = m7 - (m7-feq7)/tau + 0.0625*(-2*(Fx*(-1 + ux) + Fy*(-1 + uy) + Fz*uz)*
(0.2222222222222222 + (ux + uy)*(ux + uy) -
0.3333333333333333*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
(mgx*(-1 + ux) + mgy*(-1 + uy) + mgz*uz)*
(-2*chem*((ux + uy)*(ux + uy)) + 0.3333333333333333*
(-((rhoA - rhoB)*((ux + uy)*(ux + uy))) + 2*chem*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 8
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[nr7] = m8 - (m8-feq8)/tau + 0.0625*(2*(Fx + Fy + Fx*ux + Fy*uy + Fz*uz)*
(-0.2222222222222222 - (ux + uy)*(ux + uy) +
0.3333333333333333*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
(mgx + mgy + mgx*ux + mgy*uy + mgz*uz)*
(-2*chem*((ux + uy)*(ux + uy)) + 0.3333333333333333*
(-((rhoA - rhoB)*((ux + uy)*(ux + uy))) + 2*chem*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 9
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[nr10] = m9 - (m9-feq9)/tau + 0.0625*(2*(Fy + Fx*(-1 + ux) + Fy*uy + Fz*uz)*
(-0.2222222222222222 - (ux - uy)*(ux - uy) +
0.3333333333333333*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
(mgy + mgx*(-1 + ux) + mgy*uy + mgz*uz)*
(-2*chem*((ux - uy)*(ux - uy)) + 0.3333333333333333*
(-((rhoA - rhoB)*((ux - uy)*(ux - uy))) + 2*chem*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 10
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[nr9] = m10 - (m10-feq10)/tau + 0.0625*(2*(Fx*(1 + ux) + Fy*(-1 + uy) + Fz*uz)*
(-0.2222222222222222 - (ux - uy)*(ux - uy) +
0.3333333333333333*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
(mgx*(1 + ux) + mgy*(-1 + uy) + mgz*uz)*
(-2*chem*((ux - uy)*(ux - uy)) + 0.3333333333333333*
(-((rhoA - rhoB)*((ux - uy)*(ux - uy))) + 2*chem*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 11
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[nr12] = m11 - (m11-feq11)/tau + 0.0625*(-2*(Fx*(-1 + ux) + Fy*uy + Fz*(-1 + uz))*
(0.2222222222222222 + (ux + uz)*(ux + uz) -
0.3333333333333333*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
(mgx*(-1 + ux) + mgy*uy + mgz*(-1 + uz))*
(-2*chem*((ux + uz)*(ux + uz)) + 0.3333333333333333*
(-((rhoA - rhoB)*((ux + uz)*(ux + uz))) + 2*chem*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 12
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[nr11] = m12 - (m12-feq12)/tau + 0.0625*(2*(Fx + Fz + Fx*ux + Fy*uy + Fz*uz)*
(-0.2222222222222222 - (ux + uz)*(ux + uz) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*(2 + uz)))
+ (mgx + mgz + mgx*ux + mgy*uy + mgz*uz)*
(-2*chem*((ux + uz)*(ux + uz)) + 0.3333333333333333*
(-((rhoA - rhoB)*((ux + uz)*(ux + uz))) + 2*chem*(2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + uz*(2 + uz)))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 13
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[nr14] = m13 - (m13-feq13)/tau + 0.0625*(2*(Fz + Fx*(-1 + ux) + Fy*uy + Fz*uz)*
(-0.2222222222222222 - (ux - uz)*(ux - uz) +
0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
(mgz + mgx*(-1 + ux) + mgy*uy + mgz*uz)*
(-2*chem*((ux - uz)*(ux - uz)) + 0.3333333333333333*
(-((rhoA - rhoB)*((ux - uz)*(ux - uz))) + 2*chem*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*(2 + uz)))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q= 14
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[nr13] = m14 - (m14-feq14)/tau + 0.0625*(2*(Fx*(1 + ux) + Fy*uy + Fz*(-1 + uz))*
(-0.2222222222222222 - (ux - uz)*(ux - uz) +
0.3333333333333333*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
(mgx*(1 + ux) + mgy*uy + mgz*(-1 + uz))*
(-2*chem*((ux - uz)*(ux - uz)) + 0.3333333333333333*
(-((rhoA - rhoB)*((ux - uz)*(ux - uz))) + 2*chem*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 15
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[nr16] = m15 - (m15-feq15)/tau + 0.0625*(-2*(Fx*ux + Fy*(-1 + uy) + Fz*(-1 + uz))*
(0.2222222222222222 + (uy + uz)*(uy + uz) - 0.3333333333333333*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz))
+ (mgx*ux + mgy*(-1 + uy) + mgz*(-1 + uz))*
(-2*chem*((uy + uz)*(uy + uz)) + 0.3333333333333333*
(-((rhoA - rhoB)*((uy + uz)*(uy + uz))) + 2*chem*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 16
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[nr15] = m16 - (m16-feq16)/tau + 0.0625*(2*(Fy + Fz + Fx*ux + Fy*uy + Fz*uz)*
(-0.2222222222222222 - (uy + uz)*(uy + uz) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*(2 + uz)))
+ (mgy + mgz + mgx*ux + mgy*uy + mgz*uz)*
(-2*chem*((uy + uz)*(uy + uz)) + 0.3333333333333333*
(-((rhoA - rhoB)*((uy + uz)*(uy + uz))) + 2*chem*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + uz*(2 + uz)))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 17
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[nr18] = m17 - (m17-feq17)/tau + 0.0625*(2*(Fz + Fx*ux + Fy*(-1 + uy) + Fz*uz)*
(-0.2222222222222222 - (uy - uz)*(uy - uz) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*(2 + uz)))
+ (mgz + mgx*ux + mgy*(-1 + uy) + mgz*uz)*
(-2*chem*((uy - uz)*(uy - uz)) + 0.3333333333333333*
(-((rhoA - rhoB)*((uy - uz)*(uy - uz))) + 2*chem*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*(2 + uz)))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 18
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[nr17] = m18 - (m18-feq18)/tau + 0.0625*(2*(Fx*ux + Fy*(1 + uy) + Fz*(-1 + uz))*
(-0.2222222222222222 - (uy - uz)*(uy - uz) +
0.3333333333333333*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) +
(mgx*ux + mgy*(1 + uy) + mgz*(-1 + uz))*
(-2*chem*((uy - uz)*(uy - uz)) + 0.3333333333333333*
(-((rhoA - rhoB)*((uy - uz)*(uy - uz))) + 2*chem*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
//----------------------------------------------------------------------------------------------------------------------------------------//
//Update velocity on device
build pass; ongoing model validation
2021-01-31 21:26:03 -05:00
Vel[0*Np+n] = ux;
Vel[1*Np+n] = uy;
Vel[2*Np+n] = uz;
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
//Update pressure on device
Pressure[n] = p;
//Update chemical potential on device
mu_phi[n] = chem;
//Update color gradient on device
ColorGrad[0*Np+n] = nx;
ColorGrad[1*Np+n] = ny;
ColorGrad[2*Np+n] = nz;
}
}
clean up arguments for Free Lee
2021-03-20 13:12:49 -04:00
extern "C" void ScaLBL_D3Q19_AAeven_FreeLeeModel(int *Map, double *dist, double *Den, double *Phi, double *mu_phi, double *Vel, double *Pressure, double *ColorGrad,
double rhoA, double rhoB, double tauA, double tauB, double kappa, double beta, double W, double Fx, double Fy, double Fz,
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
int strideY, int strideZ, int start, int finish, int Np){
D3Q7 Lee model (looks anisotropic)
2021-03-18 14:51:26 -04:00
int nn,nn2x,ijk;
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
//int nr1,nr2,nr3,nr4,nr5,nr6,nr7,nr8,nr9,nr10,nr11,nr12,nr13,nr14,nr15,nr16,nr17,nr18;
double ux,uy,uz;//fluid velocity
double p;//pressure
double chem;//chemical potential
double phi; //phase field
double rho0;//fluid density
// distribution functions
template for freelee model
2020-09-25 16:18:54 -04:00
double m1,m2,m4,m6,m8,m9,m10,m11,m12,m13,m14,m15,m16,m17,m18;
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
double m0,m3,m5,m7;
double mm1,mm2,mm4,mm6,mm8,mm9,mm10,mm11,mm12,mm13,mm14,mm15,mm16,mm17,mm18;
double mm3,mm5,mm7;
double feq0,feq1,feq2,feq3,feq4,feq5,feq6,feq7,feq8,feq9,feq10,feq11,feq12,feq13,feq14,feq15,feq16,feq17,feq18;
double nx,ny,nz;//normal color gradient
double mgx,mgy,mgz;//mixed gradient reaching secondary neighbor
//double f0,f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18;
D3Q7 Lee model (looks anisotropic)
2021-03-18 14:51:26 -04:00
//double h0,h1,h2,h3,h4,h5,h6;//distributions for LB phase field
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
double tau;//position dependent LB relaxation time for fluid
D3Q7 Lee model (looks anisotropic)
2021-03-18 14:51:26 -04:00
//double C,theta;
//double M = 2.0/9.0*(tauM-0.5);//diffusivity (or mobility) for the phase field D3Q7
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
for (int n=start; n<finish; n++){
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
rho0 = Den[n];//load density
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// Get the 1D index based on regular data layout
ijk = Map[n];
corrected the phase field loading and removed a wrong factor in mixed-grad
2021-02-15 18:33:07 -05:00
phi = Phi[ijk];// load phase field
fix error where parameter is used before being loaded
2021-02-26 01:18:21 -05:00
// local relaxation time
tau=tauA + 0.5*(1.0-phi)*(tauB-tauA);
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// COMPUTE THE COLOR GRADIENT
//........................................................................
//.................Read Phase Indicator Values............................
//........................................................................
nn = ijk-1; // neighbor index (get convention)
m1 = Phi[nn]; // get neighbor for phi - 1
//........................................................................
nn = ijk+1; // neighbor index (get convention)
m2 = Phi[nn]; // get neighbor for phi - 2
//........................................................................
nn = ijk-strideY; // neighbor index (get convention)
m3 = Phi[nn]; // get neighbor for phi - 3
//........................................................................
nn = ijk+strideY; // neighbor index (get convention)
m4 = Phi[nn]; // get neighbor for phi - 4
//........................................................................
nn = ijk-strideZ; // neighbor index (get convention)
m5 = Phi[nn]; // get neighbor for phi - 5
//........................................................................
nn = ijk+strideZ; // neighbor index (get convention)
m6 = Phi[nn]; // get neighbor for phi - 6
//........................................................................
nn = ijk-strideY-1; // neighbor index (get convention)
m7 = Phi[nn]; // get neighbor for phi - 7
//........................................................................
nn = ijk+strideY+1; // neighbor index (get convention)
m8 = Phi[nn]; // get neighbor for phi - 8
//........................................................................
nn = ijk+strideY-1; // neighbor index (get convention)
m9 = Phi[nn]; // get neighbor for phi - 9
//........................................................................
nn = ijk-strideY+1; // neighbor index (get convention)
m10 = Phi[nn]; // get neighbor for phi - 10
//........................................................................
nn = ijk-strideZ-1; // neighbor index (get convention)
m11 = Phi[nn]; // get neighbor for phi - 11
//........................................................................
nn = ijk+strideZ+1; // neighbor index (get convention)
m12 = Phi[nn]; // get neighbor for phi - 12
//........................................................................
nn = ijk+strideZ-1; // neighbor index (get convention)
m13 = Phi[nn]; // get neighbor for phi - 13
//........................................................................
nn = ijk-strideZ+1; // neighbor index (get convention)
m14 = Phi[nn]; // get neighbor for phi - 14
//........................................................................
nn = ijk-strideZ-strideY; // neighbor index (get convention)
m15 = Phi[nn]; // get neighbor for phi - 15
//........................................................................
nn = ijk+strideZ+strideY; // neighbor index (get convention)
m16 = Phi[nn]; // get neighbor for phi - 16
//........................................................................
nn = ijk+strideZ-strideY; // neighbor index (get convention)
m17 = Phi[nn]; // get neighbor for phi - 17
//........................................................................
nn = ijk-strideZ+strideY; // neighbor index (get convention)
m18 = Phi[nn]; // get neighbor for phi - 18
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// compute mixed difference (Eq.30, A.Fukhari et al. JCP 315(2016) 434-457)
//........................................................................
nn2x = ijk-2; // neighbor index (get convention)
mm1 = Phi[nn2x]; // get neighbor for phi - 1
mm1 = 0.25*(-mm1+5.0*m1-3.0*phi-m2);
//........................................................................
nn2x = ijk+2; // neighbor index (get convention)
mm2 = Phi[nn2x]; // get neighbor for phi - 2
mm2 = 0.25*(-mm2+5.0*m2-3.0*phi-m1);
//........................................................................
nn2x = ijk-strideY*2; // neighbor index (get convention)
mm3 = Phi[nn2x]; // get neighbor for phi - 3
mm3 = 0.25*(-mm3+5.0*m3-3.0*phi-m4);
//........................................................................
nn2x = ijk+strideY*2; // neighbor index (get convention)
mm4 = Phi[nn2x]; // get neighbor for phi - 4
mm4 = 0.25*(-mm4+5.0*m4-3.0*phi-m3);
//........................................................................
nn2x = ijk-strideZ*2; // neighbor index (get convention)
mm5 = Phi[nn2x]; // get neighbor for phi - 5
mm5 = 0.25*(-mm5+5.0*m5-3.0*phi-m6);
//........................................................................
nn2x = ijk+strideZ*2; // neighbor index (get convention)
mm6 = Phi[nn2x]; // get neighbor for phi - 6
mm6 = 0.25*(-mm6+5.0*m6-3.0*phi-m5);
//........................................................................
nn2x = ijk-strideY*2-2; // neighbor index (get convention)
mm7 = Phi[nn2x]; // get neighbor for phi - 7
mm7 = 0.25*(-mm7+5.0*m7-3.0*phi-m8);
//........................................................................
nn2x = ijk+strideY*2+2; // neighbor index (get convention)
mm8 = Phi[nn2x]; // get neighbor for phi - 8
mm8 = 0.25*(-mm8+5.0*m8-3.0*phi-m7);
//........................................................................
nn2x = ijk+strideY*2-2; // neighbor index (get convention)
mm9 = Phi[nn2x]; // get neighbor for phi - 9
mm9 = 0.25*(-mm9+5.0*m9-3.0*phi-m10);
//........................................................................
nn2x = ijk-strideY*2+2; // neighbor index (get convention)
mm10 = Phi[nn2x]; // get neighbor for phi - 10
mm10 = 0.25*(-mm10+5.0*m10-3.0*phi-m9);
//........................................................................
nn2x = ijk-strideZ*2-2; // neighbor index (get convention)
mm11 = Phi[nn2x]; // get neighbor for phi - 11
mm11 = 0.25*(-mm11+5.0*m11-3.0*phi-m12);
//........................................................................
nn2x = ijk+strideZ*2+2; // neighbor index (get convention)
mm12 = Phi[nn2x]; // get neighbor for phi - 12
mm12 = 0.25*(-mm12+5.0*m12-3.0*phi-m11);
//........................................................................
nn2x = ijk+strideZ*2-2; // neighbor index (get convention)
mm13 = Phi[nn2x]; // get neighbor for phi - 13
mm13 = 0.25*(-mm13+5.0*m13-3.0*phi-m14);
//........................................................................
nn2x = ijk-strideZ*2+2; // neighbor index (get convention)
mm14 = Phi[nn2x]; // get neighbor for phi - 14
mm14 = 0.25*(-mm14+5.0*m14-3.0*phi-m13);
//........................................................................
nn2x = ijk-strideZ*2-strideY*2; // neighbor index (get convention)
mm15 = Phi[nn2x]; // get neighbor for phi - 15
mm15 = 0.25*(-mm15+5.0*m15-3.0*phi-m16);
//........................................................................
nn2x = ijk+strideZ*2+strideY*2; // neighbor index (get convention)
mm16 = Phi[nn2x]; // get neighbor for phi - 16
mm16 = 0.25*(-mm16+5.0*m16-3.0*phi-m15);
//........................................................................
nn2x = ijk+strideZ*2-strideY*2; // neighbor index (get convention)
mm17 = Phi[nn2x]; // get neighbor for phi - 17
mm17 = 0.25*(-mm17+5.0*m17-3.0*phi-m18);
//........................................................................
nn2x = ijk-strideZ*2+strideY*2; // neighbor index (get convention)
mm18 = Phi[nn2x]; // get neighbor for phi - 18
mm18 = 0.25*(-mm18+5.0*m18-3.0*phi-m17);
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
//............Compute the Color Gradient...................................
nx = -3.0*1.0/18.0*(m1-m2+0.5*(m7-m8+m9-m10+m11-m12+m13-m14));
ny = -3.0*1.0/18.0*(m3-m4+0.5*(m7-m8-m9+m10+m15-m16+m17-m18));
nz = -3.0*1.0/18.0*(m5-m6+0.5*(m11-m12-m13+m14+m15-m16-m17+m18));
//............Compute the Chemical Potential...............................
chem = 2.0*3.0/18.0*(m1+m2+m3+m4+m5+m6-6*phi+0.5*(m7+m8+m9+m10+m11+m12+m13+m14+m15+m16+m17+m18-12*phi));//intermediate var, i.e. the laplacian
chem = 4.0*beta*phi*(phi+1.0)*(phi-1.0)-kappa*chem;
//............Compute the Mixed Gradient...................................
corrected the phase field loading and removed a wrong factor in mixed-grad
2021-02-15 18:33:07 -05:00
mgx = -3.0*1.0/18.0*(mm1-mm2+0.5*(mm7-mm8+mm9-mm10+mm11-mm12+mm13-mm14));
mgy = -3.0*1.0/18.0*(mm3-mm4+0.5*(mm7-mm8-mm9+mm10+mm15-mm16+mm17-mm18));
mgz = -3.0*1.0/18.0*(mm5-mm6+0.5*(mm11-mm12-mm13+mm14+mm15-mm16-mm17+mm18));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q=0
m0 = dist[n];
// q=1
m1 = dist[2*Np+n];
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q=2
m2 = dist[1*Np+n];
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q=3
m3 = dist[4*Np+n];
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 4
m4 = dist[3*Np+n];
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q=5
m5 = dist[6*Np+n];
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 6
m6 = dist[5*Np+n];
// q=7
m7 = dist[8*Np+n];
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 8
m8 = dist[7*Np+n];
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q=9
m9 = dist[10*Np+n];
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 10
m10 = dist[9*Np+n];
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q=11
m11 = dist[12*Np+n];
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q=12
m12 = dist[11*Np+n];
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q=13
m13 = dist[14*Np+n];
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q=14
m14 = dist[13*Np+n];
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q=15
m15 = dist[16*Np+n];
// q=16
m16 = dist[15*Np+n];
// q=17
m17 = dist[18*Np+n];
// q=18
m18 = dist[17*Np+n];
//compute fluid velocity
add a correcting factor cs2 into velocity equation
2021-02-08 20:31:45 -05:00
ux = 3.0/rho0*(m1-m2+m7-m8+m9-m10+m11-m12+m13-m14+0.5*(chem*nx+Fx)/3.0);
uy = 3.0/rho0*(m3-m4+m7-m8-m9+m10+m15-m16+m17-m18+0.5*(chem*ny+Fy)/3.0);
uz = 3.0/rho0*(m5-m6+m11-m12-m13+m14+m15-m16-m17+m18+0.5*(chem*nz+Fz)/3.0);
working bubble for FreeLee
2021-03-19 20:54:29 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
//compute pressure
p = (m0+m2+m1+m4+m3+m6+m5+m8+m7+m10+m9+m12+m11+m14+m13+m16+m15+m18+m17)
+0.5*(rhoA-rhoB)/2.0/3.0*(ux*nx+uy*ny+uz*nz);
//compute equilibrium distributions
feq0 = 0.3333333333333333*p - 0.25*(Fx*ux + Fy*uy + Fz*uz)*(-0.6666666666666666 + ux*ux + uy*uy + uz*uz) -
0.16666666666666666*rho0*(ux*ux + uy*uy + uz*uz) - 0.5*(-(nx*ux) - ny*uy - nz*uz)*
(-0.08333333333333333*(rhoA - rhoB)*(ux*ux + uy*uy + uz*uz) + chem*(0.3333333333333333 - 0.5*(ux*ux + uy*uy + uz*uz)));
feq1 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-ux*ux + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*uz)) -
0.125*(Fx*(-1. + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux +
0.3333333333333333*(-2.*ux + ux*ux + uy*uy + uz*uz)) - 0.0625*(nx - nx*ux - ny*uy - nz*uz)*
(2*chem*ux*ux - 0.3333333333333333*((-rhoA + rhoB)*ux*ux + 2*chem*(-2*ux + ux*ux + uy*uy + uz*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*uz)));
feq2 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-ux*ux + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*uz)) -
0.125*(Fx + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux +
0.3333333333333333*(2.*ux + ux*ux + uy*uy + uz*uz)) - 0.0625*(nx + nx*ux + ny*uy + nz*uz)*
(-2.*chem*ux*ux + 0.1111111111111111*(-4.*chem + rhoB*(-2.*ux - 1.*ux*ux - 1.*uy*uy - 1.*uz*uz) +
rhoA*(2.*ux + ux*ux + uy*uy + uz*uz)) + 0.3333333333333333*((-1.*rhoA + rhoB)*ux*ux +
chem*(4.*ux + 2.*ux*ux + 2.*uy*uy + 2.*uz*uz)));
feq3 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-uy*uy + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*uz)) -
0.125*(Fx*ux + Fy*(-1. + uy) + Fz*uz)*(-0.2222222222222222 - 1.*uy*uy +
0.3333333333333333*(ux*ux - 2.*uy + uy*uy + uz*uz)) - 0.0625*(ny - nx*ux - ny*uy - nz*uz)*
(2*chem*uy*uy - 0.3333333333333333*((-rhoA + rhoB)*uy*uy + 2*chem*(ux*ux - 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*uz)));
feq4 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-uy*uy + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*uz)) -
0.125*(Fy + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*uy*uy +
0.3333333333333333*(ux*ux + 2.*uy + uy*uy + uz*uz)) - 0.0625*(ny + nx*ux + ny*uy + nz*uz)*
(-2.*chem*uy*uy + 0.1111111111111111*(-4.*chem + rhoB*(-1.*ux*ux - 2.*uy - 1.*uy*uy - 1.*uz*uz) +
rhoA*(ux*ux + 2.*uy + uy*uy + uz*uz)) + 0.3333333333333333*((-1.*rhoA + rhoB)*uy*uy +
chem*(2.*ux*ux + 4.*uy + 2.*uy*uy + 2.*uz*uz)));
feq5 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-uz*uz + 0.3333333333333333*(ux*ux + uy*uy + (-2 + uz)*uz)) -
0.125*(Fx*ux + Fy*uy + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*uz*uz +
0.3333333333333333*(ux*ux + uy*uy + (-2. + uz)*uz)) - 0.0625*(nx*ux + ny*uy + nz*(-1. + uz))*
(-2.*chem*uz*uz + 0.1111111111111111*(-4.*chem + rhoB*(-1.*ux*ux - 1.*uy*uy + (2. - 1.*uz)*uz) +
rhoA*(ux*ux + uy*uy + (-2. + uz)*uz)) + 0.3333333333333333*((-1.*rhoA + rhoB)*uz*uz +
chem*(2.*ux*ux + 2.*uy*uy + uz*(-4. + 2.*uz))));
feq6 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-uz*uz + 0.3333333333333333*(ux*ux + uy*uy + uz*(2 + uz))) -
0.125*(Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*uz*uz +
0.3333333333333333*(ux*ux + uy*uy + uz*(2. + uz))) - 0.0625*(nz + nx*ux + ny*uy + nz*uz)*
(-2.*chem*uz*uz + 0.1111111111111111*(-4.*chem + rhoB*(-1.*ux*ux - 1.*uy*uy + (-2. - 1.*uz)*uz) +
rhoA*(ux*ux + uy*uy + uz*(2. + uz))) + 0.3333333333333333*((-1.*rhoA + rhoB)*uz*uz +
chem*(2.*ux*ux + 2.*uy*uy + uz*(4. + 2.*uz))));
feq7 = 0.027777777777777776*p - 0.041666666666666664*rho0*
(-(ux + uy)*(ux + uy) + 0.3333333333333333*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) -
0.0625*(Fx*(-1. + ux) + Fy*(-1. + uy) + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux - 2.*ux*uy - 1.*uy*uy +
0.3333333333333333*(-2.*ux + ux*ux - 2.*uy + uy*uy + uz*uz)) - 0.03125*(nx + ny - nx*ux - ny*uy - nz*uz)*
(2*chem*(ux + uy)*(ux + uy) + 0.3333333333333333*((rhoA - rhoB)*(ux + uy)*(ux + uy) - 2*chem*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)));
feq8 = 0.027777777777777776*p - 0.041666666666666664*rho0*
(-(ux + uy)*(ux + uy) + 0.3333333333333333*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) -
0.0625*(Fx + Fy + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux - 2.*ux*uy - 1.*uy*uy +
0.3333333333333333*(2.*ux + ux*ux + 2.*uy + uy*uy + uz*uz)) - 0.03125*(-(nx*(1 + ux)) - ny*(1 + uy) - nz*uz)*
(2*chem*(ux + uy)*(ux + uy) - 0.3333333333333333*(-((rhoA - rhoB)*(ux + uy)*(ux + uy)) +
2*chem*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) + 0.1111111111111111*
(4*chem - (rhoA - rhoB)*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)));
feq9 = 0.027777777777777776*p - 0.041666666666666664*rho0*
(-(ux - uy)*(ux - uy) + 0.3333333333333333*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) -
0.0625*(Fy + Fx*(-1. + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux + 2.*ux*uy - 1.*uy*uy +
0.3333333333333333*(-2.*ux + ux*ux + 2.*uy + uy*uy + uz*uz)) - 0.03125*(nx - nx*ux - ny*(1 + uy) - nz*uz)*
(2*chem*(ux - uy)*(ux - uy) - 0.3333333333333333*(-((rhoA - rhoB)*(ux - uy)*(ux - uy)) +
2*chem*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) + 0.1111111111111111*
(4*chem - (rhoA - rhoB)*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)));
feq10 = 0.027777777777777776*p - 0.041666666666666664*rho0*
(-(ux - uy)*(ux - uy) + 0.3333333333333333*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) -
0.0625*(Fx*(1 + ux) + Fy*(-1. + uy) + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux + 2.*ux*uy - 1.*uy*uy +
0.3333333333333333*(2.*ux + ux*ux - 2.*uy + uy*uy + uz*uz)) - 0.03125*(ny - nx*(1 + ux) - ny*uy - nz*uz)*
(2*chem*(ux - uy)*(ux - uy) - 0.3333333333333333*(-((rhoA - rhoB)*(ux - uy)*(ux - uy)) +
2*chem*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) + 0.1111111111111111*
(4*chem - (rhoA - rhoB)*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)));
feq11 = 0.027777777777777776*p - 0.041666666666666664*rho0*
(-(ux + uz)*(ux + uz) + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) -
0.0625*(Fx*(-1. + ux) + Fy*uy + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*ux*ux - 2.*ux*uz - 1.*uz*uz +
0.3333333333333333*(-2.*ux + ux*ux + uy*uy + (-2. + uz)*uz)) - 0.03125*(nx + nz - nx*ux - ny*uy - nz*uz)*
(2*chem*(ux + uz)*(ux + uz) + 0.3333333333333333*((rhoA - rhoB)*(ux + uz)*(ux + uz) - 2*chem*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)));
feq12 = 0.027777777777777776*p - 0.041666666666666664*rho0*
(-(ux + uz)*(ux + uz) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*(2 + uz))) -
0.0625*(Fx + Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux - 2.*ux*uz - 1.*uz*uz +
0.3333333333333333*(2.*ux + ux*ux + uy*uy + uz*(2. + uz))) - 0.03125*(-(nx*(1 + ux)) - ny*uy - nz*(1 + uz))*
(2*chem*(ux + uz)*(ux + uz) - 0.3333333333333333*(-((rhoA - rhoB)*(ux + uz)*(ux + uz)) +
2*chem*(2*ux + ux*ux + uy*uy + uz*(2 + uz))) + 0.1111111111111111*
(4*chem - (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + uz*(2 + uz))));
feq13 = 0.027777777777777776*p - 0.041666666666666664*rho0*
(-(ux - uz)*(ux - uz) + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) -
0.0625*(Fz + Fx*(-1. + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux + 2.*ux*uz - 1.*uz*uz +
0.3333333333333333*(-2.*ux + ux*ux + uy*uy + uz*(2. + uz))) - 0.03125*(nx - nx*ux - ny*uy - nz*(1 + uz))*
(2*chem*(ux - uz)*(ux - uz) - 0.3333333333333333*(-((rhoA - rhoB)*(ux - uz)*(ux - uz)) +
2*chem*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) + 0.1111111111111111*
(4*chem - (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))));
feq14 = 0.027777777777777776*p - 0.041666666666666664*rho0*
(-(ux - uz)*(ux - uz) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) -
0.0625*(Fx*(1 + ux) + Fy*uy + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*ux*ux + 2.*ux*uz - 1.*uz*uz +
0.3333333333333333*(2.*ux + ux*ux + uy*uy + (-2. + uz)*uz)) - 0.03125*(nz - nx*(1 + ux) - ny*uy - nz*uz)*
(2*chem*(ux - uz)*(ux - uz) - 0.3333333333333333*(-((rhoA - rhoB)*(ux - uz)*(ux - uz)) +
2*chem*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) + 0.1111111111111111*
(4*chem - (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)));
feq15 = 0.027777777777777776*p - 0.041666666666666664*rho0*
(-(uy + uz)*(uy + uz) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)) -
0.0625*(Fx*ux + Fy*(-1. + uy) + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*uy*uy - 2.*uy*uz - 1.*uz*uz +
0.3333333333333333*(ux*ux - 2.*uy + uy*uy + (-2. + uz)*uz)) - 0.03125*(ny + nz - nx*ux - ny*uy - nz*uz)*
(2*chem*(uy + uz)*(uy + uz) + 0.3333333333333333*((rhoA - rhoB)*(uy + uz)*(uy + uz) - 2*chem*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)));
feq16 = 0.027777777777777776*p - 0.041666666666666664*rho0*
(-(uy + uz)*(uy + uz) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))) -
0.0625*(Fy + Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*uy*uy - 2.*uy*uz - 1.*uz*uz +
0.3333333333333333*(ux*ux + 2.*uy + uy*uy + uz*(2. + uz))) - 0.03125*(-(nx*ux) - ny*(1 + uy) - nz*(1 + uz))*
(2*chem*(uy + uz)*(uy + uz) - 0.3333333333333333*(-((rhoA - rhoB)*(uy + uz)*(uy + uz)) +
2*chem*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))) + 0.1111111111111111*
(4*chem - (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))));
feq17 = 0.027777777777777776*p - 0.041666666666666664*rho0*
(-(uy - uz)*(uy - uz) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))) -
0.0625*(Fz + Fx*ux + Fy*(-1. + uy) + Fz*uz)*(-0.2222222222222222 - 1.*uy*uy + 2.*uy*uz - 1.*uz*uz +
0.3333333333333333*(ux*ux - 2.*uy + uy*uy + uz*(2. + uz))) - 0.03125*(ny - nx*ux - ny*uy - nz*(1 + uz))*
(2*chem*(uy - uz)*(uy - uz) - 0.3333333333333333*(-((rhoA - rhoB)*(uy - uz)*(uy - uz)) +
2*chem*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))) + 0.1111111111111111*
(4*chem - (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))));
feq18 = 0.027777777777777776*p - 0.041666666666666664*rho0*
(-(uy - uz)*(uy - uz) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) -
0.0625*(Fx*ux + Fy*(1 + uy) + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*uy*uy + 2.*uy*uz - 1.*uz*uz +
0.3333333333333333*(ux*ux + 2.*uy + uy*uy + (-2. + uz)*uz)) - 0.03125*(nz - nx*ux - ny*(1 + uy) - nz*uz)*
(2*chem*(uy - uz)*(uy - uz) - 0.3333333333333333*(-((rhoA - rhoB)*(uy - uz)*(uy - uz)) +
2*chem*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) + 0.1111111111111111*
(4*chem - (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)));
//------------------------------------------------- BCK collison ------------------------------------------------------------//
// q=0
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[n] = m0 - (m0-feq0)/tau + 0.25*(2*(Fx*ux + Fy*uy + Fz*uz)*(-0.6666666666666666 + ux*ux + uy*uy + uz*uz) +
(mgx*ux + mgy*uy + mgz*uz)*(2*chem*(ux*ux + uy*uy + uz*uz) +
0.3333333333333333*(-4*chem + (rhoA - rhoB)*(ux*ux + uy*uy + uz*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 1
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[1*Np+n] = m1 - (m1-feq1)/tau + 0.125*(2*(Fx*(-1 + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - ux*ux +
0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*uz)) +
(mgx*(-1 + ux) + mgy*uy + mgz*uz)*(-2*chem*(ux*ux) +
0.3333333333333333*((-rhoA + rhoB)*(ux*ux) + 2*chem*(-2*ux + ux*ux + uy*uy + uz*uz)) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q=2
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[2*Np+n] = m2 - (m2-feq2)/tau + 0.125*(2*(Fx + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - ux*ux +
0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*uz)) +
(mgx + mgx*ux + mgy*uy + mgz*uz)*(-2*chem*(ux*ux) +
0.3333333333333333*((-rhoA + rhoB)*(ux*ux) + 2*chem*(2*ux + ux*ux + uy*uy + uz*uz)) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + uz*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 3
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[3*Np+n] = m3 - (m3-feq3)/tau + 0.125*(2*(Fx*ux + Fy*(-1 + uy) + Fz*uz)*(-0.2222222222222222 - uy*uy +
0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*uz)) +
(mgx*ux + mgy*(-1 + uy) + mgz*uz)*(-2*chem*(uy*uy) +
0.3333333333333333*((-rhoA + rhoB)*(uy*uy) + 2*chem*(ux*ux - 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 4
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[4*Np+n] = m4 - (m4-feq4)/tau + 0.125*(2*(Fy + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - uy*uy +
0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*uz)) +
(mgy + mgx*ux + mgy*uy + mgz*uz)*(-2*chem*(uy*uy) +
0.3333333333333333*((-rhoA + rhoB)*(uy*uy) + 2*chem*(ux*ux + 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + uz*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 5
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[5*Np+n] = m5 - (m5-feq5)/tau + 0.125*(2*(Fx*ux + Fy*uy + Fz*(-1 + uz))*(-0.2222222222222222 - uz*uz +
0.3333333333333333*(ux*ux + uy*uy + (-2 + uz)*uz)) +
(mgx*ux + mgy*uy + mgz*(-1 + uz))*(-2*chem*(uz*uz) +
0.3333333333333333*((-rhoA + rhoB)*(uz*uz) + 2*chem*(ux*ux + uy*uy + (-2 + uz)*uz)) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + uy*uy + (-2 + uz)*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 6
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[6*Np+n] = m6 - (m6-feq6)/tau + 0.125*(2*(Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - uz*uz +
0.3333333333333333*(ux*ux + uy*uy + uz*(2 + uz))) +
(mgz + mgx*ux + mgy*uy + mgz*uz)*(-2*chem*(uz*uz) +
0.3333333333333333*((-rhoA + rhoB)*(uz*uz) + 2*chem*(ux*ux + uy*uy + uz*(2 + uz))) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + uy*uy + uz*(2 + uz)))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 7
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[7*Np+n] = m7 - (m7-feq7)/tau + 0.0625*(-2*(Fx*(-1 + ux) + Fy*(-1 + uy) + Fz*uz)*
(0.2222222222222222 + (ux + uy)*(ux + uy) -
0.3333333333333333*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
(mgx*(-1 + ux) + mgy*(-1 + uy) + mgz*uz)*
(-2*chem*((ux + uy)*(ux + uy)) + 0.3333333333333333*
(-((rhoA - rhoB)*((ux + uy)*(ux + uy))) + 2*chem*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 8
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[8*Np+n] = m8 - (m8-feq8)/tau + 0.0625*(2*(Fx + Fy + Fx*ux + Fy*uy + Fz*uz)*
(-0.2222222222222222 - (ux + uy)*(ux + uy) +
0.3333333333333333*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
(mgx + mgy + mgx*ux + mgy*uy + mgz*uz)*
(-2*chem*((ux + uy)*(ux + uy)) + 0.3333333333333333*
(-((rhoA - rhoB)*((ux + uy)*(ux + uy))) + 2*chem*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 9
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[9*Np+n] = m9 - (m9-feq9)/tau + 0.0625*(2*(Fy + Fx*(-1 + ux) + Fy*uy + Fz*uz)*
(-0.2222222222222222 - (ux - uy)*(ux - uy) +
0.3333333333333333*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
(mgy + mgx*(-1 + ux) + mgy*uy + mgz*uz)*
(-2*chem*((ux - uy)*(ux - uy)) + 0.3333333333333333*
(-((rhoA - rhoB)*((ux - uy)*(ux - uy))) + 2*chem*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 10
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[10*Np+n] = m10 - (m10-feq10)/tau + 0.0625*(2*(Fx*(1 + ux) + Fy*(-1 + uy) + Fz*uz)*
(-0.2222222222222222 - (ux - uy)*(ux - uy) +
0.3333333333333333*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
(mgx*(1 + ux) + mgy*(-1 + uy) + mgz*uz)*
(-2*chem*((ux - uy)*(ux - uy)) + 0.3333333333333333*
(-((rhoA - rhoB)*((ux - uy)*(ux - uy))) + 2*chem*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 11
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[11*Np+n] = m11 - (m11-feq11)/tau + 0.0625*(-2*(Fx*(-1 + ux) + Fy*uy + Fz*(-1 + uz))*
(0.2222222222222222 + (ux + uz)*(ux + uz) -
0.3333333333333333*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
(mgx*(-1 + ux) + mgy*uy + mgz*(-1 + uz))*
(-2*chem*((ux + uz)*(ux + uz)) + 0.3333333333333333*
(-((rhoA - rhoB)*((ux + uz)*(ux + uz))) + 2*chem*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 12
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[12*Np+n] = m12 - (m12-feq12)/tau + 0.0625*(2*(Fx + Fz + Fx*ux + Fy*uy + Fz*uz)*
(-0.2222222222222222 - (ux + uz)*(ux + uz) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*(2 + uz)))
+ (mgx + mgz + mgx*ux + mgy*uy + mgz*uz)*
(-2*chem*((ux + uz)*(ux + uz)) + 0.3333333333333333*
(-((rhoA - rhoB)*((ux + uz)*(ux + uz))) + 2*chem*(2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + uz*(2 + uz)))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 13
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[13*Np+n] = m13 - (m13-feq13)/tau + 0.0625*(2*(Fz + Fx*(-1 + ux) + Fy*uy + Fz*uz)*
(-0.2222222222222222 - (ux - uz)*(ux - uz) +
0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
(mgz + mgx*(-1 + ux) + mgy*uy + mgz*uz)*
(-2*chem*((ux - uz)*(ux - uz)) + 0.3333333333333333*
(-((rhoA - rhoB)*((ux - uz)*(ux - uz))) + 2*chem*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*(2 + uz)))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q= 14
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[14*Np+n] = m14 - (m14-feq14)/tau + 0.0625*(2*(Fx*(1 + ux) + Fy*uy + Fz*(-1 + uz))*
(-0.2222222222222222 - (ux - uz)*(ux - uz) +
0.3333333333333333*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
(mgx*(1 + ux) + mgy*uy + mgz*(-1 + uz))*
(-2*chem*((ux - uz)*(ux - uz)) + 0.3333333333333333*
(-((rhoA - rhoB)*((ux - uz)*(ux - uz))) + 2*chem*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 15
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[15*Np+n] = m15 - (m15-feq15)/tau + 0.0625*(-2*(Fx*ux + Fy*(-1 + uy) + Fz*(-1 + uz))*
(0.2222222222222222 + (uy + uz)*(uy + uz) - 0.3333333333333333*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz))
+ (mgx*ux + mgy*(-1 + uy) + mgz*(-1 + uz))*
(-2*chem*((uy + uz)*(uy + uz)) + 0.3333333333333333*
(-((rhoA - rhoB)*((uy + uz)*(uy + uz))) + 2*chem*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz))));
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 16
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[16*Np+n] = m16 - (m16-feq16)/tau + 0.0625*(2*(Fy + Fz + Fx*ux + Fy*uy + Fz*uz)*
(-0.2222222222222222 - (uy + uz)*(uy + uz) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*(2 + uz)))
+ (mgy + mgz + mgx*ux + mgy*uy + mgz*uz)*
(-2*chem*((uy + uz)*(uy + uz)) + 0.3333333333333333*
(-((rhoA - rhoB)*((uy + uz)*(uy + uz))) + 2*chem*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + uz*(2 + uz)))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 17
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[17*Np+n] = m17 - (m17-feq17)/tau + 0.0625*(2*(Fz + Fx*ux + Fy*(-1 + uy) + Fz*uz)*
(-0.2222222222222222 - (uy - uz)*(uy - uz) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*(2 + uz)))
+ (mgz + mgx*ux + mgy*(-1 + uy) + mgz*uz)*
(-2*chem*((uy - uz)*(uy - uz)) + 0.3333333333333333*
(-((rhoA - rhoB)*((uy - uz)*(uy - uz))) + 2*chem*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*(2 + uz)))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
// q = 18
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
dist[18*Np+n] = m18 - (m18-feq18)/tau + 0.0625*(2*(Fx*ux + Fy*(1 + uy) + Fz*(-1 + uz))*
(-0.2222222222222222 - (uy - uz)*(uy - uz) +
0.3333333333333333*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) +
(mgx*ux + mgy*(1 + uy) + mgz*(-1 + uz))*
(-2*chem*((uy - uz)*(uy - uz)) + 0.3333333333333333*
(-((rhoA - rhoB)*((uy - uz)*(uy - uz))) + 2*chem*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) +
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz))));
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
//----------------------------------------------------------------------------------------------------------------------------------------//
//Update velocity on device
build pass; ongoing model validation
2021-01-31 21:26:03 -05:00
Vel[0*Np+n] = ux;
Vel[1*Np+n] = uy;
Vel[2*Np+n] = uz;
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
//Update pressure on device
Pressure[n] = p;
//Update chemical potential on device
mu_phi[n] = chem;
//Update color gradient on device
ColorGrad[0*Np+n] = nx;
ColorGrad[1*Np+n] = ny;
ColorGrad[2*Np+n] = nz;
template for freelee model
2020-09-25 16:18:54 -04:00
save the work;to be built and tested
2021-01-31 19:06:07 -05:00
}
}
template for freelee model
2020-09-25 16:18:54 -04:00
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
extern "C" void ScaLBL_D3Q19_AAodd_FreeLeeModel_Combined(int *neighborList, int *Map, double *dist, double *hq, double *Den, double *Phi, double *mu_phi, double *Vel, double *Pressure, double *ColorGrad,
double rhoA, double rhoB, double tauA, double tauB, double tauM, double kappa, double beta, double W, double Fx, double Fy, double Fz,
int strideY, int strideZ, int start, int finish, int Np){
int n,nn,nn2x,ijk;
int nr1,nr2,nr3,nr4,nr5,nr6,nr7,nr8,nr9,nr10,nr11,nr12,nr13,nr14,nr15,nr16,nr17,nr18;
double ux,uy,uz;//fluid velocity
double p;//pressure
double chem;//chemical potential
double phi; //phase field
double rho0;//fluid density
// distribution functions
double m1,m2,m4,m6,m8,m9,m10,m11,m12,m13,m14,m15,m16,m17,m18;
double m0,m3,m5,m7;
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
//double mm1,mm2,mm4,mm6,mm8,mm9,mm10,mm11,mm12,mm13,mm14,mm15,mm16,mm17,mm18;
//double mm3,mm5,mm7;
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
double feq0,feq1,feq2,feq3,feq4,feq5,feq6,feq7,feq8,feq9,feq10,feq11,feq12,feq13,feq14,feq15,feq16,feq17,feq18;
double nx,ny,nz;//normal color gradient
double mgx,mgy,mgz;//mixed gradient reaching secondary neighbor
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
double dirGradC1,dirGradC2,dirGradC3,dirGradC4,dirGradC5,dirGradC6,dirGradC7,dirGradC8,dirGradC9,dirGradC10,dirGradC11,dirGradC12;
double dirGradC13,dirGradC14,dirGradC15,dirGradC16,dirGradC17,dirGradC18;
double dirGradM1,dirGradM2,dirGradM3,dirGradM4,dirGradM5,dirGradM6,dirGradM7,dirGradM8,dirGradM9,dirGradM10,dirGradM11,dirGradM12;
double dirGradM13,dirGradM14,dirGradM15,dirGradM16,dirGradM17,dirGradM18;
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
double h0,h1,h2,h3,h4,h5,h6;//distributions for LB phase field
double tau;//position dependent LB relaxation time for fluid
double C,theta;
double M = 2.0/9.0*(tauM-0.5);//diffusivity (or mobility) for the phase field D3Q7
apply the phase denoise without affecting the mass conservation
2021-03-29 23:28:26 -04:00
double phi_temp;
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
for (int n=start; n<finish; n++){
rho0 = Den[n];//load density
// Get the 1D index based on regular data layout
ijk = Map[n];
phi = Phi[ijk];// load phase field
apply the phase denoise without affecting the mass conservation
2021-03-29 23:28:26 -04:00
phi_temp = phi;
if (phi>1.f) phi_temp=1.0;
if (phi<-1.f) phi_temp=-1.0;
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
// local relaxation time
tau=tauA + 0.5*(1.0-phi)*(tauB-tauA);
// COMPUTE THE COLOR GRADIENT
//........................................................................
//.................Read Phase Indicator Values............................
//........................................................................
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
nn = ijk-1; // neighbor index (get convention)
m2 = Phi[nn]; // get neighbor for phi - 1
//........................................................................
nn = ijk+1; // neighbor index (get convention)
m1 = Phi[nn]; // get neighbor for phi - 2
dirGradC1 = 0.5*(m1-m2);
dirGradC2 = 0.5*(m2-m1);
//........................................................................
nn = ijk-strideY; // neighbor index (get convention)
m4 = Phi[nn]; // get neighbor for phi - 3
//........................................................................
nn = ijk+strideY; // neighbor index (get convention)
m3 = Phi[nn]; // get neighbor for phi - 4
dirGradC3 = 0.5*(m3-m4);
dirGradC4 = 0.5*(m4-m3);
//........................................................................
nn = ijk-strideZ; // neighbor index (get convention)
m6 = Phi[nn]; // get neighbor for phi - 5
//........................................................................
nn = ijk+strideZ; // neighbor index (get convention)
m5 = Phi[nn]; // get neighbor for phi - 6
dirGradC5 = 0.5*(m5-m6);
dirGradC6 = 0.5*(m6-m5);
//........................................................................
nn = ijk-strideY-1; // neighbor index (get convention)
m8 = Phi[nn]; // get neighbor for phi - 7
//........................................................................
nn = ijk+strideY+1; // neighbor index (get convention)
m7 = Phi[nn]; // get neighbor for phi - 8
dirGradC7 = 0.5*(m7-m8);
dirGradC8 = 0.5*(m8-m7);
//........................................................................
nn = ijk+strideY-1; // neighbor index (get convention)
m10 = Phi[nn]; // get neighbor for phi - 9
//........................................................................
nn = ijk-strideY+1; // neighbor index (get convention)
m9 = Phi[nn]; // get neighbor for phi - 10
dirGradC9 = 0.5*(m9-m10);
dirGradC10 = 0.5*(m10-m9);
//........................................................................
nn = ijk-strideZ-1; // neighbor index (get convention)
m12 = Phi[nn]; // get neighbor for phi - 11
//........................................................................
nn = ijk+strideZ+1; // neighbor index (get convention)
m11 = Phi[nn]; // get neighbor for phi - 12
dirGradC11 = 0.5*(m11-m12);
dirGradC12 = 0.5*(m12-m11);
//........................................................................
nn = ijk+strideZ-1; // neighbor index (get convention)
m14 = Phi[nn]; // get neighbor for phi - 13
//........................................................................
nn = ijk-strideZ+1; // neighbor index (get convention)
m13 = Phi[nn]; // get neighbor for phi - 14
dirGradC13 = 0.5*(m13-m14);
dirGradC14 = 0.5*(m14-m13);
//........................................................................
nn = ijk-strideZ-strideY; // neighbor index (get convention)
m16 = Phi[nn]; // get neighbor for phi - 15
//........................................................................
nn = ijk+strideZ+strideY; // neighbor index (get convention)
m15 = Phi[nn]; // get neighbor for phi - 16
dirGradC15 = 0.5*(m15-m16);
dirGradC16 = 0.5*(m16-m15);
//........................................................................
nn = ijk+strideZ-strideY; // neighbor index (get convention)
m18 = Phi[nn]; // get neighbor for phi - 17
//........................................................................
nn = ijk-strideZ+strideY; // neighbor index (get convention)
m17 = Phi[nn]; // get neighbor for phi - 18
dirGradC17 = 0.5*(m17-m18);
dirGradC18 = 0.5*(m18-m17);
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
// compute mixed difference (Eq.30, A.Fukhari et al. JCP 315(2016) 434-457)
//........................................................................
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
nn2x = ijk+2; // neighbor index (get convention)
dirGradM1 = Phi[nn2x]; // get neighbor for phi - 1
dirGradM1 = 0.25*(-dirGradM1+5.0*m1-3.0*phi-m2);
//........................................................................
nn2x = ijk-2; // neighbor index (get convention)
dirGradM2 = Phi[nn2x]; // get neighbor for phi - 2
dirGradM2 = 0.25*(-dirGradM2+5.0*m2-3.0*phi-m1);
//........................................................................
nn2x = ijk+strideY*2; // neighbor index (get convention)
dirGradM3 = Phi[nn2x]; // get neighbor for phi - 3
dirGradM3 = 0.25*(-dirGradM3+5.0*m3-3.0*phi-m4);
//........................................................................
nn2x = ijk-strideY*2; // neighbor index (get convention)
dirGradM4 = Phi[nn2x]; // get neighbor for phi - 4
dirGradM4 = 0.25*(-dirGradM4+5.0*m4-3.0*phi-m3);
//........................................................................
nn2x = ijk+strideZ*2; // neighbor index (get convention)
dirGradM5 = Phi[nn2x]; // get neighbor for phi - 5
dirGradM5 = 0.25*(-dirGradM5+5.0*m5-3.0*phi-m6);
//........................................................................
nn2x = ijk-strideZ*2; // neighbor index (get convention)
dirGradM6 = Phi[nn2x]; // get neighbor for phi - 6
dirGradM6 = 0.25*(-dirGradM6+5.0*m6-3.0*phi-m5);
//........................................................................
nn2x = ijk+strideY*2+2; // neighbor index (get convention)
dirGradM7 = Phi[nn2x]; // get neighbor for phi - 7
dirGradM7 = 0.25*(-dirGradM7+5.0*m7-3.0*phi-m8);
//........................................................................
nn2x = ijk-strideY*2-2; // neighbor index (get convention)
dirGradM8 = Phi[nn2x]; // get neighbor for phi - 8
dirGradM8 = 0.25*(-dirGradM8+5.0*m8-3.0*phi-m7);
//........................................................................
nn2x = ijk-strideY*2+2; // neighbor index (get convention)
dirGradM9 = Phi[nn2x]; // get neighbor for phi - 9
dirGradM9 = 0.25*(-dirGradM9+5.0*m9-3.0*phi-m10);
//........................................................................
nn2x = ijk+strideY*2-2; // neighbor index (get convention)
dirGradM10 = Phi[nn2x]; // get neighbor for phi - 10
dirGradM10 = 0.25*(-dirGradM10+5.0*m10-3.0*phi-m9);
//........................................................................
nn2x = ijk+strideZ*2+2; // neighbor index (get convention)
dirGradM11 = Phi[nn2x]; // get neighbor for phi - 11
dirGradM11 = 0.25*(-dirGradM11+5.0*m11-3.0*phi-m12);
//........................................................................
nn2x = ijk-strideZ*2-2; // neighbor index (get convention)
dirGradM12 = Phi[nn2x]; // get neighbor for phi - 12
dirGradM12 = 0.25*(-dirGradM12+5.0*m12-3.0*phi-m11);
//........................................................................
nn2x = ijk-strideZ*2+2; // neighbor index (get convention)
dirGradM13 = Phi[nn2x]; // get neighbor for phi - 13
dirGradM13 = 0.25*(-dirGradM13+5.0*m13-3.0*phi-m14);
//........................................................................
nn2x = ijk+strideZ*2-2; // neighbor index (get convention)
dirGradM14 = Phi[nn2x]; // get neighbor for phi - 14
dirGradM14 = 0.25*(-dirGradM14+5.0*m14-3.0*phi-m13);
//........................................................................
nn2x = ijk+strideZ*2+strideY*2; // neighbor index (get convention)
dirGradM15 = Phi[nn2x]; // get neighbor for phi - 15
dirGradM15 = 0.25*(-dirGradM15+5.0*m15-3.0*phi-m16);
//........................................................................
nn2x = ijk-strideZ*2-strideY*2; // neighbor index (get convention)
dirGradM16 = Phi[nn2x]; // get neighbor for phi - 16
dirGradM16 = 0.25*(-dirGradM16+5.0*m16-3.0*phi-m15);
//........................................................................
nn2x = ijk-strideZ*2+strideY*2; // neighbor index (get convention)
dirGradM17 = Phi[nn2x]; // get neighbor for phi - 17
dirGradM17 = 0.25*(-dirGradM17+5.0*m17-3.0*phi-m18);
//........................................................................
nn2x = ijk+strideZ*2-strideY*2; // neighbor index (get convention)
dirGradM18 = Phi[nn2x]; // get neighbor for phi - 18
dirGradM18 = 0.25*(-dirGradM18+5.0*m18-3.0*phi-m17);
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
//............Compute the Color Gradient...................................
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
nx = 3.0*1.0/18.0*(dirGradC1-dirGradC2+0.5*(dirGradC7-dirGradC8+dirGradC9-dirGradC10+dirGradC11-dirGradC12+dirGradC13-dirGradC14));
ny = 3.0*1.0/18.0*(dirGradC3-dirGradC4+0.5*(dirGradC7-dirGradC8-dirGradC9+dirGradC10+dirGradC15-dirGradC16+dirGradC17-dirGradC18));
nz = 3.0*1.0/18.0*(dirGradC5-dirGradC6+0.5*(dirGradC11-dirGradC12-dirGradC13+dirGradC14+dirGradC15-dirGradC16-dirGradC17+dirGradC18));
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
//............Compute the Chemical Potential...............................
apply the phase denoise without affecting the mass conservation
2021-03-29 23:28:26 -04:00
//chem = 2.0*3.0/18.0*(m1+m2+m3+m4+m5+m6-6*phi+0.5*(m7+m8+m9+m10+m11+m12+m13+m14+m15+m16+m17+m18-12*phi));//intermediate var, i.e. the laplacian
//chem = 4.0*beta*phi*(phi+1.0)*(phi-1.0)-kappa*chem;
chem = 2.0*3.0/18.0*(m1+m2+m3+m4+m5+m6-6*phi_temp+0.5*(m7+m8+m9+m10+m11+m12+m13+m14+m15+m16+m17+m18-12*phi_temp));//intermediate var, i.e. the laplacian
chem = 4.0*beta*phi_temp*(phi_temp+1.0)*(phi_temp-1.0)-kappa*chem;
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
//............Compute the Mixed Gradient...................................
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
mgx = 3.0*1.0/18.0*(dirGradM1-dirGradM2+0.5*(dirGradM7-dirGradM8+dirGradM9-dirGradM10+dirGradM11-dirGradM12+dirGradM13-dirGradM14));
mgy = 3.0*1.0/18.0*(dirGradM3-dirGradM4+0.5*(dirGradM7-dirGradM8-dirGradM9+dirGradM10+dirGradM15-dirGradM16+dirGradM17-dirGradM18));
mgz = 3.0*1.0/18.0*(dirGradM5-dirGradM6+0.5*(dirGradM11-dirGradM12-dirGradM13+dirGradM14+dirGradM15-dirGradM16-dirGradM17+dirGradM18));
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
//de-noise color gradient and mixed gradient
fix miscellaneous typos and bugs; huckleberry build passed
2021-03-31 21:37:52 -04:00
C = sqrt(nx*nx+ny*ny+nz*nz);
if (C<1.0e-12) nx=ny=nz=0.0;
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
double mg_mag = sqrt(mgx*mgx+mgy*mgy+mgz*mgz);
if (mg_mag<1.0e-12) mgx=mgy=mgz=0.0;
further clean up CPU code;Update GPU code;GPU version to be built and verified
2021-03-31 20:42:16 -04:00
//maybe you can also de-noise chemical potential ? within the bulk phase chem should be zero
fix a few dumb typo
2021-03-25 08:18:22 -04:00
if (fabs(chem)<1.0e-12) chem=0.0;
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
// q=0
m0 = dist[n];
// q=1
nr1 = neighborList[n]; // neighbor 2 ( > 10Np => odd part of dist)
m1 = dist[nr1]; // reading the f1 data into register fq
nr2 = neighborList[n+Np]; // neighbor 1 ( < 10Np => even part of dist)
m2 = dist[nr2]; // reading the f2 data into register fq
// q=3
nr3 = neighborList[n+2*Np]; // neighbor 4
m3 = dist[nr3];
// q = 4
nr4 = neighborList[n+3*Np]; // neighbor 3
m4 = dist[nr4];
// q=5
nr5 = neighborList[n+4*Np];
m5 = dist[nr5];
// q = 6
nr6 = neighborList[n+5*Np];
m6 = dist[nr6];
// q=7
nr7 = neighborList[n+6*Np];
m7 = dist[nr7];
// q = 8
nr8 = neighborList[n+7*Np];
m8 = dist[nr8];
// q=9
nr9 = neighborList[n+8*Np];
m9 = dist[nr9];
// q = 10
nr10 = neighborList[n+9*Np];
m10 = dist[nr10];
// q=11
nr11 = neighborList[n+10*Np];
m11 = dist[nr11];
// q=12
nr12 = neighborList[n+11*Np];
m12 = dist[nr12];
// q=13
nr13 = neighborList[n+12*Np];
m13 = dist[nr13];
// q=14
nr14 = neighborList[n+13*Np];
m14 = dist[nr14];
// q=15
nr15 = neighborList[n+14*Np];
m15 = dist[nr15];
// q=16
nr16 = neighborList[n+15*Np];
m16 = dist[nr16];
// q=17
nr17 = neighborList[n+16*Np];
m17 = dist[nr17];
// q=18
nr18 = neighborList[n+17*Np];
m18 = dist[nr18];
//compute fluid velocity
ux = 3.0/rho0*(m1-m2+m7-m8+m9-m10+m11-m12+m13-m14+0.5*(chem*nx+Fx)/3.0);
uy = 3.0/rho0*(m3-m4+m7-m8-m9+m10+m15-m16+m17-m18+0.5*(chem*ny+Fy)/3.0);
uz = 3.0/rho0*(m5-m6+m11-m12-m13+m14+m15-m16-m17+m18+0.5*(chem*nz+Fz)/3.0);
//compute pressure
p = (m0+m2+m1+m4+m3+m6+m5+m8+m7+m10+m9+m12+m11+m14+m13+m16+m15+m18+m17)
+0.5*(rhoA-rhoB)/2.0/3.0*(ux*nx+uy*ny+uz*nz);
//compute equilibrium distributions
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
feq0 = 0.3333333333333333*p - 0.25*(Fx*ux + Fy*uy + Fz*uz)*(-0.6666666666666666 + ux*ux + uy*uy + uz*uz) - 0.16666666666666666*rho0*(ux*ux + uy*uy + uz*uz) -
0.5*(-(nx*ux) - ny*uy - nz*uz)*(-0.08333333333333333*(rhoA - rhoB)*(ux*ux + uy*uy + uz*uz) + chem*(0.3333333333333333 - 0.5*(ux*ux + uy*uy + uz*uz)));
feq1 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-(ux*ux) + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*uz)) -
0.125*(Fx*(-1. + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*(ux*ux) + 0.3333333333333333*(-2.*ux + ux*ux + uy*uy + uz*uz)) -
0.0625*(dirGradC1 - nx*ux - ny*uy - nz*uz)*(2*chem*(ux*ux) - 0.3333333333333333*((-rhoA + rhoB)*(ux*ux) + 2*chem*(-2*ux + ux*ux + uy*uy + uz*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*uz)));
feq2 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-(ux*ux) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*uz)) -
0.125*(Fx + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*(ux*ux) + 0.3333333333333333*(2.*ux + ux*ux + uy*uy + uz*uz)) -
0.0625*(dirGradC2 - nx*ux - ny*uy - nz*uz)*(2*chem*(ux*ux) - 0.3333333333333333*((-rhoA + rhoB)*(ux*ux) + 2*chem*(2*ux + ux*ux + uy*uy + uz*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + uz*uz)));
feq3 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-(uy*uy) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*uz)) -
0.125*(Fx*ux + Fy*(-1. + uy) + Fz*uz)*(-0.2222222222222222 - 1.*(uy*uy) + 0.3333333333333333*(ux*ux - 2.*uy + uy*uy + uz*uz)) -
0.0625*(dirGradC3 - nx*ux - ny*uy - nz*uz)*(2*chem*(uy*uy) - 0.3333333333333333*((-rhoA + rhoB)*(uy*uy) + 2*chem*(ux*ux - 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*uz)));
feq4 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-(uy*uy) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*uz)) -
0.125*(Fy + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*(uy*uy) + 0.3333333333333333*(ux*ux + 2.*uy + uy*uy + uz*uz)) -
0.0625*(dirGradC4 - nx*ux - ny*uy - nz*uz)*(2*chem*(uy*uy) - 0.3333333333333333*((-rhoA + rhoB)*(uy*uy) + 2*chem*(ux*ux + 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + uz*uz)));
feq5 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-(uz*uz) + 0.3333333333333333*(ux*ux + uy*uy + (-2 + uz)*uz)) -
0.125*(Fx*ux + Fy*uy + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*(uz*uz) + 0.3333333333333333*(ux*ux + uy*uy + (-2. + uz)*uz)) -
0.0625*(dirGradC5 - nx*ux - ny*uy - nz*uz)*(2*chem*(uz*uz) - 0.3333333333333333*((-rhoA + rhoB)*(uz*uz) + 2*chem*(ux*ux + uy*uy + (-2 + uz)*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(ux*ux + uy*uy + (-2 + uz)*uz)));
feq6 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-(uz*uz) + 0.3333333333333333*(ux*ux + uy*uy + uz*(2 + uz))) -
0.125*(Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*(uz*uz) + 0.3333333333333333*(ux*ux + uy*uy + uz*(2. + uz))) -
0.0625*(dirGradC6 - nx*ux - ny*uy - nz*uz)*(2*chem*(uz*uz) - 0.3333333333333333*((-rhoA + rhoB)*(uz*uz) + 2*chem*(ux*ux + uy*uy + uz*(2 + uz))) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(ux*ux + uy*uy + uz*(2 + uz))));
feq7 = 0.027777777777777776*p - 0.041666666666666664*rho0*(-((ux + uy)*(ux + uy)) + 0.3333333333333333*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) -
0.0625*(Fx*(-1. + ux) + Fy*(-1. + uy) + Fz*uz)*(-0.2222222222222222 - 1.*(ux*ux) - 2.*ux*uy - 1.*(uy*uy) +
0.3333333333333333*(-2.*ux + ux*ux - 2.*uy + uy*uy + uz*uz)) -
0.03125*(dirGradC7 - nx*ux - ny*uy - nz*uz)*(2*chem*((ux + uy)*(ux + uy)) +
0.3333333333333333*((rhoA - rhoB)*((ux + uy)*(ux + uy)) - 2*chem*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)));
feq8 = 0.027777777777777776*p - 0.041666666666666664*rho0*(-((ux + uy)*(ux + uy)) + 0.3333333333333333*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) -
0.0625*(Fx + Fy + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*(ux*ux) - 2.*ux*uy - 1.*(uy*uy) +
0.3333333333333333*(2.*ux + ux*ux + 2.*uy + uy*uy + uz*uz)) -
0.03125*(dirGradC8 - nx*ux - ny*uy - nz*uz)*(2*chem*((ux + uy)*(ux + uy)) -
0.3333333333333333*(-((rhoA - rhoB)*((ux + uy)*(ux + uy))) + 2*chem*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)));
feq9 = 0.027777777777777776*p - 0.041666666666666664*rho0*(-((ux - uy)*(ux - uy)) + 0.3333333333333333*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) -
0.0625*(Fy + Fx*(-1. + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*(ux*ux) + 2.*ux*uy - 1.*(uy*uy) +
0.3333333333333333*(-2.*ux + ux*ux + 2.*uy + uy*uy + uz*uz)) -
0.03125*(dirGradC9 - nx*ux - ny*uy - nz*uz)*(2*chem*((ux - uy)*(ux - uy)) -
0.3333333333333333*(-((rhoA - rhoB)*((ux - uy)*(ux - uy))) + 2*chem*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)));
feq10 = 0.027777777777777776*p - 0.041666666666666664*rho0*(-((ux - uy)*(ux - uy)) + 0.3333333333333333*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) -
0.0625*(Fx*(1 + ux) + Fy*(-1. + uy) + Fz*uz)*(-0.2222222222222222 - 1.*(ux*ux) + 2.*ux*uy - 1.*(uy*uy) +
0.3333333333333333*(2.*ux + ux*ux - 2.*uy + uy*uy + uz*uz)) -
0.03125*(dirGradC10 - nx*ux - ny*uy - nz*uz)*(2*chem*((ux - uy)*(ux - uy)) -
0.3333333333333333*(-((rhoA - rhoB)*((ux - uy)*(ux - uy))) + 2*chem*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)));
feq11 = 0.027777777777777776*p - 0.041666666666666664*rho0*(-((ux + uz)*(ux + uz)) + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) -
0.0625*(Fx*(-1. + ux) + Fy*uy + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*(ux*ux) - 2.*ux*uz - 1.*(uz*uz) +
0.3333333333333333*(-2.*ux + ux*ux + uy*uy + (-2. + uz)*uz)) -
0.03125*(dirGradC11 - nx*ux - ny*uy - nz*uz)*(2*chem*((ux + uz)*(ux + uz)) +
0.3333333333333333*((rhoA - rhoB)*((ux + uz)*(ux + uz)) - 2*chem*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)));
feq12 = 0.027777777777777776*p - 0.041666666666666664*rho0*(-((ux + uz)*(ux + uz)) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*(2 + uz))) -
0.0625*(Fx + Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*(ux*ux) - 2.*ux*uz - 1.*(uz*uz) +
0.3333333333333333*(2.*ux + ux*ux + uy*uy + uz*(2. + uz))) -
0.03125*(dirGradC12 - nx*ux - ny*uy - nz*uz)*(2*chem*((ux + uz)*(ux + uz)) -
0.3333333333333333*(-((rhoA - rhoB)*((ux + uz)*(ux + uz))) + 2*chem*(2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + uz*(2 + uz))));
feq13 = 0.027777777777777776*p - 0.041666666666666664*rho0*(-((ux - uz)*(ux - uz)) + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) -
0.0625*(Fz + Fx*(-1. + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*(ux*ux) + 2.*ux*uz - 1.*(uz*uz) +
0.3333333333333333*(-2.*ux + ux*ux + uy*uy + uz*(2. + uz))) -
0.03125*(dirGradC13 - nx*ux - ny*uy - nz*uz)*(2*chem*((ux - uz)*(ux - uz)) -
0.3333333333333333*(-((rhoA - rhoB)*((ux - uz)*(ux - uz))) + 2*chem*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))));
feq14 = 0.027777777777777776*p - 0.041666666666666664*rho0*(-((ux - uz)*(ux - uz)) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) -
0.0625*(Fx*(1 + ux) + Fy*uy + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*(ux*ux) + 2.*ux*uz - 1.*(uz*uz) +
0.3333333333333333*(2.*ux + ux*ux + uy*uy + (-2. + uz)*uz)) -
0.03125*(dirGradC14 - nx*ux - ny*uy - nz*uz)*(2*chem*((ux - uz)*(ux - uz)) -
0.3333333333333333*(-((rhoA - rhoB)*((ux - uz)*(ux - uz))) + 2*chem*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)));
feq15 = 0.027777777777777776*p - 0.041666666666666664*rho0*(-((uy + uz)*(uy + uz)) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)) -
0.0625*(Fx*ux + Fy*(-1. + uy) + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*(uy*uy) - 2.*uy*uz - 1.*(uz*uz) +
0.3333333333333333*(ux*ux - 2.*uy + uy*uy + (-2. + uz)*uz)) -
0.03125*(dirGradC15 - nx*ux - ny*uy - nz*uz)*(2*chem*((uy + uz)*(uy + uz)) +
0.3333333333333333*((rhoA - rhoB)*((uy + uz)*(uy + uz)) - 2*chem*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)));
feq16 = 0.027777777777777776*p - 0.041666666666666664*rho0*(-((uy + uz)*(uy + uz)) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))) -
0.0625*(Fy + Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*(uy*uy) - 2.*uy*uz - 1.*(uz*uz) +
0.3333333333333333*(ux*ux + 2.*uy + uy*uy + uz*(2. + uz))) -
0.03125*(dirGradC16 - nx*ux - ny*uy - nz*uz)*(2*chem*((uy + uz)*(uy + uz)) -
0.3333333333333333*(-((rhoA - rhoB)*((uy + uz)*(uy + uz))) + 2*chem*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))));
feq17 = 0.027777777777777776*p - 0.041666666666666664*rho0*(-((uy - uz)*(uy - uz)) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))) -
0.0625*(Fz + Fx*ux + Fy*(-1. + uy) + Fz*uz)*(-0.2222222222222222 - 1.*(uy*uy) + 2.*uy*uz - 1.*(uz*uz) +
0.3333333333333333*(ux*ux - 2.*uy + uy*uy + uz*(2. + uz))) -
0.03125*(dirGradC17 - nx*ux - ny*uy - nz*uz)*(2*chem*((uy - uz)*(uy - uz)) -
0.3333333333333333*(-((rhoA - rhoB)*((uy - uz)*(uy - uz))) + 2*chem*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))));
feq18 = 0.027777777777777776*p - 0.041666666666666664*rho0*(-((uy - uz)*(uy - uz)) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) -
0.0625*(Fx*ux + Fy*(1 + uy) + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*(uy*uy) + 2.*uy*uz - 1.*(uz*uz) +
0.3333333333333333*(ux*ux + 2.*uy + uy*uy + (-2. + uz)*uz)) -
0.03125*(dirGradC18 - nx*ux - ny*uy - nz*uz)*(2*chem*((uy - uz)*(uy - uz)) -
0.3333333333333333*(-((rhoA - rhoB)*((uy - uz)*(uy - uz))) + 2*chem*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)));
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
//------------------------------------------------- BCK collison ------------------------------------------------------------//
// q=0
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
dist[n] = m0 - (m0-feq0)/tau + 0.25*(2*(Fx*ux + Fy*uy + Fz*uz)*(-0.6666666666666666 + ux*ux + uy*uy + uz*uz) +
(mgx*ux + mgy*uy + mgz*uz)*(2*chem*(ux*ux + uy*uy + uz*uz) + 0.3333333333333333*(-4*chem + (rhoA - rhoB)*(ux*ux + uy*uy + uz*uz))));
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 1
dist[nr2] = m1 - (m1-feq1)/tau + 0.125*(2*(Fx*(-1 + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - ux*ux + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*uz)) -
(dirGradM1 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*(ux*ux) + 0.3333333333333333*((-rhoA + rhoB)*(ux*ux) + 2*chem*(-2*ux + ux*ux + uy*uy + uz*uz)) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*uz))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q=2
dist[nr1] = m2 - (m2-feq2)/tau + 0.125*(2*(Fx + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - ux*ux + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*uz)) -
(dirGradM2 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*(ux*ux) + 0.3333333333333333*((-rhoA + rhoB)*(ux*ux) + 2*chem*(2*ux + ux*ux + uy*uy + uz*uz)) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + uz*uz))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 3
dist[nr4] = m3 - (m3-feq3)/tau + 0.125*(2*(Fx*ux + Fy*(-1 + uy) + Fz*uz)*(-0.2222222222222222 - uy*uy + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*uz)) -
(dirGradM3 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*(uy*uy) + 0.3333333333333333*((-rhoA + rhoB)*(uy*uy) + 2*chem*(ux*ux - 2*uy + uy*uy + uz*uz)) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*uz))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 4
dist[nr3] = m4 - (m4-feq4)/tau + 0.125*(2*(Fy + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - uy*uy + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*uz)) -
(dirGradM4 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*(uy*uy) + 0.3333333333333333*((-rhoA + rhoB)*(uy*uy) + 2*chem*(ux*ux + 2*uy + uy*uy + uz*uz)) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + uz*uz))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 5
dist[nr6] = m5 - (m5-feq5)/tau + 0.125*(2*(Fx*ux + Fy*uy + Fz*(-1 + uz))*(-0.2222222222222222 - uz*uz + 0.3333333333333333*(ux*ux + uy*uy + (-2 + uz)*uz)) -
(dirGradM5 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*(uz*uz) + 0.3333333333333333*((-rhoA + rhoB)*(uz*uz) + 2*chem*(ux*ux + uy*uy + (-2 + uz)*uz)) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + uy*uy + (-2 + uz)*uz))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 6
dist[nr5] = m6 - (m6-feq6)/tau + 0.125*(2*(Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - uz*uz + 0.3333333333333333*(ux*ux + uy*uy + uz*(2 + uz))) -
(dirGradM6 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*(uz*uz) + 0.3333333333333333*((-rhoA + rhoB)*(uz*uz) + 2*chem*(ux*ux + uy*uy + uz*(2 + uz))) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + uy*uy + uz*(2 + uz)))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 7
dist[nr8] = m7 - (m7-feq7)/tau + 0.0625*(-2*(Fx*(-1 + ux) + Fy*(-1 + uy) + Fz*uz)*(0.2222222222222222 + (ux + uy)*(ux + uy) - 0.3333333333333333*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) -
(dirGradM7 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*((ux + uy)*(ux + uy)) +
0.3333333333333333*(-((rhoA - rhoB)*((ux + uy)*(ux + uy))) + 2*chem*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 8
dist[nr7] = m8 - (m8-feq8)/tau + 0.0625*(2*(Fx + Fy + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - (ux + uy)*(ux + uy) + 0.3333333333333333*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) -
(dirGradM8 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*((ux + uy)*(ux + uy)) +
0.3333333333333333*(-((rhoA - rhoB)*((ux + uy)*(ux + uy))) + 2*chem*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 9
dist[nr10] = m9 - (m9-feq9)/tau + 0.0625*(2*(Fy + Fx*(-1 + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - (ux - uy)*(ux - uy) + 0.3333333333333333*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) -
(dirGradM9 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*((ux - uy)*(ux - uy)) +
0.3333333333333333*(-((rhoA - rhoB)*((ux - uy)*(ux - uy))) + 2*chem*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 10
dist[nr9] = m10 - (m10-feq10)/tau + 0.0625*(2*(Fx*(1 + ux) + Fy*(-1 + uy) + Fz*uz)*(-0.2222222222222222 - (ux - uy)*(ux - uy) + 0.3333333333333333*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) -
(dirGradM10 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*((ux - uy)*(ux - uy)) +
0.3333333333333333*(-((rhoA - rhoB)*((ux - uy)*(ux - uy))) + 2*chem*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 11
dist[nr12] = m11 - (m11-feq11)/tau + 0.0625*(-2*(Fx*(-1 + ux) + Fy*uy + Fz*(-1 + uz))*(0.2222222222222222 + (ux + uz)*(ux + uz) - 0.3333333333333333*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) -
(dirGradM11 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*((ux + uz)*(ux + uz)) +
0.3333333333333333*(-((rhoA - rhoB)*((ux + uz)*(ux + uz))) + 2*chem*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 12
dist[nr11] = m12 - (m12-feq12)/tau + 0.0625*(2*(Fx + Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - (ux + uz)*(ux + uz) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*(2 + uz))) -
(dirGradM12 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*((ux + uz)*(ux + uz)) +
0.3333333333333333*(-((rhoA - rhoB)*((ux + uz)*(ux + uz))) + 2*chem*(2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + uz*(2 + uz)))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 13
dist[nr14] = m13 - (m13-feq13)/tau + 0.0625*(2*(Fz + Fx*(-1 + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - (ux - uz)*(ux - uz) + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) -
(dirGradM13 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*((ux - uz)*(ux - uz)) +
0.3333333333333333*(-((rhoA - rhoB)*((ux - uz)*(ux - uz))) + 2*chem*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*(2 + uz)))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q= 14
dist[nr13] = m14 - (m14-feq14)/tau + 0.0625*(2*(Fx*(1 + ux) + Fy*uy + Fz*(-1 + uz))*(-0.2222222222222222 - (ux - uz)*(ux - uz) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) -
(dirGradM14 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*((ux - uz)*(ux - uz)) +
0.3333333333333333*(-((rhoA - rhoB)*((ux - uz)*(ux - uz))) + 2*chem*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 15
dist[nr16] = m15 - (m15-feq15)/tau + 0.0625*(-2*(Fx*ux + Fy*(-1 + uy) + Fz*(-1 + uz))*(0.2222222222222222 + (uy + uz)*(uy + uz) - 0.3333333333333333*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)) -
(dirGradM15 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*((uy + uz)*(uy + uz)) +
0.3333333333333333*(-((rhoA - rhoB)*((uy + uz)*(uy + uz))) + 2*chem*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 16
dist[nr15] = m16 - (m16-feq16)/tau + 0.0625*(2*(Fy + Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - (uy + uz)*(uy + uz) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))) -
(dirGradM16 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*((uy + uz)*(uy + uz)) +
0.3333333333333333*(-((rhoA - rhoB)*((uy + uz)*(uy + uz))) + 2*chem*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + uz*(2 + uz)))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 17
dist[nr18] = m17 - (m17-feq17)/tau + 0.0625*(2*(Fz + Fx*ux + Fy*(-1 + uy) + Fz*uz)*(-0.2222222222222222 - (uy - uz)*(uy - uz) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))) -
(dirGradM17 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*((uy - uz)*(uy - uz)) +
0.3333333333333333*(-((rhoA - rhoB)*((uy - uz)*(uy - uz))) + 2*chem*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*(2 + uz)))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 18
dist[nr17] = m18 - (m18-feq18)/tau + 0.0625*(2*(Fx*ux + Fy*(1 + uy) + Fz*(-1 + uz))*(-0.2222222222222222 - (uy - uz)*(uy - uz) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) -
(dirGradM18 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*((uy - uz)*(uy - uz)) +
0.3333333333333333*(-((rhoA - rhoB)*((uy - uz)*(uy - uz))) + 2*chem*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz))));
//----------------------------------------------------------------------------------------------------------------------------------------//
// ----------------------------- compute phase field evolution ----------------------------------------
//Normalize the Color Gradient
C = sqrt(nx*nx+ny*ny+nz*nz);
double ColorMag = C;
if (C==0.0) ColorMag=1.0;
nx = nx/ColorMag;
ny = ny/ColorMag;
nz = nz/ColorMag;
//compute surface tension-related parameter
apply the phase denoise without affecting the mass conservation
2021-03-29 23:28:26 -04:00
//theta = 4.5*M*2.0*(1-phi*phi)/W;
theta = 4.5*M*2.0*(1-phi_temp*phi_temp)/W;
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
//load distributions of phase field
//q=0
h0 = hq[n];
//q=1
h1 = hq[nr1];
//q=2
h2 = hq[nr2];
//q=3
h3 = hq[nr3];
//q=4
h4 = hq[nr4];
//q=5
h5 = hq[nr5];
//q=6
h6 = hq[nr6];
//-------------------------------- BGK collison for phase field ---------------------------------//
// q = 0
hq[n] = h0 - (h0 - 0.3333333333333333*phi)/tauM;
// q = 1
hq[nr2] = h1 - (h1 - 0.1111111111111111*nx*theta - phi*(0.1111111111111111 + 0.5*ux))/tauM;
// q = 2
hq[nr1] = h2 - (h2 + 0.1111111111111111*nx*theta - phi*(0.1111111111111111 - 0.5*ux))/tauM;
// q = 3
hq[nr4] = h3 - (h3 - 0.1111111111111111*ny*theta - phi*(0.1111111111111111 + 0.5*uy))/tauM;
// q = 4
hq[nr3] = h4 - (h4 + 0.1111111111111111*ny*theta - phi*(0.1111111111111111 - 0.5*uy))/tauM;
// q = 5
hq[nr6] = h5 - (h5 - 0.1111111111111111*nz*theta - phi*(0.1111111111111111 + 0.5*uz))/tauM;
// q = 6
hq[nr5] = h6 - (h6 + 0.1111111111111111*nz*theta - phi*(0.1111111111111111 - 0.5*uz))/tauM;
//........................................................................
//Update velocity on device
Vel[0*Np+n] = ux;
Vel[1*Np+n] = uy;
Vel[2*Np+n] = uz;
//Update pressure on device
Pressure[n] = p;
//Update chemical potential on device
mu_phi[n] = chem;
//Update color gradient on device
ColorGrad[0*Np+n] = nx;
ColorGrad[1*Np+n] = ny;
ColorGrad[2*Np+n] = nz;
}
}
extern "C" void ScaLBL_D3Q19_AAeven_FreeLeeModel_Combined(int *Map, double *dist, double *hq, double *Den, double *Phi, double *mu_phi, double *Vel, double *Pressure, double *ColorGrad,
double rhoA, double rhoB, double tauA, double tauB, double tauM, double kappa, double beta, double W, double Fx, double Fy, double Fz,
int strideY, int strideZ, int start, int finish, int Np){
int n,nn,nn2x,ijk;
double ux,uy,uz;//fluid velocity
double p;//pressure
double chem;//chemical potential
double phi; //phase field
double rho0;//fluid density
// distribution functions
double m1,m2,m4,m6,m8,m9,m10,m11,m12,m13,m14,m15,m16,m17,m18;
double m0,m3,m5,m7;
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
//double mm1,mm2,mm4,mm6,mm8,mm9,mm10,mm11,mm12,mm13,mm14,mm15,mm16,mm17,mm18;
//double mm3,mm5,mm7;
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
double feq0,feq1,feq2,feq3,feq4,feq5,feq6,feq7,feq8,feq9,feq10,feq11,feq12,feq13,feq14,feq15,feq16,feq17,feq18;
double nx,ny,nz;//normal color gradient
double mgx,mgy,mgz;//mixed gradient reaching secondary neighbor
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
double dirGradC1,dirGradC2,dirGradC3,dirGradC4,dirGradC5,dirGradC6,dirGradC7,dirGradC8,dirGradC9,dirGradC10,dirGradC11,dirGradC12;
double dirGradC13,dirGradC14,dirGradC15,dirGradC16,dirGradC17,dirGradC18;
double dirGradM1,dirGradM2,dirGradM3,dirGradM4,dirGradM5,dirGradM6,dirGradM7,dirGradM8,dirGradM9,dirGradM10,dirGradM11,dirGradM12;
double dirGradM13,dirGradM14,dirGradM15,dirGradM16,dirGradM17,dirGradM18;
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
double h0,h1,h2,h3,h4,h5,h6;//distributions for LB phase field
double tau;//position dependent LB relaxation time for fluid
double C,theta;
double M = 2.0/9.0*(tauM-0.5);//diffusivity (or mobility) for the phase field D3Q7
apply the phase denoise without affecting the mass conservation
2021-03-29 23:28:26 -04:00
double phi_temp;
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
for (int n=start; n<finish; n++){
rho0 = Den[n];//load density
// Get the 1D index based on regular data layout
ijk = Map[n];
phi = Phi[ijk];// load phase field
apply the phase denoise without affecting the mass conservation
2021-03-29 23:28:26 -04:00
phi_temp = phi;
if (phi>1.f) phi_temp=1.0;
if (phi<-1.f) phi_temp=-1.0;
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
// local relaxation time
tau=tauA + 0.5*(1.0-phi)*(tauB-tauA);
// COMPUTE THE COLOR GRADIENT
//........................................................................
//.................Read Phase Indicator Values............................
//........................................................................
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
nn = ijk-1; // neighbor index (get convention)
m2 = Phi[nn]; // get neighbor for phi - 1
//........................................................................
nn = ijk+1; // neighbor index (get convention)
m1 = Phi[nn]; // get neighbor for phi - 2
dirGradC1 = 0.5*(m1-m2);
dirGradC2 = 0.5*(m2-m1);
//........................................................................
nn = ijk-strideY; // neighbor index (get convention)
m4 = Phi[nn]; // get neighbor for phi - 3
//........................................................................
nn = ijk+strideY; // neighbor index (get convention)
m3 = Phi[nn]; // get neighbor for phi - 4
dirGradC3 = 0.5*(m3-m4);
dirGradC4 = 0.5*(m4-m3);
//........................................................................
nn = ijk-strideZ; // neighbor index (get convention)
m6 = Phi[nn]; // get neighbor for phi - 5
//........................................................................
nn = ijk+strideZ; // neighbor index (get convention)
m5 = Phi[nn]; // get neighbor for phi - 6
dirGradC5 = 0.5*(m5-m6);
dirGradC6 = 0.5*(m6-m5);
//........................................................................
nn = ijk-strideY-1; // neighbor index (get convention)
m8 = Phi[nn]; // get neighbor for phi - 7
//........................................................................
nn = ijk+strideY+1; // neighbor index (get convention)
m7 = Phi[nn]; // get neighbor for phi - 8
dirGradC7 = 0.5*(m7-m8);
dirGradC8 = 0.5*(m8-m7);
//........................................................................
nn = ijk+strideY-1; // neighbor index (get convention)
m10 = Phi[nn]; // get neighbor for phi - 9
//........................................................................
nn = ijk-strideY+1; // neighbor index (get convention)
m9 = Phi[nn]; // get neighbor for phi - 10
dirGradC9 = 0.5*(m9-m10);
dirGradC10 = 0.5*(m10-m9);
//........................................................................
nn = ijk-strideZ-1; // neighbor index (get convention)
m12 = Phi[nn]; // get neighbor for phi - 11
//........................................................................
nn = ijk+strideZ+1; // neighbor index (get convention)
m11 = Phi[nn]; // get neighbor for phi - 12
dirGradC11 = 0.5*(m11-m12);
dirGradC12 = 0.5*(m12-m11);
//........................................................................
nn = ijk+strideZ-1; // neighbor index (get convention)
m14 = Phi[nn]; // get neighbor for phi - 13
//........................................................................
nn = ijk-strideZ+1; // neighbor index (get convention)
m13 = Phi[nn]; // get neighbor for phi - 14
dirGradC13 = 0.5*(m13-m14);
dirGradC14 = 0.5*(m14-m13);
//........................................................................
nn = ijk-strideZ-strideY; // neighbor index (get convention)
m16 = Phi[nn]; // get neighbor for phi - 15
//........................................................................
nn = ijk+strideZ+strideY; // neighbor index (get convention)
m15 = Phi[nn]; // get neighbor for phi - 16
dirGradC15 = 0.5*(m15-m16);
dirGradC16 = 0.5*(m16-m15);
//........................................................................
nn = ijk+strideZ-strideY; // neighbor index (get convention)
m18 = Phi[nn]; // get neighbor for phi - 17
//........................................................................
nn = ijk-strideZ+strideY; // neighbor index (get convention)
m17 = Phi[nn]; // get neighbor for phi - 18
dirGradC17 = 0.5*(m17-m18);
dirGradC18 = 0.5*(m18-m17);
// compute mixed difference (Eq.30, A.Fukhari et al. JCP 315(2016) 434-457)
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
//........................................................................
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
nn2x = ijk+2; // neighbor index (get convention)
dirGradM1 = Phi[nn2x]; // get neighbor for phi - 1
dirGradM1 = 0.25*(-dirGradM1+5.0*m1-3.0*phi-m2);
//........................................................................
nn2x = ijk-2; // neighbor index (get convention)
dirGradM2 = Phi[nn2x]; // get neighbor for phi - 2
dirGradM2 = 0.25*(-dirGradM2+5.0*m2-3.0*phi-m1);
//........................................................................
nn2x = ijk+strideY*2; // neighbor index (get convention)
dirGradM3 = Phi[nn2x]; // get neighbor for phi - 3
dirGradM3 = 0.25*(-dirGradM3+5.0*m3-3.0*phi-m4);
//........................................................................
nn2x = ijk-strideY*2; // neighbor index (get convention)
dirGradM4 = Phi[nn2x]; // get neighbor for phi - 4
dirGradM4 = 0.25*(-dirGradM4+5.0*m4-3.0*phi-m3);
//........................................................................
nn2x = ijk+strideZ*2; // neighbor index (get convention)
dirGradM5 = Phi[nn2x]; // get neighbor for phi - 5
dirGradM5 = 0.25*(-dirGradM5+5.0*m5-3.0*phi-m6);
//........................................................................
nn2x = ijk-strideZ*2; // neighbor index (get convention)
dirGradM6 = Phi[nn2x]; // get neighbor for phi - 6
dirGradM6 = 0.25*(-dirGradM6+5.0*m6-3.0*phi-m5);
//........................................................................
nn2x = ijk+strideY*2+2; // neighbor index (get convention)
dirGradM7 = Phi[nn2x]; // get neighbor for phi - 7
dirGradM7 = 0.25*(-dirGradM7+5.0*m7-3.0*phi-m8);
//........................................................................
nn2x = ijk-strideY*2-2; // neighbor index (get convention)
dirGradM8 = Phi[nn2x]; // get neighbor for phi - 8
dirGradM8 = 0.25*(-dirGradM8+5.0*m8-3.0*phi-m7);
//........................................................................
nn2x = ijk-strideY*2+2; // neighbor index (get convention)
dirGradM9 = Phi[nn2x]; // get neighbor for phi - 9
dirGradM9 = 0.25*(-dirGradM9+5.0*m9-3.0*phi-m10);
//........................................................................
nn2x = ijk+strideY*2-2; // neighbor index (get convention)
dirGradM10 = Phi[nn2x]; // get neighbor for phi - 10
dirGradM10 = 0.25*(-dirGradM10+5.0*m10-3.0*phi-m9);
//........................................................................
nn2x = ijk+strideZ*2+2; // neighbor index (get convention)
dirGradM11 = Phi[nn2x]; // get neighbor for phi - 11
dirGradM11 = 0.25*(-dirGradM11+5.0*m11-3.0*phi-m12);
//........................................................................
nn2x = ijk-strideZ*2-2; // neighbor index (get convention)
dirGradM12 = Phi[nn2x]; // get neighbor for phi - 12
dirGradM12 = 0.25*(-dirGradM12+5.0*m12-3.0*phi-m11);
//........................................................................
nn2x = ijk-strideZ*2+2; // neighbor index (get convention)
dirGradM13 = Phi[nn2x]; // get neighbor for phi - 13
dirGradM13 = 0.25*(-dirGradM13+5.0*m13-3.0*phi-m14);
//........................................................................
nn2x = ijk+strideZ*2-2; // neighbor index (get convention)
dirGradM14 = Phi[nn2x]; // get neighbor for phi - 14
dirGradM14 = 0.25*(-dirGradM14+5.0*m14-3.0*phi-m13);
//........................................................................
nn2x = ijk+strideZ*2+strideY*2; // neighbor index (get convention)
dirGradM15 = Phi[nn2x]; // get neighbor for phi - 15
dirGradM15 = 0.25*(-dirGradM15+5.0*m15-3.0*phi-m16);
//........................................................................
nn2x = ijk-strideZ*2-strideY*2; // neighbor index (get convention)
dirGradM16 = Phi[nn2x]; // get neighbor for phi - 16
dirGradM16 = 0.25*(-dirGradM16+5.0*m16-3.0*phi-m15);
//........................................................................
nn2x = ijk-strideZ*2+strideY*2; // neighbor index (get convention)
dirGradM17 = Phi[nn2x]; // get neighbor for phi - 17
dirGradM17 = 0.25*(-dirGradM17+5.0*m17-3.0*phi-m18);
//........................................................................
nn2x = ijk+strideZ*2-strideY*2; // neighbor index (get convention)
dirGradM18 = Phi[nn2x]; // get neighbor for phi - 18
dirGradM18 = 0.25*(-dirGradM18+5.0*m18-3.0*phi-m17);
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
//............Compute the Color Gradient...................................
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
nx = 3.0*1.0/18.0*(dirGradC1-dirGradC2+0.5*(dirGradC7-dirGradC8+dirGradC9-dirGradC10+dirGradC11-dirGradC12+dirGradC13-dirGradC14));
ny = 3.0*1.0/18.0*(dirGradC3-dirGradC4+0.5*(dirGradC7-dirGradC8-dirGradC9+dirGradC10+dirGradC15-dirGradC16+dirGradC17-dirGradC18));
nz = 3.0*1.0/18.0*(dirGradC5-dirGradC6+0.5*(dirGradC11-dirGradC12-dirGradC13+dirGradC14+dirGradC15-dirGradC16-dirGradC17+dirGradC18));
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
//............Compute the Chemical Potential...............................
apply the phase denoise without affecting the mass conservation
2021-03-29 23:28:26 -04:00
//chem = 2.0*3.0/18.0*(m1+m2+m3+m4+m5+m6-6*phi+0.5*(m7+m8+m9+m10+m11+m12+m13+m14+m15+m16+m17+m18-12*phi));//intermediate var, i.e. the laplacian
//chem = 4.0*beta*phi*(phi+1.0)*(phi-1.0)-kappa*chem;
chem = 2.0*3.0/18.0*(m1+m2+m3+m4+m5+m6-6*phi_temp+0.5*(m7+m8+m9+m10+m11+m12+m13+m14+m15+m16+m17+m18-12*phi_temp));//intermediate var, i.e. the laplacian
chem = 4.0*beta*phi_temp*(phi_temp+1.0)*(phi_temp-1.0)-kappa*chem;
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
//............Compute the Mixed Gradient...................................
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
mgx = 3.0*1.0/18.0*(dirGradM1-dirGradM2+0.5*(dirGradM7-dirGradM8+dirGradM9-dirGradM10+dirGradM11-dirGradM12+dirGradM13-dirGradM14));
mgy = 3.0*1.0/18.0*(dirGradM3-dirGradM4+0.5*(dirGradM7-dirGradM8-dirGradM9+dirGradM10+dirGradM15-dirGradM16+dirGradM17-dirGradM18));
mgz = 3.0*1.0/18.0*(dirGradM5-dirGradM6+0.5*(dirGradM11-dirGradM12-dirGradM13+dirGradM14+dirGradM15-dirGradM16-dirGradM17+dirGradM18));
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
//de-noise color gradient and mixed gradient
C = sqrt(nx*nx+ny*ny+nz*nz);
if (C<1.0e-12) nx=ny=nz=0.0;
double mg_mag = sqrt(mgx*mgx+mgy*mgy+mgz*mgz);
if (mg_mag<1.0e-12) mgx=mgy=mgz=0.0;
apply the phase denoise without affecting the mass conservation
2021-03-29 23:28:26 -04:00
//maybe you can also de-noise chemical potential ? within the bulk phase chem should be ZERO
fix a few dumb typo
2021-03-25 08:18:22 -04:00
if (fabs(chem)<1.0e-12) chem=0.0;
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
// q=0
m0 = dist[n];
// q=1
m1 = dist[2*Np+n];
// q=2
m2 = dist[1*Np+n];
// q=3
m3 = dist[4*Np+n];
// q = 4
m4 = dist[3*Np+n];
// q=5
m5 = dist[6*Np+n];
// q = 6
m6 = dist[5*Np+n];
// q=7
m7 = dist[8*Np+n];
// q = 8
m8 = dist[7*Np+n];
// q=9
m9 = dist[10*Np+n];
// q = 10
m10 = dist[9*Np+n];
// q=11
m11 = dist[12*Np+n];
// q=12
m12 = dist[11*Np+n];
// q=13
m13 = dist[14*Np+n];
// q=14
m14 = dist[13*Np+n];
// q=15
m15 = dist[16*Np+n];
// q=16
m16 = dist[15*Np+n];
// q=17
m17 = dist[18*Np+n];
// q=18
m18 = dist[17*Np+n];
//compute fluid velocity
ux = 3.0/rho0*(m1-m2+m7-m8+m9-m10+m11-m12+m13-m14+0.5*(chem*nx+Fx)/3.0);
uy = 3.0/rho0*(m3-m4+m7-m8-m9+m10+m15-m16+m17-m18+0.5*(chem*ny+Fy)/3.0);
uz = 3.0/rho0*(m5-m6+m11-m12-m13+m14+m15-m16-m17+m18+0.5*(chem*nz+Fz)/3.0);
//compute pressure
p = (m0+m2+m1+m4+m3+m6+m5+m8+m7+m10+m9+m12+m11+m14+m13+m16+m15+m18+m17)
+0.5*(rhoA-rhoB)/2.0/3.0*(ux*nx+uy*ny+uz*nz);
//compute equilibrium distributions
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
feq0 = 0.3333333333333333*p - 0.25*(Fx*ux + Fy*uy + Fz*uz)*(-0.6666666666666666 + ux*ux + uy*uy + uz*uz) - 0.16666666666666666*rho0*(ux*ux + uy*uy + uz*uz) -
0.5*(-(nx*ux) - ny*uy - nz*uz)*(-0.08333333333333333*(rhoA - rhoB)*(ux*ux + uy*uy + uz*uz) + chem*(0.3333333333333333 - 0.5*(ux*ux + uy*uy + uz*uz)));
feq1 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-(ux*ux) + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*uz)) -
0.125*(Fx*(-1. + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*(ux*ux) + 0.3333333333333333*(-2.*ux + ux*ux + uy*uy + uz*uz)) -
0.0625*(dirGradC1 - nx*ux - ny*uy - nz*uz)*(2*chem*(ux*ux) - 0.3333333333333333*((-rhoA + rhoB)*(ux*ux) + 2*chem*(-2*ux + ux*ux + uy*uy + uz*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*uz)));
feq2 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-(ux*ux) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*uz)) -
0.125*(Fx + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*(ux*ux) + 0.3333333333333333*(2.*ux + ux*ux + uy*uy + uz*uz)) -
0.0625*(dirGradC2 - nx*ux - ny*uy - nz*uz)*(2*chem*(ux*ux) - 0.3333333333333333*((-rhoA + rhoB)*(ux*ux) + 2*chem*(2*ux + ux*ux + uy*uy + uz*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + uz*uz)));
feq3 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-(uy*uy) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*uz)) -
0.125*(Fx*ux + Fy*(-1. + uy) + Fz*uz)*(-0.2222222222222222 - 1.*(uy*uy) + 0.3333333333333333*(ux*ux - 2.*uy + uy*uy + uz*uz)) -
0.0625*(dirGradC3 - nx*ux - ny*uy - nz*uz)*(2*chem*(uy*uy) - 0.3333333333333333*((-rhoA + rhoB)*(uy*uy) + 2*chem*(ux*ux - 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*uz)));
feq4 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-(uy*uy) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*uz)) -
0.125*(Fy + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*(uy*uy) + 0.3333333333333333*(ux*ux + 2.*uy + uy*uy + uz*uz)) -
0.0625*(dirGradC4 - nx*ux - ny*uy - nz*uz)*(2*chem*(uy*uy) - 0.3333333333333333*((-rhoA + rhoB)*(uy*uy) + 2*chem*(ux*ux + 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + uz*uz)));
feq5 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-(uz*uz) + 0.3333333333333333*(ux*ux + uy*uy + (-2 + uz)*uz)) -
0.125*(Fx*ux + Fy*uy + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*(uz*uz) + 0.3333333333333333*(ux*ux + uy*uy + (-2. + uz)*uz)) -
0.0625*(dirGradC5 - nx*ux - ny*uy - nz*uz)*(2*chem*(uz*uz) - 0.3333333333333333*((-rhoA + rhoB)*(uz*uz) + 2*chem*(ux*ux + uy*uy + (-2 + uz)*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(ux*ux + uy*uy + (-2 + uz)*uz)));
feq6 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-(uz*uz) + 0.3333333333333333*(ux*ux + uy*uy + uz*(2 + uz))) -
0.125*(Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*(uz*uz) + 0.3333333333333333*(ux*ux + uy*uy + uz*(2. + uz))) -
0.0625*(dirGradC6 - nx*ux - ny*uy - nz*uz)*(2*chem*(uz*uz) - 0.3333333333333333*((-rhoA + rhoB)*(uz*uz) + 2*chem*(ux*ux + uy*uy + uz*(2 + uz))) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(ux*ux + uy*uy + uz*(2 + uz))));
feq7 = 0.027777777777777776*p - 0.041666666666666664*rho0*(-((ux + uy)*(ux + uy)) + 0.3333333333333333*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) -
0.0625*(Fx*(-1. + ux) + Fy*(-1. + uy) + Fz*uz)*(-0.2222222222222222 - 1.*(ux*ux) - 2.*ux*uy - 1.*(uy*uy) +
0.3333333333333333*(-2.*ux + ux*ux - 2.*uy + uy*uy + uz*uz)) -
0.03125*(dirGradC7 - nx*ux - ny*uy - nz*uz)*(2*chem*((ux + uy)*(ux + uy)) +
0.3333333333333333*((rhoA - rhoB)*((ux + uy)*(ux + uy)) - 2*chem*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)));
feq8 = 0.027777777777777776*p - 0.041666666666666664*rho0*(-((ux + uy)*(ux + uy)) + 0.3333333333333333*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) -
0.0625*(Fx + Fy + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*(ux*ux) - 2.*ux*uy - 1.*(uy*uy) +
0.3333333333333333*(2.*ux + ux*ux + 2.*uy + uy*uy + uz*uz)) -
0.03125*(dirGradC8 - nx*ux - ny*uy - nz*uz)*(2*chem*((ux + uy)*(ux + uy)) -
0.3333333333333333*(-((rhoA - rhoB)*((ux + uy)*(ux + uy))) + 2*chem*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)));
feq9 = 0.027777777777777776*p - 0.041666666666666664*rho0*(-((ux - uy)*(ux - uy)) + 0.3333333333333333*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) -
0.0625*(Fy + Fx*(-1. + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*(ux*ux) + 2.*ux*uy - 1.*(uy*uy) +
0.3333333333333333*(-2.*ux + ux*ux + 2.*uy + uy*uy + uz*uz)) -
0.03125*(dirGradC9 - nx*ux - ny*uy - nz*uz)*(2*chem*((ux - uy)*(ux - uy)) -
0.3333333333333333*(-((rhoA - rhoB)*((ux - uy)*(ux - uy))) + 2*chem*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)));
feq10 = 0.027777777777777776*p - 0.041666666666666664*rho0*(-((ux - uy)*(ux - uy)) + 0.3333333333333333*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) -
0.0625*(Fx*(1 + ux) + Fy*(-1. + uy) + Fz*uz)*(-0.2222222222222222 - 1.*(ux*ux) + 2.*ux*uy - 1.*(uy*uy) +
0.3333333333333333*(2.*ux + ux*ux - 2.*uy + uy*uy + uz*uz)) -
0.03125*(dirGradC10 - nx*ux - ny*uy - nz*uz)*(2*chem*((ux - uy)*(ux - uy)) -
0.3333333333333333*(-((rhoA - rhoB)*((ux - uy)*(ux - uy))) + 2*chem*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)));
feq11 = 0.027777777777777776*p - 0.041666666666666664*rho0*(-((ux + uz)*(ux + uz)) + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) -
0.0625*(Fx*(-1. + ux) + Fy*uy + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*(ux*ux) - 2.*ux*uz - 1.*(uz*uz) +
0.3333333333333333*(-2.*ux + ux*ux + uy*uy + (-2. + uz)*uz)) -
0.03125*(dirGradC11 - nx*ux - ny*uy - nz*uz)*(2*chem*((ux + uz)*(ux + uz)) +
0.3333333333333333*((rhoA - rhoB)*((ux + uz)*(ux + uz)) - 2*chem*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)));
feq12 = 0.027777777777777776*p - 0.041666666666666664*rho0*(-((ux + uz)*(ux + uz)) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*(2 + uz))) -
0.0625*(Fx + Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*(ux*ux) - 2.*ux*uz - 1.*(uz*uz) +
0.3333333333333333*(2.*ux + ux*ux + uy*uy + uz*(2. + uz))) -
0.03125*(dirGradC12 - nx*ux - ny*uy - nz*uz)*(2*chem*((ux + uz)*(ux + uz)) -
0.3333333333333333*(-((rhoA - rhoB)*((ux + uz)*(ux + uz))) + 2*chem*(2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + uz*(2 + uz))));
feq13 = 0.027777777777777776*p - 0.041666666666666664*rho0*(-((ux - uz)*(ux - uz)) + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) -
0.0625*(Fz + Fx*(-1. + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*(ux*ux) + 2.*ux*uz - 1.*(uz*uz) +
0.3333333333333333*(-2.*ux + ux*ux + uy*uy + uz*(2. + uz))) -
0.03125*(dirGradC13 - nx*ux - ny*uy - nz*uz)*(2*chem*((ux - uz)*(ux - uz)) -
0.3333333333333333*(-((rhoA - rhoB)*((ux - uz)*(ux - uz))) + 2*chem*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))));
feq14 = 0.027777777777777776*p - 0.041666666666666664*rho0*(-((ux - uz)*(ux - uz)) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) -
0.0625*(Fx*(1 + ux) + Fy*uy + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*(ux*ux) + 2.*ux*uz - 1.*(uz*uz) +
0.3333333333333333*(2.*ux + ux*ux + uy*uy + (-2. + uz)*uz)) -
0.03125*(dirGradC14 - nx*ux - ny*uy - nz*uz)*(2*chem*((ux - uz)*(ux - uz)) -
0.3333333333333333*(-((rhoA - rhoB)*((ux - uz)*(ux - uz))) + 2*chem*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)));
feq15 = 0.027777777777777776*p - 0.041666666666666664*rho0*(-((uy + uz)*(uy + uz)) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)) -
0.0625*(Fx*ux + Fy*(-1. + uy) + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*(uy*uy) - 2.*uy*uz - 1.*(uz*uz) +
0.3333333333333333*(ux*ux - 2.*uy + uy*uy + (-2. + uz)*uz)) -
0.03125*(dirGradC15 - nx*ux - ny*uy - nz*uz)*(2*chem*((uy + uz)*(uy + uz)) +
0.3333333333333333*((rhoA - rhoB)*((uy + uz)*(uy + uz)) - 2*chem*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)));
feq16 = 0.027777777777777776*p - 0.041666666666666664*rho0*(-((uy + uz)*(uy + uz)) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))) -
0.0625*(Fy + Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*(uy*uy) - 2.*uy*uz - 1.*(uz*uz) +
0.3333333333333333*(ux*ux + 2.*uy + uy*uy + uz*(2. + uz))) -
0.03125*(dirGradC16 - nx*ux - ny*uy - nz*uz)*(2*chem*((uy + uz)*(uy + uz)) -
0.3333333333333333*(-((rhoA - rhoB)*((uy + uz)*(uy + uz))) + 2*chem*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))));
feq17 = 0.027777777777777776*p - 0.041666666666666664*rho0*(-((uy - uz)*(uy - uz)) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))) -
0.0625*(Fz + Fx*ux + Fy*(-1. + uy) + Fz*uz)*(-0.2222222222222222 - 1.*(uy*uy) + 2.*uy*uz - 1.*(uz*uz) +
0.3333333333333333*(ux*ux - 2.*uy + uy*uy + uz*(2. + uz))) -
0.03125*(dirGradC17 - nx*ux - ny*uy - nz*uz)*(2*chem*((uy - uz)*(uy - uz)) -
0.3333333333333333*(-((rhoA - rhoB)*((uy - uz)*(uy - uz))) + 2*chem*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))));
feq18 = 0.027777777777777776*p - 0.041666666666666664*rho0*(-((uy - uz)*(uy - uz)) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) -
0.0625*(Fx*ux + Fy*(1 + uy) + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*(uy*uy) + 2.*uy*uz - 1.*(uz*uz) +
0.3333333333333333*(ux*ux + 2.*uy + uy*uy + (-2. + uz)*uz)) -
0.03125*(dirGradC18 - nx*ux - ny*uy - nz*uz)*(2*chem*((uy - uz)*(uy - uz)) -
0.3333333333333333*(-((rhoA - rhoB)*((uy - uz)*(uy - uz))) + 2*chem*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) +
0.1111111111111111*(4*chem - (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)));
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
//------------------------------------------------- BCK collison ------------------------------------------------------------//
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q=0
dist[n] = m0 - (m0-feq0)/tau + 0.25*(2*(Fx*ux + Fy*uy + Fz*uz)*(-0.6666666666666666 + ux*ux + uy*uy + uz*uz) +
(mgx*ux + mgy*uy + mgz*uz)*(2*chem*(ux*ux + uy*uy + uz*uz) + 0.3333333333333333*(-4*chem + (rhoA - rhoB)*(ux*ux + uy*uy + uz*uz))));
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 1
dist[1*Np+n] = m1 - (m1-feq1)/tau + 0.125*(2*(Fx*(-1 + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - ux*ux + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*uz)) -
(dirGradM1 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*(ux*ux) + 0.3333333333333333*((-rhoA + rhoB)*(ux*ux) + 2*chem*(-2*ux + ux*ux + uy*uy + uz*uz)) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*uz))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q=2
dist[2*Np+n] = m2 - (m2-feq2)/tau + 0.125*(2*(Fx + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - ux*ux + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*uz)) -
(dirGradM2 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*(ux*ux) + 0.3333333333333333*((-rhoA + rhoB)*(ux*ux) + 2*chem*(2*ux + ux*ux + uy*uy + uz*uz)) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + uz*uz))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 3
dist[3*Np+n] = m3 - (m3-feq3)/tau + 0.125*(2*(Fx*ux + Fy*(-1 + uy) + Fz*uz)*(-0.2222222222222222 - uy*uy + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*uz)) -
(dirGradM3 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*(uy*uy) + 0.3333333333333333*((-rhoA + rhoB)*(uy*uy) + 2*chem*(ux*ux - 2*uy + uy*uy + uz*uz)) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*uz))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 4
dist[4*Np+n] = m4 - (m4-feq4)/tau + 0.125*(2*(Fy + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - uy*uy + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*uz)) -
(dirGradM4 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*(uy*uy) + 0.3333333333333333*((-rhoA + rhoB)*(uy*uy) + 2*chem*(ux*ux + 2*uy + uy*uy + uz*uz)) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + uz*uz))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 5
dist[5*Np+n] = m5 - (m5-feq5)/tau + 0.125*(2*(Fx*ux + Fy*uy + Fz*(-1 + uz))*(-0.2222222222222222 - uz*uz + 0.3333333333333333*(ux*ux + uy*uy + (-2 + uz)*uz)) -
(dirGradM5 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*(uz*uz) + 0.3333333333333333*((-rhoA + rhoB)*(uz*uz) + 2*chem*(ux*ux + uy*uy + (-2 + uz)*uz)) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + uy*uy + (-2 + uz)*uz))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 6
dist[6*Np+n] = m6 - (m6-feq6)/tau + 0.125*(2*(Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - uz*uz + 0.3333333333333333*(ux*ux + uy*uy + uz*(2 + uz))) -
(dirGradM6 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*(uz*uz) + 0.3333333333333333*((-rhoA + rhoB)*(uz*uz) + 2*chem*(ux*ux + uy*uy + uz*(2 + uz))) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + uy*uy + uz*(2 + uz)))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 7
dist[7*Np+n] = m7 - (m7-feq7)/tau + 0.0625*(-2*(Fx*(-1 + ux) + Fy*(-1 + uy) + Fz*uz)*(0.2222222222222222 + (ux + uy)*(ux + uy) - 0.3333333333333333*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) -
(dirGradM7 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*((ux + uy)*(ux + uy)) +
0.3333333333333333*(-((rhoA - rhoB)*((ux + uy)*(ux + uy))) + 2*chem*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 8
dist[8*Np+n] = m8 - (m8-feq8)/tau + 0.0625*(2*(Fx + Fy + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - (ux + uy)*(ux + uy) + 0.3333333333333333*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) -
(dirGradM8 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*((ux + uy)*(ux + uy)) +
0.3333333333333333*(-((rhoA - rhoB)*((ux + uy)*(ux + uy))) + 2*chem*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 9
dist[9*Np+n] = m9 - (m9-feq9)/tau + 0.0625*(2*(Fy + Fx*(-1 + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - (ux - uy)*(ux - uy) + 0.3333333333333333*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) -
(dirGradM9 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*((ux - uy)*(ux - uy)) +
0.3333333333333333*(-((rhoA - rhoB)*((ux - uy)*(ux - uy))) + 2*chem*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 10
dist[10*Np+n] = m10 - (m10-feq10)/tau + 0.0625*(2*(Fx*(1 + ux) + Fy*(-1 + uy) + Fz*uz)*(-0.2222222222222222 - (ux - uy)*(ux - uy) + 0.3333333333333333*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) -
(dirGradM10 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*((ux - uy)*(ux - uy)) +
0.3333333333333333*(-((rhoA - rhoB)*((ux - uy)*(ux - uy))) + 2*chem*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 11
dist[11*Np+n] = m11 - (m11-feq11)/tau + 0.0625*(-2*(Fx*(-1 + ux) + Fy*uy + Fz*(-1 + uz))*(0.2222222222222222 + (ux + uz)*(ux + uz) - 0.3333333333333333*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) -
(dirGradM11 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*((ux + uz)*(ux + uz)) +
0.3333333333333333*(-((rhoA - rhoB)*((ux + uz)*(ux + uz))) + 2*chem*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 12
dist[12*Np+n] = m12 - (m12-feq12)/tau + 0.0625*(2*(Fx + Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - (ux + uz)*(ux + uz) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*(2 + uz))) -
(dirGradM12 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*((ux + uz)*(ux + uz)) +
0.3333333333333333*(-((rhoA - rhoB)*((ux + uz)*(ux + uz))) + 2*chem*(2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + uz*(2 + uz)))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 13
dist[13*Np+n] = m13 - (m13-feq13)/tau + 0.0625*(2*(Fz + Fx*(-1 + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - (ux - uz)*(ux - uz) + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) -
(dirGradM13 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*((ux - uz)*(ux - uz)) +
0.3333333333333333*(-((rhoA - rhoB)*((ux - uz)*(ux - uz))) + 2*chem*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*(2 + uz)))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q= 14
dist[14*Np+n] = m14 - (m14-feq14)/tau + 0.0625*(2*(Fx*(1 + ux) + Fy*uy + Fz*(-1 + uz))*(-0.2222222222222222 - (ux - uz)*(ux - uz) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) -
(dirGradM14 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*((ux - uz)*(ux - uz)) +
0.3333333333333333*(-((rhoA - rhoB)*((ux - uz)*(ux - uz))) + 2*chem*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 15
dist[15*Np+n] = m15 - (m15-feq15)/tau + 0.0625*(-2*(Fx*ux + Fy*(-1 + uy) + Fz*(-1 + uz))*(0.2222222222222222 + (uy + uz)*(uy + uz) - 0.3333333333333333*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)) -
(dirGradM15 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*((uy + uz)*(uy + uz)) +
0.3333333333333333*(-((rhoA - rhoB)*((uy + uz)*(uy + uz))) + 2*chem*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 16
dist[16*Np+n] = m16 - (m16-feq16)/tau + 0.0625*(2*(Fy + Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - (uy + uz)*(uy + uz) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))) -
(dirGradM16 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*((uy + uz)*(uy + uz)) +
0.3333333333333333*(-((rhoA - rhoB)*((uy + uz)*(uy + uz))) + 2*chem*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + uz*(2 + uz)))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 17
dist[17*Np+n] = m17 - (m17-feq17)/tau + 0.0625*(2*(Fz + Fx*ux + Fy*(-1 + uy) + Fz*uz)*(-0.2222222222222222 - (uy - uz)*(uy - uz) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))) -
(dirGradM17 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*((uy - uz)*(uy - uz)) +
0.3333333333333333*(-((rhoA - rhoB)*((uy - uz)*(uy - uz))) + 2*chem*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*(2 + uz)))));
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// q = 18
dist[18*Np+n] = m18 - (m18-feq18)/tau + 0.0625*(2*(Fx*ux + Fy*(1 + uy) + Fz*(-1 + uz))*(-0.2222222222222222 - (uy - uz)*(uy - uz) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) -
(dirGradM18 - mgx*ux - mgy*uy - mgz*uz)*(-2*chem*((uy - uz)*(uy - uz)) +
0.3333333333333333*(-((rhoA - rhoB)*((uy - uz)*(uy - uz))) + 2*chem*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) +
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz))));
//----------------------------------------------------------------------------------------------------------------------------------------//
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// ----------------------------- compute phase field evolution ----------------------------------------
//Normalize the Color Gradient
C = sqrt(nx*nx+ny*ny+nz*nz);
double ColorMag = C;
if (C==0.0) ColorMag=1.0;
nx = nx/ColorMag;
ny = ny/ColorMag;
nz = nz/ColorMag;
//compute surface tension-related parameter
//theta = 4.5*M*2.0*(1-phi*phi)/W;
theta = 4.5*M*2.0*(1-phi_temp*phi_temp)/W;
//load distributions of phase field
//q=0
h0 = hq[n];
//q=1
h1 = hq[2*Np+n];
//q=2
h2 = hq[1*Np+n];
//q=3
h3 = hq[4*Np+n];
//q=4
h4 = hq[3*Np+n];
//q=5
h5 = hq[6*Np+n];
//q=6
h6 = hq[5*Np+n];
//-------------------------------- BGK collison for phase field ---------------------------------//
// q = 0
hq[n] = h0 - (h0 - 0.3333333333333333*phi)/tauM;
// q = 1
hq[1*Np+n] = h1 - (h1 - 0.1111111111111111*nx*theta - phi*(0.1111111111111111 + 0.5*ux))/tauM;
// q = 2
hq[2*Np+n] = h2 - (h2 + 0.1111111111111111*nx*theta - phi*(0.1111111111111111 - 0.5*ux))/tauM;
// q = 3
hq[3*Np+n] = h3 - (h3 - 0.1111111111111111*ny*theta - phi*(0.1111111111111111 + 0.5*uy))/tauM;
// q = 4
hq[4*Np+n] = h4 - (h4 + 0.1111111111111111*ny*theta - phi*(0.1111111111111111 - 0.5*uy))/tauM;
// q = 5
hq[5*Np+n] = h5 - (h5 - 0.1111111111111111*nz*theta - phi*(0.1111111111111111 + 0.5*uz))/tauM;
// q = 6
hq[6*Np+n] = h6 - (h6 + 0.1111111111111111*nz*theta - phi*(0.1111111111111111 - 0.5*uz))/tauM;
//........................................................................
//Update velocity on device
Vel[0*Np+n] = ux;
Vel[1*Np+n] = uy;
Vel[2*Np+n] = uz;
//Update pressure on device
Pressure[n] = p;
//Update chemical potential on device
mu_phi[n] = chem;
//Update color gradient on device
ColorGrad[0*Np+n] = nx;
ColorGrad[1*Np+n] = ny;
ColorGrad[2*Np+n] = nz;
}
}
//extern "C" void ScaLBL_D3Q19_AAodd_FreeLeeModel_Combined(int *neighborList, int *Map, double *dist, double *hq, double *Den, double *Phi, double *mu_phi, double *Vel, double *Pressure, double *ColorGrad,
// double rhoA, double rhoB, double tauA, double tauB, double tauM, double kappa, double beta, double W, double Fx, double Fy, double Fz,
// int strideY, int strideZ, int start, int finish, int Np){
//
// int n,nn,nn2x,ijk;
// int nr1,nr2,nr3,nr4,nr5,nr6,nr7,nr8,nr9,nr10,nr11,nr12,nr13,nr14,nr15,nr16,nr17,nr18;
// double ux,uy,uz;//fluid velocity
// double p;//pressure
// double chem;//chemical potential
// double phi; //phase field
// double rho0;//fluid density
// // distribution functions
// double m1,m2,m4,m6,m8,m9,m10,m11,m12,m13,m14,m15,m16,m17,m18;
// double m0,m3,m5,m7;
// double mm1,mm2,mm4,mm6,mm8,mm9,mm10,mm11,mm12,mm13,mm14,mm15,mm16,mm17,mm18;
// double mm3,mm5,mm7;
// double feq0,feq1,feq2,feq3,feq4,feq5,feq6,feq7,feq8,feq9,feq10,feq11,feq12,feq13,feq14,feq15,feq16,feq17,feq18;
// double nx,ny,nz;//normal color gradient
// double mgx,mgy,mgz;//mixed gradient reaching secondary neighbor
//
// double h0,h1,h2,h3,h4,h5,h6;//distributions for LB phase field
// double tau;//position dependent LB relaxation time for fluid
// double C,theta;
// double M = 2.0/9.0*(tauM-0.5);//diffusivity (or mobility) for the phase field D3Q7
// double phi_temp;
//
// for (int n=start; n<finish; n++){
//
// rho0 = Den[n];//load density
//
// // Get the 1D index based on regular data layout
// ijk = Map[n];
// phi = Phi[ijk];// load phase field
// phi_temp = phi;
// if (phi>1.f) phi_temp=1.0;
// if (phi<-1.f) phi_temp=-1.0;
//
// // local relaxation time
// tau=tauA + 0.5*(1.0-phi)*(tauB-tauA);
//
// // COMPUTE THE COLOR GRADIENT
// //........................................................................
// //.................Read Phase Indicator Values............................
// //........................................................................
// nn = ijk-1; // neighbor index (get convention)
// m1 = Phi[nn]; // get neighbor for phi - 1
// //........................................................................
// nn = ijk+1; // neighbor index (get convention)
// m2 = Phi[nn]; // get neighbor for phi - 2
// //........................................................................
// nn = ijk-strideY; // neighbor index (get convention)
// m3 = Phi[nn]; // get neighbor for phi - 3
// //........................................................................
// nn = ijk+strideY; // neighbor index (get convention)
// m4 = Phi[nn]; // get neighbor for phi - 4
// //........................................................................
// nn = ijk-strideZ; // neighbor index (get convention)
// m5 = Phi[nn]; // get neighbor for phi - 5
// //........................................................................
// nn = ijk+strideZ; // neighbor index (get convention)
// m6 = Phi[nn]; // get neighbor for phi - 6
// //........................................................................
// nn = ijk-strideY-1; // neighbor index (get convention)
// m7 = Phi[nn]; // get neighbor for phi - 7
// //........................................................................
// nn = ijk+strideY+1; // neighbor index (get convention)
// m8 = Phi[nn]; // get neighbor for phi - 8
// //........................................................................
// nn = ijk+strideY-1; // neighbor index (get convention)
// m9 = Phi[nn]; // get neighbor for phi - 9
// //........................................................................
// nn = ijk-strideY+1; // neighbor index (get convention)
// m10 = Phi[nn]; // get neighbor for phi - 10
// //........................................................................
// nn = ijk-strideZ-1; // neighbor index (get convention)
// m11 = Phi[nn]; // get neighbor for phi - 11
// //........................................................................
// nn = ijk+strideZ+1; // neighbor index (get convention)
// m12 = Phi[nn]; // get neighbor for phi - 12
// //........................................................................
// nn = ijk+strideZ-1; // neighbor index (get convention)
// m13 = Phi[nn]; // get neighbor for phi - 13
// //........................................................................
// nn = ijk-strideZ+1; // neighbor index (get convention)
// m14 = Phi[nn]; // get neighbor for phi - 14
// //........................................................................
// nn = ijk-strideZ-strideY; // neighbor index (get convention)
// m15 = Phi[nn]; // get neighbor for phi - 15
// //........................................................................
// nn = ijk+strideZ+strideY; // neighbor index (get convention)
// m16 = Phi[nn]; // get neighbor for phi - 16
// //........................................................................
// nn = ijk+strideZ-strideY; // neighbor index (get convention)
// m17 = Phi[nn]; // get neighbor for phi - 17
// //........................................................................
// nn = ijk-strideZ+strideY; // neighbor index (get convention)
// m18 = Phi[nn]; // get neighbor for phi - 18
//
// // compute mixed difference (Eq.30, A.Fukhari et al. JCP 315(2016) 434-457)
// //........................................................................
// nn2x = ijk-2; // neighbor index (get convention)
// mm1 = Phi[nn2x]; // get neighbor for phi - 1
// mm1 = 0.25*(-mm1+5.0*m1-3.0*phi-m2);
// //........................................................................
// nn2x = ijk+2; // neighbor index (get convention)
// mm2 = Phi[nn2x]; // get neighbor for phi - 2
// mm2 = 0.25*(-mm2+5.0*m2-3.0*phi-m1);
// //........................................................................
// nn2x = ijk-strideY*2; // neighbor index (get convention)
// mm3 = Phi[nn2x]; // get neighbor for phi - 3
// mm3 = 0.25*(-mm3+5.0*m3-3.0*phi-m4);
// //........................................................................
// nn2x = ijk+strideY*2; // neighbor index (get convention)
// mm4 = Phi[nn2x]; // get neighbor for phi - 4
// mm4 = 0.25*(-mm4+5.0*m4-3.0*phi-m3);
// //........................................................................
// nn2x = ijk-strideZ*2; // neighbor index (get convention)
// mm5 = Phi[nn2x]; // get neighbor for phi - 5
// mm5 = 0.25*(-mm5+5.0*m5-3.0*phi-m6);
// //........................................................................
// nn2x = ijk+strideZ*2; // neighbor index (get convention)
// mm6 = Phi[nn2x]; // get neighbor for phi - 6
// mm6 = 0.25*(-mm6+5.0*m6-3.0*phi-m5);
// //........................................................................
// nn2x = ijk-strideY*2-2; // neighbor index (get convention)
// mm7 = Phi[nn2x]; // get neighbor for phi - 7
// mm7 = 0.25*(-mm7+5.0*m7-3.0*phi-m8);
// //........................................................................
// nn2x = ijk+strideY*2+2; // neighbor index (get convention)
// mm8 = Phi[nn2x]; // get neighbor for phi - 8
// mm8 = 0.25*(-mm8+5.0*m8-3.0*phi-m7);
// //........................................................................
// nn2x = ijk+strideY*2-2; // neighbor index (get convention)
// mm9 = Phi[nn2x]; // get neighbor for phi - 9
// mm9 = 0.25*(-mm9+5.0*m9-3.0*phi-m10);
// //........................................................................
// nn2x = ijk-strideY*2+2; // neighbor index (get convention)
// mm10 = Phi[nn2x]; // get neighbor for phi - 10
// mm10 = 0.25*(-mm10+5.0*m10-3.0*phi-m9);
// //........................................................................
// nn2x = ijk-strideZ*2-2; // neighbor index (get convention)
// mm11 = Phi[nn2x]; // get neighbor for phi - 11
// mm11 = 0.25*(-mm11+5.0*m11-3.0*phi-m12);
// //........................................................................
// nn2x = ijk+strideZ*2+2; // neighbor index (get convention)
// mm12 = Phi[nn2x]; // get neighbor for phi - 12
// mm12 = 0.25*(-mm12+5.0*m12-3.0*phi-m11);
// //........................................................................
// nn2x = ijk+strideZ*2-2; // neighbor index (get convention)
// mm13 = Phi[nn2x]; // get neighbor for phi - 13
// mm13 = 0.25*(-mm13+5.0*m13-3.0*phi-m14);
// //........................................................................
// nn2x = ijk-strideZ*2+2; // neighbor index (get convention)
// mm14 = Phi[nn2x]; // get neighbor for phi - 14
// mm14 = 0.25*(-mm14+5.0*m14-3.0*phi-m13);
// //........................................................................
// nn2x = ijk-strideZ*2-strideY*2; // neighbor index (get convention)
// mm15 = Phi[nn2x]; // get neighbor for phi - 15
// mm15 = 0.25*(-mm15+5.0*m15-3.0*phi-m16);
// //........................................................................
// nn2x = ijk+strideZ*2+strideY*2; // neighbor index (get convention)
// mm16 = Phi[nn2x]; // get neighbor for phi - 16
// mm16 = 0.25*(-mm16+5.0*m16-3.0*phi-m15);
// //........................................................................
// nn2x = ijk+strideZ*2-strideY*2; // neighbor index (get convention)
// mm17 = Phi[nn2x]; // get neighbor for phi - 17
// mm17 = 0.25*(-mm17+5.0*m17-3.0*phi-m18);
// //........................................................................
// nn2x = ijk-strideZ*2+strideY*2; // neighbor index (get convention)
// mm18 = Phi[nn2x]; // get neighbor for phi - 18
// mm18 = 0.25*(-mm18+5.0*m18-3.0*phi-m17);
//
//
// //............Compute the Color Gradient...................................
// nx = -3.0*1.0/18.0*(m1-m2+0.5*(m7-m8+m9-m10+m11-m12+m13-m14));
// ny = -3.0*1.0/18.0*(m3-m4+0.5*(m7-m8-m9+m10+m15-m16+m17-m18));
// nz = -3.0*1.0/18.0*(m5-m6+0.5*(m11-m12-m13+m14+m15-m16-m17+m18));
// //............Compute the Chemical Potential...............................
// //chem = 2.0*3.0/18.0*(m1+m2+m3+m4+m5+m6-6*phi+0.5*(m7+m8+m9+m10+m11+m12+m13+m14+m15+m16+m17+m18-12*phi));//intermediate var, i.e. the laplacian
// //chem = 4.0*beta*phi*(phi+1.0)*(phi-1.0)-kappa*chem;
// chem = 2.0*3.0/18.0*(m1+m2+m3+m4+m5+m6-6*phi_temp+0.5*(m7+m8+m9+m10+m11+m12+m13+m14+m15+m16+m17+m18-12*phi_temp));//intermediate var, i.e. the laplacian
// chem = 4.0*beta*phi_temp*(phi_temp+1.0)*(phi_temp-1.0)-kappa*chem;
// //............Compute the Mixed Gradient...................................
// mgx = -3.0*1.0/18.0*(mm1-mm2+0.5*(mm7-mm8+mm9-mm10+mm11-mm12+mm13-mm14));
// mgy = -3.0*1.0/18.0*(mm3-mm4+0.5*(mm7-mm8-mm9+mm10+mm15-mm16+mm17-mm18));
// mgz = -3.0*1.0/18.0*(mm5-mm6+0.5*(mm11-mm12-mm13+mm14+mm15-mm16-mm17+mm18));
//
// //de-noise color gradient and mixed gradient
// C = sqrt(nx*nx+ny*ny+nz*nz);
// if (C<1.0e-12) nx=ny=nz=0.0;
// double mg_mag = sqrt(mgx*mgx+mgy*mgy+mgz*mgz);
// if (mg_mag<1.0e-12) mgx=mgy=mgz=0.0;
// //maybe you can also de-noise chemical potential ? within the bulk phase chem should be zero
// if (fabs(chem)<1.0e-12) chem=0.0;
//
// // q=0
// m0 = dist[n];
// // q=1
// nr1 = neighborList[n]; // neighbor 2 ( > 10Np => odd part of dist)
// m1 = dist[nr1]; // reading the f1 data into register fq
//
// nr2 = neighborList[n+Np]; // neighbor 1 ( < 10Np => even part of dist)
// m2 = dist[nr2]; // reading the f2 data into register fq
//
// // q=3
// nr3 = neighborList[n+2*Np]; // neighbor 4
// m3 = dist[nr3];
//
// // q = 4
// nr4 = neighborList[n+3*Np]; // neighbor 3
// m4 = dist[nr4];
//
// // q=5
// nr5 = neighborList[n+4*Np];
// m5 = dist[nr5];
//
// // q = 6
// nr6 = neighborList[n+5*Np];
// m6 = dist[nr6];
//
// // q=7
// nr7 = neighborList[n+6*Np];
// m7 = dist[nr7];
//
// // q = 8
// nr8 = neighborList[n+7*Np];
// m8 = dist[nr8];
//
// // q=9
// nr9 = neighborList[n+8*Np];
// m9 = dist[nr9];
//
// // q = 10
// nr10 = neighborList[n+9*Np];
// m10 = dist[nr10];
//
// // q=11
// nr11 = neighborList[n+10*Np];
// m11 = dist[nr11];
//
// // q=12
// nr12 = neighborList[n+11*Np];
// m12 = dist[nr12];
//
// // q=13
// nr13 = neighborList[n+12*Np];
// m13 = dist[nr13];
//
// // q=14
// nr14 = neighborList[n+13*Np];
// m14 = dist[nr14];
//
// // q=15
// nr15 = neighborList[n+14*Np];
// m15 = dist[nr15];
//
// // q=16
// nr16 = neighborList[n+15*Np];
// m16 = dist[nr16];
//
// // q=17
// nr17 = neighborList[n+16*Np];
// m17 = dist[nr17];
//
// // q=18
// nr18 = neighborList[n+17*Np];
// m18 = dist[nr18];
//
// //compute fluid velocity
// ux = 3.0/rho0*(m1-m2+m7-m8+m9-m10+m11-m12+m13-m14+0.5*(chem*nx+Fx)/3.0);
// uy = 3.0/rho0*(m3-m4+m7-m8-m9+m10+m15-m16+m17-m18+0.5*(chem*ny+Fy)/3.0);
// uz = 3.0/rho0*(m5-m6+m11-m12-m13+m14+m15-m16-m17+m18+0.5*(chem*nz+Fz)/3.0);
// //compute pressure
// p = (m0+m2+m1+m4+m3+m6+m5+m8+m7+m10+m9+m12+m11+m14+m13+m16+m15+m18+m17)
// +0.5*(rhoA-rhoB)/2.0/3.0*(ux*nx+uy*ny+uz*nz);
//
// //compute equilibrium distributions
// feq0 = 0.3333333333333333*p - 0.25*(Fx*ux + Fy*uy + Fz*uz)*(-0.6666666666666666 + ux*ux + uy*uy + uz*uz) -
// 0.16666666666666666*rho0*(ux*ux + uy*uy + uz*uz) - 0.5*(-(nx*ux) - ny*uy - nz*uz)*
// (-0.08333333333333333*(rhoA - rhoB)*(ux*ux + uy*uy + uz*uz) + chem*(0.3333333333333333 - 0.5*(ux*ux + uy*uy + uz*uz)));
// feq1 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-ux*ux + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*uz)) -
// 0.125*(Fx*(-1. + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux +
// 0.3333333333333333*(-2.*ux + ux*ux + uy*uy + uz*uz)) - 0.0625*(nx - nx*ux - ny*uy - nz*uz)*
// (2*chem*ux*ux - 0.3333333333333333*((-rhoA + rhoB)*ux*ux + 2*chem*(-2*ux + ux*ux + uy*uy + uz*uz)) +
// 0.1111111111111111*(4*chem - (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*uz)));
// feq2 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-ux*ux + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*uz)) -
// 0.125*(Fx + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux +
// 0.3333333333333333*(2.*ux + ux*ux + uy*uy + uz*uz)) - 0.0625*(nx + nx*ux + ny*uy + nz*uz)*
// (-2.*chem*ux*ux + 0.1111111111111111*(-4.*chem + rhoB*(-2.*ux - 1.*ux*ux - 1.*uy*uy - 1.*uz*uz) +
// rhoA*(2.*ux + ux*ux + uy*uy + uz*uz)) + 0.3333333333333333*((-1.*rhoA + rhoB)*ux*ux +
// chem*(4.*ux + 2.*ux*ux + 2.*uy*uy + 2.*uz*uz)));
// feq3 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-uy*uy + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*uz)) -
// 0.125*(Fx*ux + Fy*(-1. + uy) + Fz*uz)*(-0.2222222222222222 - 1.*uy*uy +
// 0.3333333333333333*(ux*ux - 2.*uy + uy*uy + uz*uz)) - 0.0625*(ny - nx*ux - ny*uy - nz*uz)*
// (2*chem*uy*uy - 0.3333333333333333*((-rhoA + rhoB)*uy*uy + 2*chem*(ux*ux - 2*uy + uy*uy + uz*uz)) +
// 0.1111111111111111*(4*chem - (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*uz)));
// feq4 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-uy*uy + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*uz)) -
// 0.125*(Fy + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*uy*uy +
// 0.3333333333333333*(ux*ux + 2.*uy + uy*uy + uz*uz)) - 0.0625*(ny + nx*ux + ny*uy + nz*uz)*
// (-2.*chem*uy*uy + 0.1111111111111111*(-4.*chem + rhoB*(-1.*ux*ux - 2.*uy - 1.*uy*uy - 1.*uz*uz) +
// rhoA*(ux*ux + 2.*uy + uy*uy + uz*uz)) + 0.3333333333333333*((-1.*rhoA + rhoB)*uy*uy +
// chem*(2.*ux*ux + 4.*uy + 2.*uy*uy + 2.*uz*uz)));
// feq5 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-uz*uz + 0.3333333333333333*(ux*ux + uy*uy + (-2 + uz)*uz)) -
// 0.125*(Fx*ux + Fy*uy + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*uz*uz +
// 0.3333333333333333*(ux*ux + uy*uy + (-2. + uz)*uz)) - 0.0625*(nx*ux + ny*uy + nz*(-1. + uz))*
// (-2.*chem*uz*uz + 0.1111111111111111*(-4.*chem + rhoB*(-1.*ux*ux - 1.*uy*uy + (2. - 1.*uz)*uz) +
// rhoA*(ux*ux + uy*uy + (-2. + uz)*uz)) + 0.3333333333333333*((-1.*rhoA + rhoB)*uz*uz +
// chem*(2.*ux*ux + 2.*uy*uy + uz*(-4. + 2.*uz))));
// feq6 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-uz*uz + 0.3333333333333333*(ux*ux + uy*uy + uz*(2 + uz))) -
// 0.125*(Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*uz*uz +
// 0.3333333333333333*(ux*ux + uy*uy + uz*(2. + uz))) - 0.0625*(nz + nx*ux + ny*uy + nz*uz)*
// (-2.*chem*uz*uz + 0.1111111111111111*(-4.*chem + rhoB*(-1.*ux*ux - 1.*uy*uy + (-2. - 1.*uz)*uz) +
// rhoA*(ux*ux + uy*uy + uz*(2. + uz))) + 0.3333333333333333*((-1.*rhoA + rhoB)*uz*uz +
// chem*(2.*ux*ux + 2.*uy*uy + uz*(4. + 2.*uz))));
// feq7 = 0.027777777777777776*p - 0.041666666666666664*rho0*
// (-(ux + uy)*(ux + uy) + 0.3333333333333333*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) -
// 0.0625*(Fx*(-1. + ux) + Fy*(-1. + uy) + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux - 2.*ux*uy - 1.*uy*uy +
// 0.3333333333333333*(-2.*ux + ux*ux - 2.*uy + uy*uy + uz*uz)) - 0.03125*(nx + ny - nx*ux - ny*uy - nz*uz)*
// (2*chem*(ux + uy)*(ux + uy) + 0.3333333333333333*((rhoA - rhoB)*(ux + uy)*(ux + uy) - 2*chem*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
// 0.1111111111111111*(4*chem - (rhoA - rhoB)*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)));
// feq8 = 0.027777777777777776*p - 0.041666666666666664*rho0*
// (-(ux + uy)*(ux + uy) + 0.3333333333333333*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) -
// 0.0625*(Fx + Fy + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux - 2.*ux*uy - 1.*uy*uy +
// 0.3333333333333333*(2.*ux + ux*ux + 2.*uy + uy*uy + uz*uz)) - 0.03125*(-(nx*(1 + ux)) - ny*(1 + uy) - nz*uz)*
// (2*chem*(ux + uy)*(ux + uy) - 0.3333333333333333*(-((rhoA - rhoB)*(ux + uy)*(ux + uy)) +
// 2*chem*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) + 0.1111111111111111*
// (4*chem - (rhoA - rhoB)*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)));
// feq9 = 0.027777777777777776*p - 0.041666666666666664*rho0*
// (-(ux - uy)*(ux - uy) + 0.3333333333333333*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) -
// 0.0625*(Fy + Fx*(-1. + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux + 2.*ux*uy - 1.*uy*uy +
// 0.3333333333333333*(-2.*ux + ux*ux + 2.*uy + uy*uy + uz*uz)) - 0.03125*(nx - nx*ux - ny*(1 + uy) - nz*uz)*
// (2*chem*(ux - uy)*(ux - uy) - 0.3333333333333333*(-((rhoA - rhoB)*(ux - uy)*(ux - uy)) +
// 2*chem*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) + 0.1111111111111111*
// (4*chem - (rhoA - rhoB)*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)));
// feq10 = 0.027777777777777776*p - 0.041666666666666664*rho0*
// (-(ux - uy)*(ux - uy) + 0.3333333333333333*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) -
// 0.0625*(Fx*(1 + ux) + Fy*(-1. + uy) + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux + 2.*ux*uy - 1.*uy*uy +
// 0.3333333333333333*(2.*ux + ux*ux - 2.*uy + uy*uy + uz*uz)) - 0.03125*(ny - nx*(1 + ux) - ny*uy - nz*uz)*
// (2*chem*(ux - uy)*(ux - uy) - 0.3333333333333333*(-((rhoA - rhoB)*(ux - uy)*(ux - uy)) +
// 2*chem*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) + 0.1111111111111111*
// (4*chem - (rhoA - rhoB)*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)));
// feq11 = 0.027777777777777776*p - 0.041666666666666664*rho0*
// (-(ux + uz)*(ux + uz) + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) -
// 0.0625*(Fx*(-1. + ux) + Fy*uy + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*ux*ux - 2.*ux*uz - 1.*uz*uz +
// 0.3333333333333333*(-2.*ux + ux*ux + uy*uy + (-2. + uz)*uz)) - 0.03125*(nx + nz - nx*ux - ny*uy - nz*uz)*
// (2*chem*(ux + uz)*(ux + uz) + 0.3333333333333333*((rhoA - rhoB)*(ux + uz)*(ux + uz) - 2*chem*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
// 0.1111111111111111*(4*chem - (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)));
// feq12 = 0.027777777777777776*p - 0.041666666666666664*rho0*
// (-(ux + uz)*(ux + uz) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*(2 + uz))) -
// 0.0625*(Fx + Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux - 2.*ux*uz - 1.*uz*uz +
// 0.3333333333333333*(2.*ux + ux*ux + uy*uy + uz*(2. + uz))) - 0.03125*(-(nx*(1 + ux)) - ny*uy - nz*(1 + uz))*
// (2*chem*(ux + uz)*(ux + uz) - 0.3333333333333333*(-((rhoA - rhoB)*(ux + uz)*(ux + uz)) +
// 2*chem*(2*ux + ux*ux + uy*uy + uz*(2 + uz))) + 0.1111111111111111*
// (4*chem - (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + uz*(2 + uz))));
// feq13 = 0.027777777777777776*p - 0.041666666666666664*rho0*
// (-(ux - uz)*(ux - uz) + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) -
// 0.0625*(Fz + Fx*(-1. + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux + 2.*ux*uz - 1.*uz*uz +
// 0.3333333333333333*(-2.*ux + ux*ux + uy*uy + uz*(2. + uz))) - 0.03125*(nx - nx*ux - ny*uy - nz*(1 + uz))*
// (2*chem*(ux - uz)*(ux - uz) - 0.3333333333333333*(-((rhoA - rhoB)*(ux - uz)*(ux - uz)) +
// 2*chem*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) + 0.1111111111111111*
// (4*chem - (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))));
// feq14 = 0.027777777777777776*p - 0.041666666666666664*rho0*
// (-(ux - uz)*(ux - uz) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) -
// 0.0625*(Fx*(1 + ux) + Fy*uy + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*ux*ux + 2.*ux*uz - 1.*uz*uz +
// 0.3333333333333333*(2.*ux + ux*ux + uy*uy + (-2. + uz)*uz)) - 0.03125*(nz - nx*(1 + ux) - ny*uy - nz*uz)*
// (2*chem*(ux - uz)*(ux - uz) - 0.3333333333333333*(-((rhoA - rhoB)*(ux - uz)*(ux - uz)) +
// 2*chem*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) + 0.1111111111111111*
// (4*chem - (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)));
// feq15 = 0.027777777777777776*p - 0.041666666666666664*rho0*
// (-(uy + uz)*(uy + uz) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)) -
// 0.0625*(Fx*ux + Fy*(-1. + uy) + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*uy*uy - 2.*uy*uz - 1.*uz*uz +
// 0.3333333333333333*(ux*ux - 2.*uy + uy*uy + (-2. + uz)*uz)) - 0.03125*(ny + nz - nx*ux - ny*uy - nz*uz)*
// (2*chem*(uy + uz)*(uy + uz) + 0.3333333333333333*((rhoA - rhoB)*(uy + uz)*(uy + uz) - 2*chem*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)) +
// 0.1111111111111111*(4*chem - (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)));
// feq16 = 0.027777777777777776*p - 0.041666666666666664*rho0*
// (-(uy + uz)*(uy + uz) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))) -
// 0.0625*(Fy + Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*uy*uy - 2.*uy*uz - 1.*uz*uz +
// 0.3333333333333333*(ux*ux + 2.*uy + uy*uy + uz*(2. + uz))) - 0.03125*(-(nx*ux) - ny*(1 + uy) - nz*(1 + uz))*
// (2*chem*(uy + uz)*(uy + uz) - 0.3333333333333333*(-((rhoA - rhoB)*(uy + uz)*(uy + uz)) +
// 2*chem*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))) + 0.1111111111111111*
// (4*chem - (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))));
// feq17 = 0.027777777777777776*p - 0.041666666666666664*rho0*
// (-(uy - uz)*(uy - uz) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))) -
// 0.0625*(Fz + Fx*ux + Fy*(-1. + uy) + Fz*uz)*(-0.2222222222222222 - 1.*uy*uy + 2.*uy*uz - 1.*uz*uz +
// 0.3333333333333333*(ux*ux - 2.*uy + uy*uy + uz*(2. + uz))) - 0.03125*(ny - nx*ux - ny*uy - nz*(1 + uz))*
// (2*chem*(uy - uz)*(uy - uz) - 0.3333333333333333*(-((rhoA - rhoB)*(uy - uz)*(uy - uz)) +
// 2*chem*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))) + 0.1111111111111111*
// (4*chem - (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))));
// feq18 = 0.027777777777777776*p - 0.041666666666666664*rho0*
// (-(uy - uz)*(uy - uz) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) -
// 0.0625*(Fx*ux + Fy*(1 + uy) + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*uy*uy + 2.*uy*uz - 1.*uz*uz +
// 0.3333333333333333*(ux*ux + 2.*uy + uy*uy + (-2. + uz)*uz)) - 0.03125*(nz - nx*ux - ny*(1 + uy) - nz*uz)*
// (2*chem*(uy - uz)*(uy - uz) - 0.3333333333333333*(-((rhoA - rhoB)*(uy - uz)*(uy - uz)) +
// 2*chem*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) + 0.1111111111111111*
// (4*chem - (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)));
//
// //------------------------------------------------- BCK collison ------------------------------------------------------------//
// // q=0
// dist[n] = m0 - (m0-feq0)/tau + 0.25*(2*(Fx*ux + Fy*uy + Fz*uz)*(-0.6666666666666666 + ux*ux + uy*uy + uz*uz) +
// (mgx*ux + mgy*uy + mgz*uz)*(2*chem*(ux*ux + uy*uy + uz*uz) +
// 0.3333333333333333*(-4*chem + (rhoA - rhoB)*(ux*ux + uy*uy + uz*uz))));
//
// // q = 1
// dist[nr2] = m1 - (m1-feq1)/tau + 0.125*(2*(Fx*(-1 + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - ux*ux +
// 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*uz)) +
// (mgx*(-1 + ux) + mgy*uy + mgz*uz)*(-2*chem*(ux*ux) +
// 0.3333333333333333*((-rhoA + rhoB)*(ux*ux) + 2*chem*(-2*ux + ux*ux + uy*uy + uz*uz)) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*uz))));
//
// // q=2
// dist[nr1] = m2 - (m2-feq2)/tau + 0.125*(2*(Fx + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - ux*ux +
// 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*uz)) +
// (mgx + mgx*ux + mgy*uy + mgz*uz)*(-2*chem*(ux*ux) +
// 0.3333333333333333*((-rhoA + rhoB)*(ux*ux) + 2*chem*(2*ux + ux*ux + uy*uy + uz*uz)) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + uz*uz))));
//
// // q = 3
// dist[nr4] = m3 - (m3-feq3)/tau + 0.125*(2*(Fx*ux + Fy*(-1 + uy) + Fz*uz)*(-0.2222222222222222 - uy*uy +
// 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*uz)) +
// (mgx*ux + mgy*(-1 + uy) + mgz*uz)*(-2*chem*(uy*uy) +
// 0.3333333333333333*((-rhoA + rhoB)*(uy*uy) + 2*chem*(ux*ux - 2*uy + uy*uy + uz*uz)) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*uz))));
//
// // q = 4
// dist[nr3] = m4 - (m4-feq4)/tau + 0.125*(2*(Fy + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - uy*uy +
// 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*uz)) +
// (mgy + mgx*ux + mgy*uy + mgz*uz)*(-2*chem*(uy*uy) +
// 0.3333333333333333*((-rhoA + rhoB)*(uy*uy) + 2*chem*(ux*ux + 2*uy + uy*uy + uz*uz)) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + uz*uz))));
//
// // q = 5
// dist[nr6] = m5 - (m5-feq5)/tau + 0.125*(2*(Fx*ux + Fy*uy + Fz*(-1 + uz))*(-0.2222222222222222 - uz*uz +
// 0.3333333333333333*(ux*ux + uy*uy + (-2 + uz)*uz)) +
// (mgx*ux + mgy*uy + mgz*(-1 + uz))*(-2*chem*(uz*uz) +
// 0.3333333333333333*((-rhoA + rhoB)*(uz*uz) + 2*chem*(ux*ux + uy*uy + (-2 + uz)*uz)) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + uy*uy + (-2 + uz)*uz))));
//
// // q = 6
// dist[nr5] = m6 - (m6-feq6)/tau + 0.125*(2*(Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - uz*uz +
// 0.3333333333333333*(ux*ux + uy*uy + uz*(2 + uz))) +
// (mgz + mgx*ux + mgy*uy + mgz*uz)*(-2*chem*(uz*uz) +
// 0.3333333333333333*((-rhoA + rhoB)*(uz*uz) + 2*chem*(ux*ux + uy*uy + uz*(2 + uz))) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + uy*uy + uz*(2 + uz)))));
//
// // q = 7
// dist[nr8] = m7 - (m7-feq7)/tau + 0.0625*(-2*(Fx*(-1 + ux) + Fy*(-1 + uy) + Fz*uz)*
// (0.2222222222222222 + (ux + uy)*(ux + uy) -
// 0.3333333333333333*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
// (mgx*(-1 + ux) + mgy*(-1 + uy) + mgz*uz)*
// (-2*chem*((ux + uy)*(ux + uy)) + 0.3333333333333333*
// (-((rhoA - rhoB)*((ux + uy)*(ux + uy))) + 2*chem*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz))));
//
// // q = 8
// dist[nr7] = m8 - (m8-feq8)/tau + 0.0625*(2*(Fx + Fy + Fx*ux + Fy*uy + Fz*uz)*
// (-0.2222222222222222 - (ux + uy)*(ux + uy) +
// 0.3333333333333333*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
// (mgx + mgy + mgx*ux + mgy*uy + mgz*uz)*
// (-2*chem*((ux + uy)*(ux + uy)) + 0.3333333333333333*
// (-((rhoA - rhoB)*((ux + uy)*(ux + uy))) + 2*chem*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz))));
//
// // q = 9
// dist[nr10] = m9 - (m9-feq9)/tau + 0.0625*(2*(Fy + Fx*(-1 + ux) + Fy*uy + Fz*uz)*
// (-0.2222222222222222 - (ux - uy)*(ux - uy) +
// 0.3333333333333333*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
// (mgy + mgx*(-1 + ux) + mgy*uy + mgz*uz)*
// (-2*chem*((ux - uy)*(ux - uy)) + 0.3333333333333333*
// (-((rhoA - rhoB)*((ux - uy)*(ux - uy))) + 2*chem*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz))));
//
// // q = 10
// dist[nr9] = m10 - (m10-feq10)/tau + 0.0625*(2*(Fx*(1 + ux) + Fy*(-1 + uy) + Fz*uz)*
// (-0.2222222222222222 - (ux - uy)*(ux - uy) +
// 0.3333333333333333*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
// (mgx*(1 + ux) + mgy*(-1 + uy) + mgz*uz)*
// (-2*chem*((ux - uy)*(ux - uy)) + 0.3333333333333333*
// (-((rhoA - rhoB)*((ux - uy)*(ux - uy))) + 2*chem*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz))));
//
// // q = 11
// dist[nr12] = m11 - (m11-feq11)/tau + 0.0625*(-2*(Fx*(-1 + ux) + Fy*uy + Fz*(-1 + uz))*
// (0.2222222222222222 + (ux + uz)*(ux + uz) -
// 0.3333333333333333*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
// (mgx*(-1 + ux) + mgy*uy + mgz*(-1 + uz))*
// (-2*chem*((ux + uz)*(ux + uz)) + 0.3333333333333333*
// (-((rhoA - rhoB)*((ux + uz)*(ux + uz))) + 2*chem*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz))));
//
// // q = 12
// dist[nr11] = m12 - (m12-feq12)/tau + 0.0625*(2*(Fx + Fz + Fx*ux + Fy*uy + Fz*uz)*
// (-0.2222222222222222 - (ux + uz)*(ux + uz) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*(2 + uz)))
// + (mgx + mgz + mgx*ux + mgy*uy + mgz*uz)*
// (-2*chem*((ux + uz)*(ux + uz)) + 0.3333333333333333*
// (-((rhoA - rhoB)*((ux + uz)*(ux + uz))) + 2*chem*(2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + uz*(2 + uz)))));
//
// // q = 13
// dist[nr14] = m13 - (m13-feq13)/tau + 0.0625*(2*(Fz + Fx*(-1 + ux) + Fy*uy + Fz*uz)*
// (-0.2222222222222222 - (ux - uz)*(ux - uz) +
// 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
// (mgz + mgx*(-1 + ux) + mgy*uy + mgz*uz)*
// (-2*chem*((ux - uz)*(ux - uz)) + 0.3333333333333333*
// (-((rhoA - rhoB)*((ux - uz)*(ux - uz))) + 2*chem*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*(2 + uz)))));
//
// // q= 14
// dist[nr13] = m14 - (m14-feq14)/tau + 0.0625*(2*(Fx*(1 + ux) + Fy*uy + Fz*(-1 + uz))*
// (-0.2222222222222222 - (ux - uz)*(ux - uz) +
// 0.3333333333333333*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
// (mgx*(1 + ux) + mgy*uy + mgz*(-1 + uz))*
// (-2*chem*((ux - uz)*(ux - uz)) + 0.3333333333333333*
// (-((rhoA - rhoB)*((ux - uz)*(ux - uz))) + 2*chem*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz))));
//
// // q = 15
// dist[nr16] = m15 - (m15-feq15)/tau + 0.0625*(-2*(Fx*ux + Fy*(-1 + uy) + Fz*(-1 + uz))*
// (0.2222222222222222 + (uy + uz)*(uy + uz) - 0.3333333333333333*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz))
// + (mgx*ux + mgy*(-1 + uy) + mgz*(-1 + uz))*
// (-2*chem*((uy + uz)*(uy + uz)) + 0.3333333333333333*
// (-((rhoA - rhoB)*((uy + uz)*(uy + uz))) + 2*chem*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz))));
//
// // q = 16
// dist[nr15] = m16 - (m16-feq16)/tau + 0.0625*(2*(Fy + Fz + Fx*ux + Fy*uy + Fz*uz)*
// (-0.2222222222222222 - (uy + uz)*(uy + uz) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*(2 + uz)))
// + (mgy + mgz + mgx*ux + mgy*uy + mgz*uz)*
// (-2*chem*((uy + uz)*(uy + uz)) + 0.3333333333333333*
// (-((rhoA - rhoB)*((uy + uz)*(uy + uz))) + 2*chem*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + uz*(2 + uz)))));
//
// // q = 17
// dist[nr18] = m17 - (m17-feq17)/tau + 0.0625*(2*(Fz + Fx*ux + Fy*(-1 + uy) + Fz*uz)*
// (-0.2222222222222222 - (uy - uz)*(uy - uz) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*(2 + uz)))
// + (mgz + mgx*ux + mgy*(-1 + uy) + mgz*uz)*
// (-2*chem*((uy - uz)*(uy - uz)) + 0.3333333333333333*
// (-((rhoA - rhoB)*((uy - uz)*(uy - uz))) + 2*chem*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*(2 + uz)))));
//
// // q = 18
// dist[nr17] = m18 - (m18-feq18)/tau + 0.0625*(2*(Fx*ux + Fy*(1 + uy) + Fz*(-1 + uz))*
// (-0.2222222222222222 - (uy - uz)*(uy - uz) +
// 0.3333333333333333*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) +
// (mgx*ux + mgy*(1 + uy) + mgz*(-1 + uz))*
// (-2*chem*((uy - uz)*(uy - uz)) + 0.3333333333333333*
// (-((rhoA - rhoB)*((uy - uz)*(uy - uz))) + 2*chem*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz))));
// //----------------------------------------------------------------------------------------------------------------------------------------//
//
//// //------------------------------------------ BCK collison without mixed grad ------------------------------------------------------------//
//// // q=0
//// dist[n] = m0 - (m0-feq0)/tau + 0.25*(2*(Fx*ux + Fy*uy + Fz*uz)*(-0.6666666666666666 + ux*ux + uy*uy + uz*uz) +
//// (nx*ux + ny*uy + nz*uz)*(2*chem*(ux*ux + uy*uy + uz*uz) +
//// 0.3333333333333333*(-4*chem + (rhoA - rhoB)*(ux*ux + uy*uy + uz*uz))));
////
//// // q = 1
//// dist[nr2] = m1 - (m1-feq1)/tau + 0.125*(2*(Fx*(-1 + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - ux*ux +
//// 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*uz)) +
//// (nx*(-1 + ux) + ny*uy + nz*uz)*(-2*chem*(ux*ux) +
//// 0.3333333333333333*((-rhoA + rhoB)*(ux*ux) + 2*chem*(-2*ux + ux*ux + uy*uy + uz*uz)) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*uz))));
////
//// // q=2
//// dist[nr1] = m2 - (m2-feq2)/tau + 0.125*(2*(Fx + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - ux*ux +
//// 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*uz)) +
//// (nx + nx*ux + ny*uy + nz*uz)*(-2*chem*(ux*ux) +
//// 0.3333333333333333*((-rhoA + rhoB)*(ux*ux) + 2*chem*(2*ux + ux*ux + uy*uy + uz*uz)) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + uz*uz))));
////
//// // q = 3
//// dist[nr4] = m3 - (m3-feq3)/tau + 0.125*(2*(Fx*ux + Fy*(-1 + uy) + Fz*uz)*(-0.2222222222222222 - uy*uy +
//// 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*uz)) +
//// (nx*ux + ny*(-1 + uy) + nz*uz)*(-2*chem*(uy*uy) +
//// 0.3333333333333333*((-rhoA + rhoB)*(uy*uy) + 2*chem*(ux*ux - 2*uy + uy*uy + uz*uz)) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*uz))));
////
//// // q = 4
//// dist[nr3] = m4 - (m4-feq4)/tau + 0.125*(2*(Fy + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - uy*uy +
//// 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*uz)) +
//// (ny + nx*ux + ny*uy + nz*uz)*(-2*chem*(uy*uy) +
//// 0.3333333333333333*((-rhoA + rhoB)*(uy*uy) + 2*chem*(ux*ux + 2*uy + uy*uy + uz*uz)) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + uz*uz))));
////
//// // q = 5
//// dist[nr6] = m5 - (m5-feq5)/tau + 0.125*(2*(Fx*ux + Fy*uy + Fz*(-1 + uz))*(-0.2222222222222222 - uz*uz +
//// 0.3333333333333333*(ux*ux + uy*uy + (-2 + uz)*uz)) +
//// (nx*ux + ny*uy + nz*(-1 + uz))*(-2*chem*(uz*uz) +
//// 0.3333333333333333*((-rhoA + rhoB)*(uz*uz) + 2*chem*(ux*ux + uy*uy + (-2 + uz)*uz)) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + uy*uy + (-2 + uz)*uz))));
////
//// // q = 6
//// dist[nr5] = m6 - (m6-feq6)/tau + 0.125*(2*(Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - uz*uz +
//// 0.3333333333333333*(ux*ux + uy*uy + uz*(2 + uz))) +
//// (nz + nx*ux + ny*uy + nz*uz)*(-2*chem*(uz*uz) +
//// 0.3333333333333333*((-rhoA + rhoB)*(uz*uz) + 2*chem*(ux*ux + uy*uy + uz*(2 + uz))) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + uy*uy + uz*(2 + uz)))));
////
//// // q = 7
//// dist[nr8] = m7 - (m7-feq7)/tau + 0.0625*(-2*(Fx*(-1 + ux) + Fy*(-1 + uy) + Fz*uz)*
//// (0.2222222222222222 + (ux + uy)*(ux + uy) -
//// 0.3333333333333333*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
//// (nx*(-1 + ux) + ny*(-1 + uy) + nz*uz)*
//// (-2*chem*((ux + uy)*(ux + uy)) + 0.3333333333333333*
//// (-((rhoA - rhoB)*((ux + uy)*(ux + uy))) + 2*chem*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz))));
////
//// // q = 8
//// dist[nr7] = m8 - (m8-feq8)/tau + 0.0625*(2*(Fx + Fy + Fx*ux + Fy*uy + Fz*uz)*
//// (-0.2222222222222222 - (ux + uy)*(ux + uy) +
//// 0.3333333333333333*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
//// (nx + ny + nx*ux + ny*uy + nz*uz)*
//// (-2*chem*((ux + uy)*(ux + uy)) + 0.3333333333333333*
//// (-((rhoA - rhoB)*((ux + uy)*(ux + uy))) + 2*chem*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz))));
////
//// // q = 9
//// dist[nr10] = m9 - (m9-feq9)/tau + 0.0625*(2*(Fy + Fx*(-1 + ux) + Fy*uy + Fz*uz)*
//// (-0.2222222222222222 - (ux - uy)*(ux - uy) +
//// 0.3333333333333333*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
//// (ny + nx*(-1 + ux) + ny*uy + nz*uz)*
//// (-2*chem*((ux - uy)*(ux - uy)) + 0.3333333333333333*
//// (-((rhoA - rhoB)*((ux - uy)*(ux - uy))) + 2*chem*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz))));
////
//// // q = 10
//// dist[nr9] = m10 - (m10-feq10)/tau + 0.0625*(2*(Fx*(1 + ux) + Fy*(-1 + uy) + Fz*uz)*
//// (-0.2222222222222222 - (ux - uy)*(ux - uy) +
//// 0.3333333333333333*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
//// (nx*(1 + ux) + ny*(-1 + uy) + nz*uz)*
//// (-2*chem*((ux - uy)*(ux - uy)) + 0.3333333333333333*
//// (-((rhoA - rhoB)*((ux - uy)*(ux - uy))) + 2*chem*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz))));
////
//// // q = 11
//// dist[nr12] = m11 - (m11-feq11)/tau + 0.0625*(-2*(Fx*(-1 + ux) + Fy*uy + Fz*(-1 + uz))*
//// (0.2222222222222222 + (ux + uz)*(ux + uz) -
//// 0.3333333333333333*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
//// (nx*(-1 + ux) + ny*uy + nz*(-1 + uz))*
//// (-2*chem*((ux + uz)*(ux + uz)) + 0.3333333333333333*
//// (-((rhoA - rhoB)*((ux + uz)*(ux + uz))) + 2*chem*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz))));
////
//// // q = 12
//// dist[nr11] = m12 - (m12-feq12)/tau + 0.0625*(2*(Fx + Fz + Fx*ux + Fy*uy + Fz*uz)*
//// (-0.2222222222222222 - (ux + uz)*(ux + uz) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*(2 + uz)))
//// + (nx + nz + nx*ux + ny*uy + nz*uz)*
//// (-2*chem*((ux + uz)*(ux + uz)) + 0.3333333333333333*
//// (-((rhoA - rhoB)*((ux + uz)*(ux + uz))) + 2*chem*(2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + uz*(2 + uz)))));
////
//// // q = 13
//// dist[nr14] = m13 - (m13-feq13)/tau + 0.0625*(2*(Fz + Fx*(-1 + ux) + Fy*uy + Fz*uz)*
//// (-0.2222222222222222 - (ux - uz)*(ux - uz) +
//// 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
//// (nz + nx*(-1 + ux) + ny*uy + nz*uz)*
//// (-2*chem*((ux - uz)*(ux - uz)) + 0.3333333333333333*
//// (-((rhoA - rhoB)*((ux - uz)*(ux - uz))) + 2*chem*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*(2 + uz)))));
////
//// // q= 14
//// dist[nr13] = m14 - (m14-feq14)/tau + 0.0625*(2*(Fx*(1 + ux) + Fy*uy + Fz*(-1 + uz))*
//// (-0.2222222222222222 - (ux - uz)*(ux - uz) +
//// 0.3333333333333333*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
//// (nx*(1 + ux) + ny*uy + nz*(-1 + uz))*
//// (-2*chem*((ux - uz)*(ux - uz)) + 0.3333333333333333*
//// (-((rhoA - rhoB)*((ux - uz)*(ux - uz))) + 2*chem*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz))));
////
//// // q = 15
//// dist[nr16] = m15 - (m15-feq15)/tau + 0.0625*(-2*(Fx*ux + Fy*(-1 + uy) + Fz*(-1 + uz))*
//// (0.2222222222222222 + (uy + uz)*(uy + uz) - 0.3333333333333333*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz))
//// + (nx*ux + ny*(-1 + uy) + nz*(-1 + uz))*
//// (-2*chem*((uy + uz)*(uy + uz)) + 0.3333333333333333*
//// (-((rhoA - rhoB)*((uy + uz)*(uy + uz))) + 2*chem*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz))));
////
//// // q = 16
//// dist[nr15] = m16 - (m16-feq16)/tau + 0.0625*(2*(Fy + Fz + Fx*ux + Fy*uy + Fz*uz)*
//// (-0.2222222222222222 - (uy + uz)*(uy + uz) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*(2 + uz)))
//// + (ny + nz + nx*ux + ny*uy + nz*uz)*
//// (-2*chem*((uy + uz)*(uy + uz)) + 0.3333333333333333*
//// (-((rhoA - rhoB)*((uy + uz)*(uy + uz))) + 2*chem*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + uz*(2 + uz)))));
////
//// // q = 17
//// dist[nr18] = m17 - (m17-feq17)/tau + 0.0625*(2*(Fz + Fx*ux + Fy*(-1 + uy) + Fz*uz)*
//// (-0.2222222222222222 - (uy - uz)*(uy - uz) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*(2 + uz)))
//// + (nz + nx*ux + ny*(-1 + uy) + nz*uz)*
//// (-2*chem*((uy - uz)*(uy - uz)) + 0.3333333333333333*
//// (-((rhoA - rhoB)*((uy - uz)*(uy - uz))) + 2*chem*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*(2 + uz)))));
////
//// // q = 18
//// dist[nr17] = m18 - (m18-feq18)/tau + 0.0625*(2*(Fx*ux + Fy*(1 + uy) + Fz*(-1 + uz))*
//// (-0.2222222222222222 - (uy - uz)*(uy - uz) +
//// 0.3333333333333333*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) +
//// (nx*ux + ny*(1 + uy) + nz*(-1 + uz))*
//// (-2*chem*((uy - uz)*(uy - uz)) + 0.3333333333333333*
//// (-((rhoA - rhoB)*((uy - uz)*(uy - uz))) + 2*chem*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz))));
//// //----------------------------------------------------------------------------------------------------------------------------------------//
//
// // ----------------------------- compute phase field evolution ----------------------------------------
// //Normalize the Color Gradient
// C = sqrt(nx*nx+ny*ny+nz*nz);
// double ColorMag = C;
// if (C==0.0) ColorMag=1.0;
// nx = nx/ColorMag;
// ny = ny/ColorMag;
// nz = nz/ColorMag;
// //compute surface tension-related parameter
// //theta = 4.5*M*2.0*(1-phi*phi)/W;
// theta = 4.5*M*2.0*(1-phi_temp*phi_temp)/W;
//
// //load distributions of phase field
// //q=0
// h0 = hq[n];
// //q=1
// h1 = hq[nr1];
//
// //q=2
// h2 = hq[nr2];
//
// //q=3
// h3 = hq[nr3];
//
// //q=4
// h4 = hq[nr4];
//
// //q=5
// h5 = hq[nr5];
//
// //q=6
// h6 = hq[nr6];
//
// //-------------------------------- BGK collison for phase field ---------------------------------//
// // q = 0
// hq[n] = h0 - (h0 - 0.3333333333333333*phi)/tauM;
//
// // q = 1
// hq[nr2] = h1 - (h1 - 0.1111111111111111*nx*theta - phi*(0.1111111111111111 + 0.5*ux))/tauM;
//
// // q = 2
// hq[nr1] = h2 - (h2 + 0.1111111111111111*nx*theta - phi*(0.1111111111111111 - 0.5*ux))/tauM;
//
// // q = 3
// hq[nr4] = h3 - (h3 - 0.1111111111111111*ny*theta - phi*(0.1111111111111111 + 0.5*uy))/tauM;
//
// // q = 4
// hq[nr3] = h4 - (h4 + 0.1111111111111111*ny*theta - phi*(0.1111111111111111 - 0.5*uy))/tauM;
//
// // q = 5
// hq[nr6] = h5 - (h5 - 0.1111111111111111*nz*theta - phi*(0.1111111111111111 + 0.5*uz))/tauM;
//
// // q = 6
// hq[nr5] = h6 - (h6 + 0.1111111111111111*nz*theta - phi*(0.1111111111111111 - 0.5*uz))/tauM;
// //........................................................................
//
// //Update velocity on device
// Vel[0*Np+n] = ux;
// Vel[1*Np+n] = uy;
// Vel[2*Np+n] = uz;
// //Update pressure on device
// Pressure[n] = p;
// //Update chemical potential on device
// mu_phi[n] = chem;
// //Update color gradient on device
// ColorGrad[0*Np+n] = nx;
// ColorGrad[1*Np+n] = ny;
// ColorGrad[2*Np+n] = nz;
//
// }
//}
//extern "C" void ScaLBL_D3Q19_AAeven_FreeLeeModel_Combined(int *Map, double *dist, double *hq, double *Den, double *Phi, double *mu_phi, double *Vel, double *Pressure, double *ColorGrad,
// double rhoA, double rhoB, double tauA, double tauB, double tauM, double kappa, double beta, double W, double Fx, double Fy, double Fz,
// int strideY, int strideZ, int start, int finish, int Np){
//
// int n,nn,nn2x,ijk;
// double ux,uy,uz;//fluid velocity
// double p;//pressure
// double chem;//chemical potential
// double phi; //phase field
// double rho0;//fluid density
// // distribution functions
// double m1,m2,m4,m6,m8,m9,m10,m11,m12,m13,m14,m15,m16,m17,m18;
// double m0,m3,m5,m7;
// double mm1,mm2,mm4,mm6,mm8,mm9,mm10,mm11,mm12,mm13,mm14,mm15,mm16,mm17,mm18;
// double mm3,mm5,mm7;
// double feq0,feq1,feq2,feq3,feq4,feq5,feq6,feq7,feq8,feq9,feq10,feq11,feq12,feq13,feq14,feq15,feq16,feq17,feq18;
// double nx,ny,nz;//normal color gradient
// double mgx,mgy,mgz;//mixed gradient reaching secondary neighbor
//
// double h0,h1,h2,h3,h4,h5,h6;//distributions for LB phase field
// double tau;//position dependent LB relaxation time for fluid
// double C,theta;
// double M = 2.0/9.0*(tauM-0.5);//diffusivity (or mobility) for the phase field D3Q7
// double phi_temp;
//
// for (int n=start; n<finish; n++){
//
// rho0 = Den[n];//load density
//
// // Get the 1D index based on regular data layout
// ijk = Map[n];
// phi = Phi[ijk];// load phase field
// phi_temp = phi;
// if (phi>1.f) phi_temp=1.0;
// if (phi<-1.f) phi_temp=-1.0;
//
// // local relaxation time
// tau=tauA + 0.5*(1.0-phi)*(tauB-tauA);
//
// // COMPUTE THE COLOR GRADIENT
// //........................................................................
// //.................Read Phase Indicator Values............................
// //........................................................................
// nn = ijk-1; // neighbor index (get convention)
// m1 = Phi[nn]; // get neighbor for phi - 1
// //........................................................................
// nn = ijk+1; // neighbor index (get convention)
// m2 = Phi[nn]; // get neighbor for phi - 2
// //........................................................................
// nn = ijk-strideY; // neighbor index (get convention)
// m3 = Phi[nn]; // get neighbor for phi - 3
// //........................................................................
// nn = ijk+strideY; // neighbor index (get convention)
// m4 = Phi[nn]; // get neighbor for phi - 4
// //........................................................................
// nn = ijk-strideZ; // neighbor index (get convention)
// m5 = Phi[nn]; // get neighbor for phi - 5
// //........................................................................
// nn = ijk+strideZ; // neighbor index (get convention)
// m6 = Phi[nn]; // get neighbor for phi - 6
// //........................................................................
// nn = ijk-strideY-1; // neighbor index (get convention)
// m7 = Phi[nn]; // get neighbor for phi - 7
// //........................................................................
// nn = ijk+strideY+1; // neighbor index (get convention)
// m8 = Phi[nn]; // get neighbor for phi - 8
// //........................................................................
// nn = ijk+strideY-1; // neighbor index (get convention)
// m9 = Phi[nn]; // get neighbor for phi - 9
// //........................................................................
// nn = ijk-strideY+1; // neighbor index (get convention)
// m10 = Phi[nn]; // get neighbor for phi - 10
// //........................................................................
// nn = ijk-strideZ-1; // neighbor index (get convention)
// m11 = Phi[nn]; // get neighbor for phi - 11
// //........................................................................
// nn = ijk+strideZ+1; // neighbor index (get convention)
// m12 = Phi[nn]; // get neighbor for phi - 12
// //........................................................................
// nn = ijk+strideZ-1; // neighbor index (get convention)
// m13 = Phi[nn]; // get neighbor for phi - 13
// //........................................................................
// nn = ijk-strideZ+1; // neighbor index (get convention)
// m14 = Phi[nn]; // get neighbor for phi - 14
// //........................................................................
// nn = ijk-strideZ-strideY; // neighbor index (get convention)
// m15 = Phi[nn]; // get neighbor for phi - 15
// //........................................................................
// nn = ijk+strideZ+strideY; // neighbor index (get convention)
// m16 = Phi[nn]; // get neighbor for phi - 16
// //........................................................................
// nn = ijk+strideZ-strideY; // neighbor index (get convention)
// m17 = Phi[nn]; // get neighbor for phi - 17
// //........................................................................
// nn = ijk-strideZ+strideY; // neighbor index (get convention)
// m18 = Phi[nn]; // get neighbor for phi - 18
//
// // compute mixed difference (Eq.30, A.Fukhari et al. JCP 315(2016) 434-457)
// //........................................................................
// nn2x = ijk-2; // neighbor index (get convention)
// mm1 = Phi[nn2x]; // get neighbor for phi - 1
// mm1 = 0.25*(-mm1+5.0*m1-3.0*phi-m2);
// //........................................................................
// nn2x = ijk+2; // neighbor index (get convention)
// mm2 = Phi[nn2x]; // get neighbor for phi - 2
// mm2 = 0.25*(-mm2+5.0*m2-3.0*phi-m1);
// //........................................................................
// nn2x = ijk-strideY*2; // neighbor index (get convention)
// mm3 = Phi[nn2x]; // get neighbor for phi - 3
// mm3 = 0.25*(-mm3+5.0*m3-3.0*phi-m4);
// //........................................................................
// nn2x = ijk+strideY*2; // neighbor index (get convention)
// mm4 = Phi[nn2x]; // get neighbor for phi - 4
// mm4 = 0.25*(-mm4+5.0*m4-3.0*phi-m3);
// //........................................................................
// nn2x = ijk-strideZ*2; // neighbor index (get convention)
// mm5 = Phi[nn2x]; // get neighbor for phi - 5
// mm5 = 0.25*(-mm5+5.0*m5-3.0*phi-m6);
// //........................................................................
// nn2x = ijk+strideZ*2; // neighbor index (get convention)
// mm6 = Phi[nn2x]; // get neighbor for phi - 6
// mm6 = 0.25*(-mm6+5.0*m6-3.0*phi-m5);
// //........................................................................
// nn2x = ijk-strideY*2-2; // neighbor index (get convention)
// mm7 = Phi[nn2x]; // get neighbor for phi - 7
// mm7 = 0.25*(-mm7+5.0*m7-3.0*phi-m8);
// //........................................................................
// nn2x = ijk+strideY*2+2; // neighbor index (get convention)
// mm8 = Phi[nn2x]; // get neighbor for phi - 8
// mm8 = 0.25*(-mm8+5.0*m8-3.0*phi-m7);
// //........................................................................
// nn2x = ijk+strideY*2-2; // neighbor index (get convention)
// mm9 = Phi[nn2x]; // get neighbor for phi - 9
// mm9 = 0.25*(-mm9+5.0*m9-3.0*phi-m10);
// //........................................................................
// nn2x = ijk-strideY*2+2; // neighbor index (get convention)
// mm10 = Phi[nn2x]; // get neighbor for phi - 10
// mm10 = 0.25*(-mm10+5.0*m10-3.0*phi-m9);
// //........................................................................
// nn2x = ijk-strideZ*2-2; // neighbor index (get convention)
// mm11 = Phi[nn2x]; // get neighbor for phi - 11
// mm11 = 0.25*(-mm11+5.0*m11-3.0*phi-m12);
// //........................................................................
// nn2x = ijk+strideZ*2+2; // neighbor index (get convention)
// mm12 = Phi[nn2x]; // get neighbor for phi - 12
// mm12 = 0.25*(-mm12+5.0*m12-3.0*phi-m11);
// //........................................................................
// nn2x = ijk+strideZ*2-2; // neighbor index (get convention)
// mm13 = Phi[nn2x]; // get neighbor for phi - 13
// mm13 = 0.25*(-mm13+5.0*m13-3.0*phi-m14);
// //........................................................................
// nn2x = ijk-strideZ*2+2; // neighbor index (get convention)
// mm14 = Phi[nn2x]; // get neighbor for phi - 14
// mm14 = 0.25*(-mm14+5.0*m14-3.0*phi-m13);
// //........................................................................
// nn2x = ijk-strideZ*2-strideY*2; // neighbor index (get convention)
// mm15 = Phi[nn2x]; // get neighbor for phi - 15
// mm15 = 0.25*(-mm15+5.0*m15-3.0*phi-m16);
// //........................................................................
// nn2x = ijk+strideZ*2+strideY*2; // neighbor index (get convention)
// mm16 = Phi[nn2x]; // get neighbor for phi - 16
// mm16 = 0.25*(-mm16+5.0*m16-3.0*phi-m15);
// //........................................................................
// nn2x = ijk+strideZ*2-strideY*2; // neighbor index (get convention)
// mm17 = Phi[nn2x]; // get neighbor for phi - 17
// mm17 = 0.25*(-mm17+5.0*m17-3.0*phi-m18);
// //........................................................................
// nn2x = ijk-strideZ*2+strideY*2; // neighbor index (get convention)
// mm18 = Phi[nn2x]; // get neighbor for phi - 18
// mm18 = 0.25*(-mm18+5.0*m18-3.0*phi-m17);
//
//
// //............Compute the Color Gradient...................................
// nx = -3.0*1.0/18.0*(m1-m2+0.5*(m7-m8+m9-m10+m11-m12+m13-m14));
// ny = -3.0*1.0/18.0*(m3-m4+0.5*(m7-m8-m9+m10+m15-m16+m17-m18));
// nz = -3.0*1.0/18.0*(m5-m6+0.5*(m11-m12-m13+m14+m15-m16-m17+m18));
// //............Compute the Chemical Potential...............................
// //chem = 2.0*3.0/18.0*(m1+m2+m3+m4+m5+m6-6*phi+0.5*(m7+m8+m9+m10+m11+m12+m13+m14+m15+m16+m17+m18-12*phi));//intermediate var, i.e. the laplacian
// //chem = 4.0*beta*phi*(phi+1.0)*(phi-1.0)-kappa*chem;
// chem = 2.0*3.0/18.0*(m1+m2+m3+m4+m5+m6-6*phi_temp+0.5*(m7+m8+m9+m10+m11+m12+m13+m14+m15+m16+m17+m18-12*phi_temp));//intermediate var, i.e. the laplacian
// chem = 4.0*beta*phi_temp*(phi_temp+1.0)*(phi_temp-1.0)-kappa*chem;
// //............Compute the Mixed Gradient...................................
// mgx = -3.0*1.0/18.0*(mm1-mm2+0.5*(mm7-mm8+mm9-mm10+mm11-mm12+mm13-mm14));
// mgy = -3.0*1.0/18.0*(mm3-mm4+0.5*(mm7-mm8-mm9+mm10+mm15-mm16+mm17-mm18));
// mgz = -3.0*1.0/18.0*(mm5-mm6+0.5*(mm11-mm12-mm13+mm14+mm15-mm16-mm17+mm18));
//
// //de-noise color gradient and mixed gradient
// C = sqrt(nx*nx+ny*ny+nz*nz);
// if (C<1.0e-12) nx=ny=nz=0.0;
// double mg_mag = sqrt(mgx*mgx+mgy*mgy+mgz*mgz);
// if (mg_mag<1.0e-12) mgx=mgy=mgz=0.0;
// //maybe you can also de-noise chemical potential ? within the bulk phase chem should be ZERO
// if (fabs(chem)<1.0e-12) chem=0.0;
//
// // q=0
// m0 = dist[n];
// // q=1
// m1 = dist[2*Np+n];
//
// // q=2
// m2 = dist[1*Np+n];
//
// // q=3
// m3 = dist[4*Np+n];
//
// // q = 4
// m4 = dist[3*Np+n];
//
// // q=5
// m5 = dist[6*Np+n];
//
// // q = 6
// m6 = dist[5*Np+n];
//
// // q=7
// m7 = dist[8*Np+n];
//
// // q = 8
// m8 = dist[7*Np+n];
//
// // q=9
// m9 = dist[10*Np+n];
//
// // q = 10
// m10 = dist[9*Np+n];
//
// // q=11
// m11 = dist[12*Np+n];
//
// // q=12
// m12 = dist[11*Np+n];
//
// // q=13
// m13 = dist[14*Np+n];
//
// // q=14
// m14 = dist[13*Np+n];
//
// // q=15
// m15 = dist[16*Np+n];
//
// // q=16
// m16 = dist[15*Np+n];
//
// // q=17
// m17 = dist[18*Np+n];
//
// // q=18
// m18 = dist[17*Np+n];
//
// //compute fluid velocity
// ux = 3.0/rho0*(m1-m2+m7-m8+m9-m10+m11-m12+m13-m14+0.5*(chem*nx+Fx)/3.0);
// uy = 3.0/rho0*(m3-m4+m7-m8-m9+m10+m15-m16+m17-m18+0.5*(chem*ny+Fy)/3.0);
// uz = 3.0/rho0*(m5-m6+m11-m12-m13+m14+m15-m16-m17+m18+0.5*(chem*nz+Fz)/3.0);
// //compute pressure
// p = (m0+m2+m1+m4+m3+m6+m5+m8+m7+m10+m9+m12+m11+m14+m13+m16+m15+m18+m17)
// +0.5*(rhoA-rhoB)/2.0/3.0*(ux*nx+uy*ny+uz*nz);
//
// //compute equilibrium distributions
// feq0 = 0.3333333333333333*p - 0.25*(Fx*ux + Fy*uy + Fz*uz)*(-0.6666666666666666 + ux*ux + uy*uy + uz*uz) -
// 0.16666666666666666*rho0*(ux*ux + uy*uy + uz*uz) - 0.5*(-(nx*ux) - ny*uy - nz*uz)*
// (-0.08333333333333333*(rhoA - rhoB)*(ux*ux + uy*uy + uz*uz) + chem*(0.3333333333333333 - 0.5*(ux*ux + uy*uy + uz*uz)));
// feq1 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-ux*ux + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*uz)) -
// 0.125*(Fx*(-1. + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux +
// 0.3333333333333333*(-2.*ux + ux*ux + uy*uy + uz*uz)) - 0.0625*(nx - nx*ux - ny*uy - nz*uz)*
// (2*chem*ux*ux - 0.3333333333333333*((-rhoA + rhoB)*ux*ux + 2*chem*(-2*ux + ux*ux + uy*uy + uz*uz)) +
// 0.1111111111111111*(4*chem - (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*uz)));
// feq2 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-ux*ux + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*uz)) -
// 0.125*(Fx + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux +
// 0.3333333333333333*(2.*ux + ux*ux + uy*uy + uz*uz)) - 0.0625*(nx + nx*ux + ny*uy + nz*uz)*
// (-2.*chem*ux*ux + 0.1111111111111111*(-4.*chem + rhoB*(-2.*ux - 1.*ux*ux - 1.*uy*uy - 1.*uz*uz) +
// rhoA*(2.*ux + ux*ux + uy*uy + uz*uz)) + 0.3333333333333333*((-1.*rhoA + rhoB)*ux*ux +
// chem*(4.*ux + 2.*ux*ux + 2.*uy*uy + 2.*uz*uz)));
// feq3 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-uy*uy + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*uz)) -
// 0.125*(Fx*ux + Fy*(-1. + uy) + Fz*uz)*(-0.2222222222222222 - 1.*uy*uy +
// 0.3333333333333333*(ux*ux - 2.*uy + uy*uy + uz*uz)) - 0.0625*(ny - nx*ux - ny*uy - nz*uz)*
// (2*chem*uy*uy - 0.3333333333333333*((-rhoA + rhoB)*uy*uy + 2*chem*(ux*ux - 2*uy + uy*uy + uz*uz)) +
// 0.1111111111111111*(4*chem - (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*uz)));
// feq4 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-uy*uy + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*uz)) -
// 0.125*(Fy + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*uy*uy +
// 0.3333333333333333*(ux*ux + 2.*uy + uy*uy + uz*uz)) - 0.0625*(ny + nx*ux + ny*uy + nz*uz)*
// (-2.*chem*uy*uy + 0.1111111111111111*(-4.*chem + rhoB*(-1.*ux*ux - 2.*uy - 1.*uy*uy - 1.*uz*uz) +
// rhoA*(ux*ux + 2.*uy + uy*uy + uz*uz)) + 0.3333333333333333*((-1.*rhoA + rhoB)*uy*uy +
// chem*(2.*ux*ux + 4.*uy + 2.*uy*uy + 2.*uz*uz)));
// feq5 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-uz*uz + 0.3333333333333333*(ux*ux + uy*uy + (-2 + uz)*uz)) -
// 0.125*(Fx*ux + Fy*uy + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*uz*uz +
// 0.3333333333333333*(ux*ux + uy*uy + (-2. + uz)*uz)) - 0.0625*(nx*ux + ny*uy + nz*(-1. + uz))*
// (-2.*chem*uz*uz + 0.1111111111111111*(-4.*chem + rhoB*(-1.*ux*ux - 1.*uy*uy + (2. - 1.*uz)*uz) +
// rhoA*(ux*ux + uy*uy + (-2. + uz)*uz)) + 0.3333333333333333*((-1.*rhoA + rhoB)*uz*uz +
// chem*(2.*ux*ux + 2.*uy*uy + uz*(-4. + 2.*uz))));
// feq6 = 0.05555555555555555*p - 0.08333333333333333*rho0*(-uz*uz + 0.3333333333333333*(ux*ux + uy*uy + uz*(2 + uz))) -
// 0.125*(Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*uz*uz +
// 0.3333333333333333*(ux*ux + uy*uy + uz*(2. + uz))) - 0.0625*(nz + nx*ux + ny*uy + nz*uz)*
// (-2.*chem*uz*uz + 0.1111111111111111*(-4.*chem + rhoB*(-1.*ux*ux - 1.*uy*uy + (-2. - 1.*uz)*uz) +
// rhoA*(ux*ux + uy*uy + uz*(2. + uz))) + 0.3333333333333333*((-1.*rhoA + rhoB)*uz*uz +
// chem*(2.*ux*ux + 2.*uy*uy + uz*(4. + 2.*uz))));
// feq7 = 0.027777777777777776*p - 0.041666666666666664*rho0*
// (-(ux + uy)*(ux + uy) + 0.3333333333333333*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) -
// 0.0625*(Fx*(-1. + ux) + Fy*(-1. + uy) + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux - 2.*ux*uy - 1.*uy*uy +
// 0.3333333333333333*(-2.*ux + ux*ux - 2.*uy + uy*uy + uz*uz)) - 0.03125*(nx + ny - nx*ux - ny*uy - nz*uz)*
// (2*chem*(ux + uy)*(ux + uy) + 0.3333333333333333*((rhoA - rhoB)*(ux + uy)*(ux + uy) - 2*chem*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
// 0.1111111111111111*(4*chem - (rhoA - rhoB)*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)));
// feq8 = 0.027777777777777776*p - 0.041666666666666664*rho0*
// (-(ux + uy)*(ux + uy) + 0.3333333333333333*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) -
// 0.0625*(Fx + Fy + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux - 2.*ux*uy - 1.*uy*uy +
// 0.3333333333333333*(2.*ux + ux*ux + 2.*uy + uy*uy + uz*uz)) - 0.03125*(-(nx*(1 + ux)) - ny*(1 + uy) - nz*uz)*
// (2*chem*(ux + uy)*(ux + uy) - 0.3333333333333333*(-((rhoA - rhoB)*(ux + uy)*(ux + uy)) +
// 2*chem*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) + 0.1111111111111111*
// (4*chem - (rhoA - rhoB)*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)));
// feq9 = 0.027777777777777776*p - 0.041666666666666664*rho0*
// (-(ux - uy)*(ux - uy) + 0.3333333333333333*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) -
// 0.0625*(Fy + Fx*(-1. + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux + 2.*ux*uy - 1.*uy*uy +
// 0.3333333333333333*(-2.*ux + ux*ux + 2.*uy + uy*uy + uz*uz)) - 0.03125*(nx - nx*ux - ny*(1 + uy) - nz*uz)*
// (2*chem*(ux - uy)*(ux - uy) - 0.3333333333333333*(-((rhoA - rhoB)*(ux - uy)*(ux - uy)) +
// 2*chem*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) + 0.1111111111111111*
// (4*chem - (rhoA - rhoB)*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)));
// feq10 = 0.027777777777777776*p - 0.041666666666666664*rho0*
// (-(ux - uy)*(ux - uy) + 0.3333333333333333*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) -
// 0.0625*(Fx*(1 + ux) + Fy*(-1. + uy) + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux + 2.*ux*uy - 1.*uy*uy +
// 0.3333333333333333*(2.*ux + ux*ux - 2.*uy + uy*uy + uz*uz)) - 0.03125*(ny - nx*(1 + ux) - ny*uy - nz*uz)*
// (2*chem*(ux - uy)*(ux - uy) - 0.3333333333333333*(-((rhoA - rhoB)*(ux - uy)*(ux - uy)) +
// 2*chem*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) + 0.1111111111111111*
// (4*chem - (rhoA - rhoB)*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)));
// feq11 = 0.027777777777777776*p - 0.041666666666666664*rho0*
// (-(ux + uz)*(ux + uz) + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) -
// 0.0625*(Fx*(-1. + ux) + Fy*uy + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*ux*ux - 2.*ux*uz - 1.*uz*uz +
// 0.3333333333333333*(-2.*ux + ux*ux + uy*uy + (-2. + uz)*uz)) - 0.03125*(nx + nz - nx*ux - ny*uy - nz*uz)*
// (2*chem*(ux + uz)*(ux + uz) + 0.3333333333333333*((rhoA - rhoB)*(ux + uz)*(ux + uz) - 2*chem*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
// 0.1111111111111111*(4*chem - (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)));
// feq12 = 0.027777777777777776*p - 0.041666666666666664*rho0*
// (-(ux + uz)*(ux + uz) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*(2 + uz))) -
// 0.0625*(Fx + Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux - 2.*ux*uz - 1.*uz*uz +
// 0.3333333333333333*(2.*ux + ux*ux + uy*uy + uz*(2. + uz))) - 0.03125*(-(nx*(1 + ux)) - ny*uy - nz*(1 + uz))*
// (2*chem*(ux + uz)*(ux + uz) - 0.3333333333333333*(-((rhoA - rhoB)*(ux + uz)*(ux + uz)) +
// 2*chem*(2*ux + ux*ux + uy*uy + uz*(2 + uz))) + 0.1111111111111111*
// (4*chem - (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + uz*(2 + uz))));
// feq13 = 0.027777777777777776*p - 0.041666666666666664*rho0*
// (-(ux - uz)*(ux - uz) + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) -
// 0.0625*(Fz + Fx*(-1. + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*ux*ux + 2.*ux*uz - 1.*uz*uz +
// 0.3333333333333333*(-2.*ux + ux*ux + uy*uy + uz*(2. + uz))) - 0.03125*(nx - nx*ux - ny*uy - nz*(1 + uz))*
// (2*chem*(ux - uz)*(ux - uz) - 0.3333333333333333*(-((rhoA - rhoB)*(ux - uz)*(ux - uz)) +
// 2*chem*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) + 0.1111111111111111*
// (4*chem - (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))));
// feq14 = 0.027777777777777776*p - 0.041666666666666664*rho0*
// (-(ux - uz)*(ux - uz) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) -
// 0.0625*(Fx*(1 + ux) + Fy*uy + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*ux*ux + 2.*ux*uz - 1.*uz*uz +
// 0.3333333333333333*(2.*ux + ux*ux + uy*uy + (-2. + uz)*uz)) - 0.03125*(nz - nx*(1 + ux) - ny*uy - nz*uz)*
// (2*chem*(ux - uz)*(ux - uz) - 0.3333333333333333*(-((rhoA - rhoB)*(ux - uz)*(ux - uz)) +
// 2*chem*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) + 0.1111111111111111*
// (4*chem - (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)));
// feq15 = 0.027777777777777776*p - 0.041666666666666664*rho0*
// (-(uy + uz)*(uy + uz) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)) -
// 0.0625*(Fx*ux + Fy*(-1. + uy) + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*uy*uy - 2.*uy*uz - 1.*uz*uz +
// 0.3333333333333333*(ux*ux - 2.*uy + uy*uy + (-2. + uz)*uz)) - 0.03125*(ny + nz - nx*ux - ny*uy - nz*uz)*
// (2*chem*(uy + uz)*(uy + uz) + 0.3333333333333333*((rhoA - rhoB)*(uy + uz)*(uy + uz) - 2*chem*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)) +
// 0.1111111111111111*(4*chem - (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)));
// feq16 = 0.027777777777777776*p - 0.041666666666666664*rho0*
// (-(uy + uz)*(uy + uz) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))) -
// 0.0625*(Fy + Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*uy*uy - 2.*uy*uz - 1.*uz*uz +
// 0.3333333333333333*(ux*ux + 2.*uy + uy*uy + uz*(2. + uz))) - 0.03125*(-(nx*ux) - ny*(1 + uy) - nz*(1 + uz))*
// (2*chem*(uy + uz)*(uy + uz) - 0.3333333333333333*(-((rhoA - rhoB)*(uy + uz)*(uy + uz)) +
// 2*chem*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))) + 0.1111111111111111*
// (4*chem - (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))));
// feq17 = 0.027777777777777776*p - 0.041666666666666664*rho0*
// (-(uy - uz)*(uy - uz) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))) -
// 0.0625*(Fz + Fx*ux + Fy*(-1. + uy) + Fz*uz)*(-0.2222222222222222 - 1.*uy*uy + 2.*uy*uz - 1.*uz*uz +
// 0.3333333333333333*(ux*ux - 2.*uy + uy*uy + uz*(2. + uz))) - 0.03125*(ny - nx*ux - ny*uy - nz*(1 + uz))*
// (2*chem*(uy - uz)*(uy - uz) - 0.3333333333333333*(-((rhoA - rhoB)*(uy - uz)*(uy - uz)) +
// 2*chem*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))) + 0.1111111111111111*
// (4*chem - (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))));
// feq18 = 0.027777777777777776*p - 0.041666666666666664*rho0*
// (-(uy - uz)*(uy - uz) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) -
// 0.0625*(Fx*ux + Fy*(1 + uy) + Fz*(-1. + uz))*(-0.2222222222222222 - 1.*uy*uy + 2.*uy*uz - 1.*uz*uz +
// 0.3333333333333333*(ux*ux + 2.*uy + uy*uy + (-2. + uz)*uz)) - 0.03125*(nz - nx*ux - ny*(1 + uy) - nz*uz)*
// (2*chem*(uy - uz)*(uy - uz) - 0.3333333333333333*(-((rhoA - rhoB)*(uy - uz)*(uy - uz)) +
// 2*chem*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) + 0.1111111111111111*
// (4*chem - (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)));
//
// //------------------------------------------------- BCK collison ------------------------------------------------------------//
tried BGK collision without mixed gradient
2021-03-30 01:05:12 -04:00
// // q=0
// dist[n] = m0 - (m0-feq0)/tau + 0.25*(2*(Fx*ux + Fy*uy + Fz*uz)*(-0.6666666666666666 + ux*ux + uy*uy + uz*uz) +
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// (mgx*ux + mgy*uy + mgz*uz)*(2*chem*(ux*ux + uy*uy + uz*uz) +
tried BGK collision without mixed gradient
2021-03-30 01:05:12 -04:00
// 0.3333333333333333*(-4*chem + (rhoA - rhoB)*(ux*ux + uy*uy + uz*uz))));
//
// // q = 1
// dist[1*Np+n] = m1 - (m1-feq1)/tau + 0.125*(2*(Fx*(-1 + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - ux*ux +
// 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*uz)) +
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// (mgx*(-1 + ux) + mgy*uy + mgz*uz)*(-2*chem*(ux*ux) +
tried BGK collision without mixed gradient
2021-03-30 01:05:12 -04:00
// 0.3333333333333333*((-rhoA + rhoB)*(ux*ux) + 2*chem*(-2*ux + ux*ux + uy*uy + uz*uz)) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*uz))));
//
// // q=2
// dist[2*Np+n] = m2 - (m2-feq2)/tau + 0.125*(2*(Fx + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - ux*ux +
// 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*uz)) +
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// (mgx + mgx*ux + mgy*uy + mgz*uz)*(-2*chem*(ux*ux) +
tried BGK collision without mixed gradient
2021-03-30 01:05:12 -04:00
// 0.3333333333333333*((-rhoA + rhoB)*(ux*ux) + 2*chem*(2*ux + ux*ux + uy*uy + uz*uz)) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + uz*uz))));
//
// // q = 3
// dist[3*Np+n] = m3 - (m3-feq3)/tau + 0.125*(2*(Fx*ux + Fy*(-1 + uy) + Fz*uz)*(-0.2222222222222222 - uy*uy +
// 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*uz)) +
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// (mgx*ux + mgy*(-1 + uy) + mgz*uz)*(-2*chem*(uy*uy) +
tried BGK collision without mixed gradient
2021-03-30 01:05:12 -04:00
// 0.3333333333333333*((-rhoA + rhoB)*(uy*uy) + 2*chem*(ux*ux - 2*uy + uy*uy + uz*uz)) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*uz))));
//
// // q = 4
// dist[4*Np+n] = m4 - (m4-feq4)/tau + 0.125*(2*(Fy + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - uy*uy +
// 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*uz)) +
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// (mgy + mgx*ux + mgy*uy + mgz*uz)*(-2*chem*(uy*uy) +
tried BGK collision without mixed gradient
2021-03-30 01:05:12 -04:00
// 0.3333333333333333*((-rhoA + rhoB)*(uy*uy) + 2*chem*(ux*ux + 2*uy + uy*uy + uz*uz)) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + uz*uz))));
//
// // q = 5
// dist[5*Np+n] = m5 - (m5-feq5)/tau + 0.125*(2*(Fx*ux + Fy*uy + Fz*(-1 + uz))*(-0.2222222222222222 - uz*uz +
// 0.3333333333333333*(ux*ux + uy*uy + (-2 + uz)*uz)) +
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// (mgx*ux + mgy*uy + mgz*(-1 + uz))*(-2*chem*(uz*uz) +
tried BGK collision without mixed gradient
2021-03-30 01:05:12 -04:00
// 0.3333333333333333*((-rhoA + rhoB)*(uz*uz) + 2*chem*(ux*ux + uy*uy + (-2 + uz)*uz)) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + uy*uy + (-2 + uz)*uz))));
//
// // q = 6
// dist[6*Np+n] = m6 - (m6-feq6)/tau + 0.125*(2*(Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - uz*uz +
// 0.3333333333333333*(ux*ux + uy*uy + uz*(2 + uz))) +
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// (mgz + mgx*ux + mgy*uy + mgz*uz)*(-2*chem*(uz*uz) +
tried BGK collision without mixed gradient
2021-03-30 01:05:12 -04:00
// 0.3333333333333333*((-rhoA + rhoB)*(uz*uz) + 2*chem*(ux*ux + uy*uy + uz*(2 + uz))) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + uy*uy + uz*(2 + uz)))));
//
// // q = 7
// dist[7*Np+n] = m7 - (m7-feq7)/tau + 0.0625*(-2*(Fx*(-1 + ux) + Fy*(-1 + uy) + Fz*uz)*
// (0.2222222222222222 + (ux + uy)*(ux + uy) -
// 0.3333333333333333*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// (mgx*(-1 + ux) + mgy*(-1 + uy) + mgz*uz)*
tried BGK collision without mixed gradient
2021-03-30 01:05:12 -04:00
// (-2*chem*((ux + uy)*(ux + uy)) + 0.3333333333333333*
// (-((rhoA - rhoB)*((ux + uy)*(ux + uy))) + 2*chem*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz))));
//
// // q = 8
// dist[8*Np+n] = m8 - (m8-feq8)/tau + 0.0625*(2*(Fx + Fy + Fx*ux + Fy*uy + Fz*uz)*
// (-0.2222222222222222 - (ux + uy)*(ux + uy) +
// 0.3333333333333333*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// (mgx + mgy + mgx*ux + mgy*uy + mgz*uz)*
tried BGK collision without mixed gradient
2021-03-30 01:05:12 -04:00
// (-2*chem*((ux + uy)*(ux + uy)) + 0.3333333333333333*
// (-((rhoA - rhoB)*((ux + uy)*(ux + uy))) + 2*chem*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz))));
//
// // q = 9
// dist[9*Np+n] = m9 - (m9-feq9)/tau + 0.0625*(2*(Fy + Fx*(-1 + ux) + Fy*uy + Fz*uz)*
// (-0.2222222222222222 - (ux - uy)*(ux - uy) +
// 0.3333333333333333*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// (mgy + mgx*(-1 + ux) + mgy*uy + mgz*uz)*
tried BGK collision without mixed gradient
2021-03-30 01:05:12 -04:00
// (-2*chem*((ux - uy)*(ux - uy)) + 0.3333333333333333*
// (-((rhoA - rhoB)*((ux - uy)*(ux - uy))) + 2*chem*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz))));
//
// // q = 10
// dist[10*Np+n] = m10 - (m10-feq10)/tau + 0.0625*(2*(Fx*(1 + ux) + Fy*(-1 + uy) + Fz*uz)*
// (-0.2222222222222222 - (ux - uy)*(ux - uy) +
// 0.3333333333333333*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// (mgx*(1 + ux) + mgy*(-1 + uy) + mgz*uz)*
tried BGK collision without mixed gradient
2021-03-30 01:05:12 -04:00
// (-2*chem*((ux - uy)*(ux - uy)) + 0.3333333333333333*
// (-((rhoA - rhoB)*((ux - uy)*(ux - uy))) + 2*chem*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz))));
//
// // q = 11
// dist[11*Np+n] = m11 - (m11-feq11)/tau + 0.0625*(-2*(Fx*(-1 + ux) + Fy*uy + Fz*(-1 + uz))*
// (0.2222222222222222 + (ux + uz)*(ux + uz) -
// 0.3333333333333333*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// (mgx*(-1 + ux) + mgy*uy + mgz*(-1 + uz))*
tried BGK collision without mixed gradient
2021-03-30 01:05:12 -04:00
// (-2*chem*((ux + uz)*(ux + uz)) + 0.3333333333333333*
// (-((rhoA - rhoB)*((ux + uz)*(ux + uz))) + 2*chem*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz))));
//
// // q = 12
// dist[12*Np+n] = m12 - (m12-feq12)/tau + 0.0625*(2*(Fx + Fz + Fx*ux + Fy*uy + Fz*uz)*
// (-0.2222222222222222 - (ux + uz)*(ux + uz) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*(2 + uz)))
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// + (mgx + mgz + mgx*ux + mgy*uy + mgz*uz)*
tried BGK collision without mixed gradient
2021-03-30 01:05:12 -04:00
// (-2*chem*((ux + uz)*(ux + uz)) + 0.3333333333333333*
// (-((rhoA - rhoB)*((ux + uz)*(ux + uz))) + 2*chem*(2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + uz*(2 + uz)))));
//
// // q = 13
// dist[13*Np+n] = m13 - (m13-feq13)/tau + 0.0625*(2*(Fz + Fx*(-1 + ux) + Fy*uy + Fz*uz)*
// (-0.2222222222222222 - (ux - uz)*(ux - uz) +
// 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// (mgz + mgx*(-1 + ux) + mgy*uy + mgz*uz)*
tried BGK collision without mixed gradient
2021-03-30 01:05:12 -04:00
// (-2*chem*((ux - uz)*(ux - uz)) + 0.3333333333333333*
// (-((rhoA - rhoB)*((ux - uz)*(ux - uz))) + 2*chem*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*(2 + uz)))));
//
// // q= 14
// dist[14*Np+n] = m14 - (m14-feq14)/tau + 0.0625*(2*(Fx*(1 + ux) + Fy*uy + Fz*(-1 + uz))*
// (-0.2222222222222222 - (ux - uz)*(ux - uz) +
// 0.3333333333333333*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// (mgx*(1 + ux) + mgy*uy + mgz*(-1 + uz))*
tried BGK collision without mixed gradient
2021-03-30 01:05:12 -04:00
// (-2*chem*((ux - uz)*(ux - uz)) + 0.3333333333333333*
// (-((rhoA - rhoB)*((ux - uz)*(ux - uz))) + 2*chem*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz))));
//
// // q = 15
// dist[15*Np+n] = m15 - (m15-feq15)/tau + 0.0625*(-2*(Fx*ux + Fy*(-1 + uy) + Fz*(-1 + uz))*
// (0.2222222222222222 + (uy + uz)*(uy + uz) - 0.3333333333333333*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz))
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// + (mgx*ux + mgy*(-1 + uy) + mgz*(-1 + uz))*
tried BGK collision without mixed gradient
2021-03-30 01:05:12 -04:00
// (-2*chem*((uy + uz)*(uy + uz)) + 0.3333333333333333*
// (-((rhoA - rhoB)*((uy + uz)*(uy + uz))) + 2*chem*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz))));
//
// // q = 16
// dist[16*Np+n] = m16 - (m16-feq16)/tau + 0.0625*(2*(Fy + Fz + Fx*ux + Fy*uy + Fz*uz)*
// (-0.2222222222222222 - (uy + uz)*(uy + uz) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*(2 + uz)))
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// + (mgy + mgz + mgx*ux + mgy*uy + mgz*uz)*
tried BGK collision without mixed gradient
2021-03-30 01:05:12 -04:00
// (-2*chem*((uy + uz)*(uy + uz)) + 0.3333333333333333*
// (-((rhoA - rhoB)*((uy + uz)*(uy + uz))) + 2*chem*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + uz*(2 + uz)))));
//
// // q = 17
// dist[17*Np+n] = m17 - (m17-feq17)/tau + 0.0625*(2*(Fz + Fx*ux + Fy*(-1 + uy) + Fz*uz)*
// (-0.2222222222222222 - (uy - uz)*(uy - uz) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*(2 + uz)))
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// + (mgz + mgx*ux + mgy*(-1 + uy) + mgz*uz)*
tried BGK collision without mixed gradient
2021-03-30 01:05:12 -04:00
// (-2*chem*((uy - uz)*(uy - uz)) + 0.3333333333333333*
// (-((rhoA - rhoB)*((uy - uz)*(uy - uz))) + 2*chem*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*(2 + uz)))));
//
// // q = 18
// dist[18*Np+n] = m18 - (m18-feq18)/tau + 0.0625*(2*(Fx*ux + Fy*(1 + uy) + Fz*(-1 + uz))*
// (-0.2222222222222222 - (uy - uz)*(uy - uz) +
// 0.3333333333333333*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) +
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
// (mgx*ux + mgy*(1 + uy) + mgz*(-1 + uz))*
tried BGK collision without mixed gradient
2021-03-30 01:05:12 -04:00
// (-2*chem*((uy - uz)*(uy - uz)) + 0.3333333333333333*
// (-((rhoA - rhoB)*((uy - uz)*(uy - uz))) + 2*chem*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) +
// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz))));
// //----------------------------------------------------------------------------------------------------------------------------------------//
CPU: also update the reformulation of the directional derivative of gradients
2021-04-23 02:38:00 -04:00
//
//// //----------------------------------------- BCK collison without mixed grad ------------------------------------------------------------//
//// // q=0
//// dist[n] = m0 - (m0-feq0)/tau + 0.25*(2*(Fx*ux + Fy*uy + Fz*uz)*(-0.6666666666666666 + ux*ux + uy*uy + uz*uz) +
//// (nx*ux + ny*uy + nz*uz)*(2*chem*(ux*ux + uy*uy + uz*uz) +
//// 0.3333333333333333*(-4*chem + (rhoA - rhoB)*(ux*ux + uy*uy + uz*uz))));
////
//// // q = 1
//// dist[1*Np+n] = m1 - (m1-feq1)/tau + 0.125*(2*(Fx*(-1 + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - ux*ux +
//// 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*uz)) +
//// (nx*(-1 + ux) + ny*uy + nz*uz)*(-2*chem*(ux*ux) +
//// 0.3333333333333333*((-rhoA + rhoB)*(ux*ux) + 2*chem*(-2*ux + ux*ux + uy*uy + uz*uz)) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*uz))));
////
//// // q=2
//// dist[2*Np+n] = m2 - (m2-feq2)/tau + 0.125*(2*(Fx + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - ux*ux +
//// 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*uz)) +
//// (nx + nx*ux + ny*uy + nz*uz)*(-2*chem*(ux*ux) +
//// 0.3333333333333333*((-rhoA + rhoB)*(ux*ux) + 2*chem*(2*ux + ux*ux + uy*uy + uz*uz)) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + uz*uz))));
////
//// // q = 3
//// dist[3*Np+n] = m3 - (m3-feq3)/tau + 0.125*(2*(Fx*ux + Fy*(-1 + uy) + Fz*uz)*(-0.2222222222222222 - uy*uy +
//// 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*uz)) +
//// (nx*ux + ny*(-1 + uy) + nz*uz)*(-2*chem*(uy*uy) +
//// 0.3333333333333333*((-rhoA + rhoB)*(uy*uy) + 2*chem*(ux*ux - 2*uy + uy*uy + uz*uz)) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*uz))));
////
//// // q = 4
//// dist[4*Np+n] = m4 - (m4-feq4)/tau + 0.125*(2*(Fy + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - uy*uy +
//// 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*uz)) +
//// (ny + nx*ux + ny*uy + nz*uz)*(-2*chem*(uy*uy) +
//// 0.3333333333333333*((-rhoA + rhoB)*(uy*uy) + 2*chem*(ux*ux + 2*uy + uy*uy + uz*uz)) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + uz*uz))));
////
//// // q = 5
//// dist[5*Np+n] = m5 - (m5-feq5)/tau + 0.125*(2*(Fx*ux + Fy*uy + Fz*(-1 + uz))*(-0.2222222222222222 - uz*uz +
//// 0.3333333333333333*(ux*ux + uy*uy + (-2 + uz)*uz)) +
//// (nx*ux + ny*uy + nz*(-1 + uz))*(-2*chem*(uz*uz) +
//// 0.3333333333333333*((-rhoA + rhoB)*(uz*uz) + 2*chem*(ux*ux + uy*uy + (-2 + uz)*uz)) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + uy*uy + (-2 + uz)*uz))));
////
//// // q = 6
//// dist[6*Np+n] = m6 - (m6-feq6)/tau + 0.125*(2*(Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - uz*uz +
//// 0.3333333333333333*(ux*ux + uy*uy + uz*(2 + uz))) +
//// (nz + nx*ux + ny*uy + nz*uz)*(-2*chem*(uz*uz) +
//// 0.3333333333333333*((-rhoA + rhoB)*(uz*uz) + 2*chem*(ux*ux + uy*uy + uz*(2 + uz))) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + uy*uy + uz*(2 + uz)))));
////
//// // q = 7
//// dist[7*Np+n] = m7 - (m7-feq7)/tau + 0.0625*(-2*(Fx*(-1 + ux) + Fy*(-1 + uy) + Fz*uz)*
//// (0.2222222222222222 + (ux + uy)*(ux + uy) -
//// 0.3333333333333333*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
//// (nx*(-1 + ux) + ny*(-1 + uy) + nz*uz)*
//// (-2*chem*((ux + uy)*(ux + uy)) + 0.3333333333333333*
//// (-((rhoA - rhoB)*((ux + uy)*(ux + uy))) + 2*chem*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz))));
////
//// // q = 8
//// dist[8*Np+n] = m8 - (m8-feq8)/tau + 0.0625*(2*(Fx + Fy + Fx*ux + Fy*uy + Fz*uz)*
//// (-0.2222222222222222 - (ux + uy)*(ux + uy) +
//// 0.3333333333333333*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
//// (nx + ny + nx*ux + ny*uy + nz*uz)*
//// (-2*chem*((ux + uy)*(ux + uy)) + 0.3333333333333333*
//// (-((rhoA - rhoB)*((ux + uy)*(ux + uy))) + 2*chem*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz))));
////
//// // q = 9
//// dist[9*Np+n] = m9 - (m9-feq9)/tau + 0.0625*(2*(Fy + Fx*(-1 + ux) + Fy*uy + Fz*uz)*
//// (-0.2222222222222222 - (ux - uy)*(ux - uy) +
//// 0.3333333333333333*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
//// (ny + nx*(-1 + ux) + ny*uy + nz*uz)*
//// (-2*chem*((ux - uy)*(ux - uy)) + 0.3333333333333333*
//// (-((rhoA - rhoB)*((ux - uy)*(ux - uy))) + 2*chem*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz))));
////
//// // q = 10
//// dist[10*Np+n] = m10 - (m10-feq10)/tau + 0.0625*(2*(Fx*(1 + ux) + Fy*(-1 + uy) + Fz*uz)*
//// (-0.2222222222222222 - (ux - uy)*(ux - uy) +
//// 0.3333333333333333*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
//// (nx*(1 + ux) + ny*(-1 + uy) + nz*uz)*
//// (-2*chem*((ux - uy)*(ux - uy)) + 0.3333333333333333*
//// (-((rhoA - rhoB)*((ux - uy)*(ux - uy))) + 2*chem*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz))));
////
//// // q = 11
//// dist[11*Np+n] = m11 - (m11-feq11)/tau + 0.0625*(-2*(Fx*(-1 + ux) + Fy*uy + Fz*(-1 + uz))*
//// (0.2222222222222222 + (ux + uz)*(ux + uz) -
//// 0.3333333333333333*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
//// (nx*(-1 + ux) + ny*uy + nz*(-1 + uz))*
//// (-2*chem*((ux + uz)*(ux + uz)) + 0.3333333333333333*
//// (-((rhoA - rhoB)*((ux + uz)*(ux + uz))) + 2*chem*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz))));
////
//// // q = 12
//// dist[12*Np+n] = m12 - (m12-feq12)/tau + 0.0625*(2*(Fx + Fz + Fx*ux + Fy*uy + Fz*uz)*
//// (-0.2222222222222222 - (ux + uz)*(ux + uz) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*(2 + uz)))
//// + (nx + nz + nx*ux + ny*uy + nz*uz)*
//// (-2*chem*((ux + uz)*(ux + uz)) + 0.3333333333333333*
//// (-((rhoA - rhoB)*((ux + uz)*(ux + uz))) + 2*chem*(2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + uz*(2 + uz)))));
////
//// // q = 13
//// dist[13*Np+n] = m13 - (m13-feq13)/tau + 0.0625*(2*(Fz + Fx*(-1 + ux) + Fy*uy + Fz*uz)*
//// (-0.2222222222222222 - (ux - uz)*(ux - uz) +
//// 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
//// (nz + nx*(-1 + ux) + ny*uy + nz*uz)*
//// (-2*chem*((ux - uz)*(ux - uz)) + 0.3333333333333333*
//// (-((rhoA - rhoB)*((ux - uz)*(ux - uz))) + 2*chem*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(-2*ux + ux*ux + uy*uy + uz*(2 + uz)))));
////
//// // q= 14
//// dist[14*Np+n] = m14 - (m14-feq14)/tau + 0.0625*(2*(Fx*(1 + ux) + Fy*uy + Fz*(-1 + uz))*
//// (-0.2222222222222222 - (ux - uz)*(ux - uz) +
//// 0.3333333333333333*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
//// (nx*(1 + ux) + ny*uy + nz*(-1 + uz))*
//// (-2*chem*((ux - uz)*(ux - uz)) + 0.3333333333333333*
//// (-((rhoA - rhoB)*((ux - uz)*(ux - uz))) + 2*chem*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz))));
////
//// // q = 15
//// dist[15*Np+n] = m15 - (m15-feq15)/tau + 0.0625*(-2*(Fx*ux + Fy*(-1 + uy) + Fz*(-1 + uz))*
//// (0.2222222222222222 + (uy + uz)*(uy + uz) - 0.3333333333333333*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz))
//// + (nx*ux + ny*(-1 + uy) + nz*(-1 + uz))*
//// (-2*chem*((uy + uz)*(uy + uz)) + 0.3333333333333333*
//// (-((rhoA - rhoB)*((uy + uz)*(uy + uz))) + 2*chem*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz))));
////
//// // q = 16
//// dist[16*Np+n] = m16 - (m16-feq16)/tau + 0.0625*(2*(Fy + Fz + Fx*ux + Fy*uy + Fz*uz)*
//// (-0.2222222222222222 - (uy + uz)*(uy + uz) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*(2 + uz)))
//// + (ny + nz + nx*ux + ny*uy + nz*uz)*
//// (-2*chem*((uy + uz)*(uy + uz)) + 0.3333333333333333*
//// (-((rhoA - rhoB)*((uy + uz)*(uy + uz))) + 2*chem*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + uz*(2 + uz)))));
////
//// // q = 17
//// dist[17*Np+n] = m17 - (m17-feq17)/tau + 0.0625*(2*(Fz + Fx*ux + Fy*(-1 + uy) + Fz*uz)*
//// (-0.2222222222222222 - (uy - uz)*(uy - uz) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*(2 + uz)))
//// + (nz + nx*ux + ny*(-1 + uy) + nz*uz)*
//// (-2*chem*((uy - uz)*(uy - uz)) + 0.3333333333333333*
//// (-((rhoA - rhoB)*((uy - uz)*(uy - uz))) + 2*chem*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux - 2*uy + uy*uy + uz*(2 + uz)))));
////
//// // q = 18
//// dist[18*Np+n] = m18 - (m18-feq18)/tau + 0.0625*(2*(Fx*ux + Fy*(1 + uy) + Fz*(-1 + uz))*
//// (-0.2222222222222222 - (uy - uz)*(uy - uz) +
//// 0.3333333333333333*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) +
//// (nx*ux + ny*(1 + uy) + nz*(-1 + uz))*
//// (-2*chem*((uy - uz)*(uy - uz)) + 0.3333333333333333*
//// (-((rhoA - rhoB)*((uy - uz)*(uy - uz))) + 2*chem*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) +
//// 0.1111111111111111*(-4*chem + (rhoA - rhoB)*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz))));
//// //----------------------------------------------------------------------------------------------------------------------------------------//
//
// // ----------------------------- compute phase field evolution ----------------------------------------
// //Normalize the Color Gradient
// C = sqrt(nx*nx+ny*ny+nz*nz);
// double ColorMag = C;
// if (C==0.0) ColorMag=1.0;
// nx = nx/ColorMag;
// ny = ny/ColorMag;
// nz = nz/ColorMag;
// //compute surface tension-related parameter
// //theta = 4.5*M*2.0*(1-phi*phi)/W;
// theta = 4.5*M*2.0*(1-phi_temp*phi_temp)/W;
//
// //load distributions of phase field
// //q=0
// h0 = hq[n];
// //q=1
// h1 = hq[2*Np+n];
//
// //q=2
// h2 = hq[1*Np+n];
//
// //q=3
// h3 = hq[4*Np+n];
//
// //q=4
// h4 = hq[3*Np+n];
//
// //q=5
// h5 = hq[6*Np+n];
//
// //q=6
// h6 = hq[5*Np+n];
//
// //-------------------------------- BGK collison for phase field ---------------------------------//
// // q = 0
// hq[n] = h0 - (h0 - 0.3333333333333333*phi)/tauM;
//
// // q = 1
// hq[1*Np+n] = h1 - (h1 - 0.1111111111111111*nx*theta - phi*(0.1111111111111111 + 0.5*ux))/tauM;
//
// // q = 2
// hq[2*Np+n] = h2 - (h2 + 0.1111111111111111*nx*theta - phi*(0.1111111111111111 - 0.5*ux))/tauM;
//
// // q = 3
// hq[3*Np+n] = h3 - (h3 - 0.1111111111111111*ny*theta - phi*(0.1111111111111111 + 0.5*uy))/tauM;
//
// // q = 4
// hq[4*Np+n] = h4 - (h4 + 0.1111111111111111*ny*theta - phi*(0.1111111111111111 - 0.5*uy))/tauM;
//
// // q = 5
// hq[5*Np+n] = h5 - (h5 - 0.1111111111111111*nz*theta - phi*(0.1111111111111111 + 0.5*uz))/tauM;
//
// // q = 6
// hq[6*Np+n] = h6 - (h6 + 0.1111111111111111*nz*theta - phi*(0.1111111111111111 - 0.5*uz))/tauM;
// //........................................................................
//
// //Update velocity on device
// Vel[0*Np+n] = ux;
// Vel[1*Np+n] = uy;
// Vel[2*Np+n] = uz;
// //Update pressure on device
// Pressure[n] = p;
// //Update chemical potential on device
// mu_phi[n] = chem;
// //Update color gradient on device
// ColorGrad[0*Np+n] = nx;
// ColorGrad[1*Np+n] = ny;
// ColorGrad[2*Np+n] = nz;
//
// }
//}
try the old approach for phase field collision; to be built and verified
2021-03-25 01:52:45 -04:00
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
extern "C" void ScaLBL_D3Q19_AAodd_FreeLeeModel_SingleFluid_BGK(int *neighborList, double *dist, double *Vel, double *Pressure,
double tau, double rho0, double Fx, double Fy, double Fz, int start, int finish, int Np){
int nr1,nr2,nr3,nr4,nr5,nr6,nr7,nr8,nr9,nr10,nr11,nr12,nr13,nr14,nr15,nr16,nr17,nr18;
double ux,uy,uz;//fluid velocity
double p;//pressure
// distribution functions
double m1,m2,m4,m6,m8,m9,m10,m11,m12,m13,m14,m15,m16,m17,m18;
double m0,m3,m5,m7;
for (int n=start; n<finish; n++){
// q=0
m0 = dist[n];
// q=1
nr1 = neighborList[n]; // neighbor 2 ( > 10Np => odd part of dist)
m1 = dist[nr1]; // reading the f1 data into register fq
nr2 = neighborList[n+Np]; // neighbor 1 ( < 10Np => even part of dist)
m2 = dist[nr2]; // reading the f2 data into register fq
// q=3
nr3 = neighborList[n+2*Np]; // neighbor 4
m3 = dist[nr3];
// q = 4
nr4 = neighborList[n+3*Np]; // neighbor 3
m4 = dist[nr4];
// q=5
nr5 = neighborList[n+4*Np];
m5 = dist[nr5];
// q = 6
nr6 = neighborList[n+5*Np];
m6 = dist[nr6];
// q=7
nr7 = neighborList[n+6*Np];
m7 = dist[nr7];
// q = 8
nr8 = neighborList[n+7*Np];
m8 = dist[nr8];
// q=9
nr9 = neighborList[n+8*Np];
m9 = dist[nr9];
// q = 10
nr10 = neighborList[n+9*Np];
m10 = dist[nr10];
// q=11
nr11 = neighborList[n+10*Np];
m11 = dist[nr11];
// q=12
nr12 = neighborList[n+11*Np];
m12 = dist[nr12];
// q=13
nr13 = neighborList[n+12*Np];
m13 = dist[nr13];
// q=14
nr14 = neighborList[n+13*Np];
m14 = dist[nr14];
// q=15
nr15 = neighborList[n+14*Np];
m15 = dist[nr15];
// q=16
nr16 = neighborList[n+15*Np];
m16 = dist[nr16];
// q=17
nr17 = neighborList[n+16*Np];
m17 = dist[nr17];
// q=18
nr18 = neighborList[n+17*Np];
m18 = dist[nr18];
//compute fluid velocity
add a correcting factor cs2 into velocity equation
2021-02-08 20:31:45 -05:00
ux = 3.0/rho0*(m1-m2+m7-m8+m9-m10+m11-m12+m13-m14+0.5*(Fx)/3.0);
uy = 3.0/rho0*(m3-m4+m7-m8-m9+m10+m15-m16+m17-m18+0.5*(Fy)/3.0);
uz = 3.0/rho0*(m5-m6+m11-m12-m13+m14+m15-m16-m17+m18+0.5*(Fz)/3.0);
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
//compute pressure
p = (m0+m2+m1+m4+m3+m6+m5+m8+m7+m10+m9+m12+m11+m14+m13+m16+m15+m18+m17);
//------------------------------------------------- BCK collison ------------------------------------------------------------//
// q=0
dist[n] = m0 + 0.5*(Fx*ux + Fy*uy + Fz*uz)*(-0.6666666666666666 + ux*ux + uy*uy + uz*uz) -
(m0 - 0.3333333333333333*p + 0.25*(Fx*ux + Fy*uy + Fz*uz)*
(-0.6666666666666666 + ux*ux + uy*uy + uz*uz) + 0.16666666666666666*rho0*(ux*ux + uy*uy + uz*uz))/
tau;
// q = 1
dist[nr2] = m1 + 0.25*(Fx*(-1 + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - ux*ux +
0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*uz)) -
(m1 - 0.05555555555555555*p + 0.08333333333333333*rho0*
(-(ux*ux) + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*uz)) +
0.125*(Fx*(-1. + ux) + Fy*uy + Fz*uz)*
(-0.2222222222222222 - 1.*(ux*ux) + 0.3333333333333333*(-2.*ux + ux*ux + uy*uy + uz*uz)))/tau;
// q=2
dist[nr1] = m2 + 0.25*(Fx + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - ux*ux +
0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*uz)) -
(m2 - 0.05555555555555555*p + 0.08333333333333333*rho0*
(-(ux*ux) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*uz)) +
0.125*(Fx + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*(ux*ux) +
0.3333333333333333*(2.*ux + ux*ux + uy*uy + uz*uz)))/tau;
// q = 3
dist[nr4] = m3 + 0.25*(Fx*ux + Fy*(-1 + uy) + Fz*uz)*(-0.2222222222222222 - uy*uy +
0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*uz)) -
(m3 - 0.05555555555555555*p + 0.08333333333333333*rho0*
(-(uy*uy) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*uz)) +
0.125*(Fx*ux + Fy*(-1. + uy) + Fz*uz)*
(-0.2222222222222222 - 1.*(uy*uy) + 0.3333333333333333*(ux*ux - 2.*uy + uy*uy + uz*uz)))/tau;
// q = 4
dist[nr3] = m4 + 0.25*(Fy + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - uy*uy +
0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*uz)) -
(m4 - 0.05555555555555555*p + 0.08333333333333333*rho0*
(-(uy*uy) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*uz)) +
0.125*(Fy + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*(uy*uy) +
0.3333333333333333*(ux*ux + 2.*uy + uy*uy + uz*uz)))/tau;
// q = 5
dist[nr6] = m5 + 0.25*(Fx*ux + Fy*uy + Fz*(-1 + uz))*(-0.2222222222222222 - uz*uz +
0.3333333333333333*(ux*ux + uy*uy + (-2 + uz)*uz)) -
(m5 - 0.05555555555555555*p + 0.08333333333333333*rho0*
(-(uz*uz) + 0.3333333333333333*(ux*ux + uy*uy + (-2 + uz)*uz)) +
0.125*(Fx*ux + Fy*uy + Fz*(-1. + uz))*
(-0.2222222222222222 - 1.*(uz*uz) + 0.3333333333333333*(ux*ux + uy*uy + (-2. + uz)*uz)))/tau;
// q = 6
dist[nr5] = m6 + 0.25*(Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - uz*uz +
0.3333333333333333*(ux*ux + uy*uy + uz*(2 + uz))) -
(m6 - 0.05555555555555555*p + 0.08333333333333333*rho0*
(-(uz*uz) + 0.3333333333333333*(ux*ux + uy*uy + uz*(2 + uz))) +
0.125*(Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*(uz*uz) +
0.3333333333333333*(ux*ux + uy*uy + uz*(2. + uz))))/tau;
// q = 7
dist[nr8] = m7 - 0.125*(Fx*(-1 + ux) + Fy*(-1 + uy) + Fz*uz)*
(0.2222222222222222 + (ux + uy)*(ux + uy) - 0.3333333333333333*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz))\
- (m7 - 0.027777777777777776*p + 0.041666666666666664*rho0*
(-((ux + uy)*(ux + uy)) + 0.3333333333333333*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
0.0625*(Fx*(-1. + ux) + Fy*(-1. + uy) + Fz*uz)*
(-0.2222222222222222 - 1.*(ux*ux) - 2.*ux*uy - 1.*(uy*uy) +
0.3333333333333333*(-2.*ux + ux*ux - 2.*uy + uy*uy + uz*uz)))/tau;
// q = 8
dist[nr7] = m8 + 0.125*(Fx + Fy + Fx*ux + Fy*uy + Fz*uz)*
(-0.2222222222222222 - (ux + uy)*(ux + uy) + 0.3333333333333333*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz))\
- (m8 - 0.027777777777777776*p + 0.041666666666666664*rho0*
(-((ux + uy)*(ux + uy)) + 0.3333333333333333*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
0.0625*(Fx + Fy + Fx*ux + Fy*uy + Fz*uz)*
(-0.2222222222222222 - 1.*(ux*ux) - 2.*ux*uy - 1.*(uy*uy) +
0.3333333333333333*(2.*ux + ux*ux + 2.*uy + uy*uy + uz*uz)))/tau;
// q = 9
dist[nr10] = m9 + 0.125*(Fy + Fx*(-1 + ux) + Fy*uy + Fz*uz)*
(-0.2222222222222222 - (ux - uy)*(ux - uy) + 0.3333333333333333*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz))
- (m9 - 0.027777777777777776*p + 0.041666666666666664*rho0*
(-((ux - uy)*(ux - uy)) + 0.3333333333333333*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
0.0625*(Fy + Fx*(-1. + ux) + Fy*uy + Fz*uz)*
(-0.2222222222222222 - 1.*(ux*ux) + 2.*ux*uy - 1.*(uy*uy) +
0.3333333333333333*(-2.*ux + ux*ux + 2.*uy + uy*uy + uz*uz)))/tau;
// q = 10
dist[nr9] = m10 + 0.125*(Fx*(1 + ux) + Fy*(-1 + uy) + Fz*uz)*
(-0.2222222222222222 - (ux - uy)*(ux - uy) + 0.3333333333333333*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz))\
- (m10 - 0.027777777777777776*p + 0.041666666666666664*rho0*
(-((ux - uy)*(ux - uy)) + 0.3333333333333333*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
0.0625*(Fx*(1 + ux) + Fy*(-1. + uy) + Fz*uz)*
(-0.2222222222222222 - 1.*(ux*ux) + 2.*ux*uy - 1.*(uy*uy) +
0.3333333333333333*(2.*ux + ux*ux - 2.*uy + uy*uy + uz*uz)))/tau;
// q = 11
dist[nr12] = m11 - 0.125*(Fx*(-1 + ux) + Fy*uy + Fz*(-1 + uz))*
(0.2222222222222222 + (ux + uz)*(ux + uz) - 0.3333333333333333*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz))\
- (m11 - 0.027777777777777776*p + 0.041666666666666664*rho0*
(-((ux + uz)*(ux + uz)) + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
0.0625*(Fx*(-1. + ux) + Fy*uy + Fz*(-1. + uz))*
(-0.2222222222222222 - 1.*(ux*ux) - 2.*ux*uz - 1.*(uz*uz) +
0.3333333333333333*(-2.*ux + ux*ux + uy*uy + (-2. + uz)*uz)))/tau;
// q = 12
dist[nr11] = m12 + 0.125*(Fx + Fz + Fx*ux + Fy*uy + Fz*uz)*
(-0.2222222222222222 - (ux + uz)*(ux + uz) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*(2 + uz)))\
- (m12 - 0.027777777777777776*p + 0.041666666666666664*rho0*
(-((ux + uz)*(ux + uz)) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
0.0625*(Fx + Fz + Fx*ux + Fy*uy + Fz*uz)*
(-0.2222222222222222 - 1.*(ux*ux) - 2.*ux*uz - 1.*(uz*uz) +
0.3333333333333333*(2.*ux + ux*ux + uy*uy + uz*(2. + uz))))/tau;
// q = 13
dist[nr14] = m13 + 0.125*(Fz + Fx*(-1 + ux) + Fy*uy + Fz*uz)*
(-0.2222222222222222 - (ux - uz)*(ux - uz) + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*(2 + uz)))\
- (m13 - 0.027777777777777776*p + 0.041666666666666664*rho0*
(-((ux - uz)*(ux - uz)) + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
0.0625*(Fz + Fx*(-1. + ux) + Fy*uy + Fz*uz)*
(-0.2222222222222222 - 1.*(ux*ux) + 2.*ux*uz - 1.*(uz*uz) +
0.3333333333333333*(-2.*ux + ux*ux + uy*uy + uz*(2. + uz))))/tau;
// q= 14
dist[nr13] = m14 + 0.125*(Fx*(1 + ux) + Fy*uy + Fz*(-1 + uz))*
(-0.2222222222222222 - (ux - uz)*(ux - uz) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz))\
- (m14 - 0.027777777777777776*p + 0.041666666666666664*rho0*
(-((ux - uz)*(ux - uz)) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
0.0625*(Fx*(1 + ux) + Fy*uy + Fz*(-1. + uz))*
(-0.2222222222222222 - 1.*(ux*ux) + 2.*ux*uz - 1.*(uz*uz) +
0.3333333333333333*(2.*ux + ux*ux + uy*uy + (-2. + uz)*uz)))/tau;
// q = 15
dist[nr16] = m15 - 0.125*(Fx*ux + Fy*(-1 + uy) + Fz*(-1 + uz))*
(0.2222222222222222 + (uy + uz)*(uy + uz) - 0.3333333333333333*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz))\
- (m15 - 0.027777777777777776*p + 0.041666666666666664*rho0*
(-((uy + uz)*(uy + uz)) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)) +
0.0625*(Fx*ux + Fy*(-1. + uy) + Fz*(-1. + uz))*
(-0.2222222222222222 - 1.*(uy*uy) - 2.*uy*uz - 1.*(uz*uz) +
0.3333333333333333*(ux*ux - 2.*uy + uy*uy + (-2. + uz)*uz)))/tau;
// q = 16
dist[nr15] = m16 + 0.125*(Fy + Fz + Fx*ux + Fy*uy + Fz*uz)*
(-0.2222222222222222 - (uy + uz)*(uy + uz) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*(2 + uz)))\
- (m16 - 0.027777777777777776*p + 0.041666666666666664*rho0*
(-((uy + uz)*(uy + uz)) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))) +
0.0625*(Fy + Fz + Fx*ux + Fy*uy + Fz*uz)*
(-0.2222222222222222 - 1.*(uy*uy) - 2.*uy*uz - 1.*(uz*uz) +
0.3333333333333333*(ux*ux + 2.*uy + uy*uy + uz*(2. + uz))))/tau;
// q = 17
dist[nr18] = m17 + 0.125*(Fz + Fx*ux + Fy*(-1 + uy) + Fz*uz)*
(-0.2222222222222222 - (uy - uz)*(uy - uz) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*(2 + uz)))\
- (m17 - 0.027777777777777776*p + 0.041666666666666664*rho0*
(-((uy - uz)*(uy - uz)) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))) +
0.0625*(Fz + Fx*ux + Fy*(-1. + uy) + Fz*uz)*
(-0.2222222222222222 - 1.*(uy*uy) + 2.*uy*uz - 1.*(uz*uz) +
0.3333333333333333*(ux*ux - 2.*uy + uy*uy + uz*(2. + uz))))/tau;
// q = 18
dist[nr17] = m18 + 0.125*(Fx*ux + Fy*(1 + uy) + Fz*(-1 + uz))*
(-0.2222222222222222 - (uy - uz)*(uy - uz) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz))\
- (m18 - 0.027777777777777776*p + 0.041666666666666664*rho0*
(-((uy - uz)*(uy - uz)) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) +
0.0625*(Fx*ux + Fy*(1 + uy) + Fz*(-1. + uz))*
(-0.2222222222222222 - 1.*(uy*uy) + 2.*uy*uz - 1.*(uz*uz) +
0.3333333333333333*(ux*ux + 2.*uy + uy*uy + (-2. + uz)*uz)))/tau;
//----------------------------------------------------------------------------------------------------------------------------------------//
//Update velocity on device
Vel[0*Np+n] = ux;
Vel[1*Np+n] = uy;
Vel[2*Np+n] = uz;
//Update pressure on device
Pressure[n] = p;
}
}
extern "C" void ScaLBL_D3Q19_AAeven_FreeLeeModel_SingleFluid_BGK(double *dist, double *Vel, double *Pressure,
double tau, double rho0, double Fx, double Fy, double Fz, int start, int finish, int Np){
double ux,uy,uz;//fluid velocity
double p;//pressure
// distribution functions
double m1,m2,m4,m6,m8,m9,m10,m11,m12,m13,m14,m15,m16,m17,m18;
double m0,m3,m5,m7;
for (int n=start; n<finish; n++){
// q=0
m0 = dist[n];
// q=1
m1 = dist[2*Np+n];
// q=2
m2 = dist[1*Np+n];
// q=3
m3 = dist[4*Np+n];
// q = 4
m4 = dist[3*Np+n];
// q=5
m5 = dist[6*Np+n];
// q = 6
m6 = dist[5*Np+n];
// q=7
m7 = dist[8*Np+n];
// q = 8
m8 = dist[7*Np+n];
// q=9
m9 = dist[10*Np+n];
// q = 10
m10 = dist[9*Np+n];
// q=11
m11 = dist[12*Np+n];
// q=12
m12 = dist[11*Np+n];
// q=13
m13 = dist[14*Np+n];
// q=14
m14 = dist[13*Np+n];
// q=15
m15 = dist[16*Np+n];
// q=16
m16 = dist[15*Np+n];
// q=17
m17 = dist[18*Np+n];
// q=18
m18 = dist[17*Np+n];
//compute fluid velocity
add a correcting factor cs2 into velocity equation
2021-02-08 20:31:45 -05:00
ux = 3.0/rho0*(m1-m2+m7-m8+m9-m10+m11-m12+m13-m14+0.5*(Fx)/3.0);
uy = 3.0/rho0*(m3-m4+m7-m8-m9+m10+m15-m16+m17-m18+0.5*(Fy)/3.0);
uz = 3.0/rho0*(m5-m6+m11-m12-m13+m14+m15-m16-m17+m18+0.5*(Fz)/3.0);
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
//compute pressure
built passed
2021-02-08 00:00:26 -05:00
p = (m0+m2+m1+m4+m3+m6+m5+m8+m7+m10+m9+m12+m11+m14+m13+m16+m15+m18+m17);
save the work; to be compiled and tested
2021-02-07 23:37:26 -05:00
//------------------------------------------------- BCK collison ------------------------------------------------------------//
// q=0
dist[n] = m0 + 0.5*(Fx*ux + Fy*uy + Fz*uz)*(-0.6666666666666666 + ux*ux + uy*uy + uz*uz) -
(m0 - 0.3333333333333333*p + 0.25*(Fx*ux + Fy*uy + Fz*uz)*
(-0.6666666666666666 + ux*ux + uy*uy + uz*uz) + 0.16666666666666666*rho0*(ux*ux + uy*uy + uz*uz))/
tau;
// q = 1
dist[1*Np+n] = m1 + 0.25*(Fx*(-1 + ux) + Fy*uy + Fz*uz)*(-0.2222222222222222 - ux*ux +
0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*uz)) -
(m1 - 0.05555555555555555*p + 0.08333333333333333*rho0*
(-(ux*ux) + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*uz)) +
0.125*(Fx*(-1. + ux) + Fy*uy + Fz*uz)*
(-0.2222222222222222 - 1.*(ux*ux) + 0.3333333333333333*(-2.*ux + ux*ux + uy*uy + uz*uz)))/tau;
// q=2
dist[2*Np+n] = m2 + 0.25*(Fx + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - ux*ux +
0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*uz)) -
(m2 - 0.05555555555555555*p + 0.08333333333333333*rho0*
(-(ux*ux) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*uz)) +
0.125*(Fx + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*(ux*ux) +
0.3333333333333333*(2.*ux + ux*ux + uy*uy + uz*uz)))/tau;
// q = 3
dist[3*Np+n] = m3 + 0.25*(Fx*ux + Fy*(-1 + uy) + Fz*uz)*(-0.2222222222222222 - uy*uy +
0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*uz)) -
(m3 - 0.05555555555555555*p + 0.08333333333333333*rho0*
(-(uy*uy) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*uz)) +
0.125*(Fx*ux + Fy*(-1. + uy) + Fz*uz)*
(-0.2222222222222222 - 1.*(uy*uy) + 0.3333333333333333*(ux*ux - 2.*uy + uy*uy + uz*uz)))/tau;
// q = 4
dist[4*Np+n] = m4 + 0.25*(Fy + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - uy*uy +
0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*uz)) -
(m4 - 0.05555555555555555*p + 0.08333333333333333*rho0*
(-(uy*uy) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*uz)) +
0.125*(Fy + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*(uy*uy) +
0.3333333333333333*(ux*ux + 2.*uy + uy*uy + uz*uz)))/tau;
// q = 5
dist[5*Np+n] = m5 + 0.25*(Fx*ux + Fy*uy + Fz*(-1 + uz))*(-0.2222222222222222 - uz*uz +
0.3333333333333333*(ux*ux + uy*uy + (-2 + uz)*uz)) -
(m5 - 0.05555555555555555*p + 0.08333333333333333*rho0*
(-(uz*uz) + 0.3333333333333333*(ux*ux + uy*uy + (-2 + uz)*uz)) +
0.125*(Fx*ux + Fy*uy + Fz*(-1. + uz))*
(-0.2222222222222222 - 1.*(uz*uz) + 0.3333333333333333*(ux*ux + uy*uy + (-2. + uz)*uz)))/tau;
// q = 6
dist[6*Np+n] = m6 + 0.25*(Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - uz*uz +
0.3333333333333333*(ux*ux + uy*uy + uz*(2 + uz))) -
(m6 - 0.05555555555555555*p + 0.08333333333333333*rho0*
(-(uz*uz) + 0.3333333333333333*(ux*ux + uy*uy + uz*(2 + uz))) +
0.125*(Fz + Fx*ux + Fy*uy + Fz*uz)*(-0.2222222222222222 - 1.*(uz*uz) +
0.3333333333333333*(ux*ux + uy*uy + uz*(2. + uz))))/tau;
// q = 7
dist[7*Np+n] = m7 - 0.125*(Fx*(-1 + ux) + Fy*(-1 + uy) + Fz*uz)*
(0.2222222222222222 + (ux + uy)*(ux + uy) - 0.3333333333333333*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz))\
- (m7 - 0.027777777777777776*p + 0.041666666666666664*rho0*
(-((ux + uy)*(ux + uy)) + 0.3333333333333333*(-2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
0.0625*(Fx*(-1. + ux) + Fy*(-1. + uy) + Fz*uz)*
(-0.2222222222222222 - 1.*(ux*ux) - 2.*ux*uy - 1.*(uy*uy) +
0.3333333333333333*(-2.*ux + ux*ux - 2.*uy + uy*uy + uz*uz)))/tau;
// q = 8
dist[8*Np+n] = m8 + 0.125*(Fx + Fy + Fx*ux + Fy*uy + Fz*uz)*
(-0.2222222222222222 - (ux + uy)*(ux + uy) + 0.3333333333333333*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz))\
- (m8 - 0.027777777777777776*p + 0.041666666666666664*rho0*
(-((ux + uy)*(ux + uy)) + 0.3333333333333333*(2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
0.0625*(Fx + Fy + Fx*ux + Fy*uy + Fz*uz)*
(-0.2222222222222222 - 1.*(ux*ux) - 2.*ux*uy - 1.*(uy*uy) +
0.3333333333333333*(2.*ux + ux*ux + 2.*uy + uy*uy + uz*uz)))/tau;
// q = 9
dist[9*Np+n] = m9 + 0.125*(Fy + Fx*(-1 + ux) + Fy*uy + Fz*uz)*
(-0.2222222222222222 - (ux - uy)*(ux - uy) + 0.3333333333333333*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz))
- (m9 - 0.027777777777777776*p + 0.041666666666666664*rho0*
(-((ux - uy)*(ux - uy)) + 0.3333333333333333*(-2*ux + ux*ux + 2*uy + uy*uy + uz*uz)) +
0.0625*(Fy + Fx*(-1. + ux) + Fy*uy + Fz*uz)*
(-0.2222222222222222 - 1.*(ux*ux) + 2.*ux*uy - 1.*(uy*uy) +
0.3333333333333333*(-2.*ux + ux*ux + 2.*uy + uy*uy + uz*uz)))/tau;
// q = 10
dist[10*Np+n] = m10 + 0.125*(Fx*(1 + ux) + Fy*(-1 + uy) + Fz*uz)*
(-0.2222222222222222 - (ux - uy)*(ux - uy) + 0.3333333333333333*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz))\
- (m10 - 0.027777777777777776*p + 0.041666666666666664*rho0*
(-((ux - uy)*(ux - uy)) + 0.3333333333333333*(2*ux + ux*ux - 2*uy + uy*uy + uz*uz)) +
0.0625*(Fx*(1 + ux) + Fy*(-1. + uy) + Fz*uz)*
(-0.2222222222222222 - 1.*(ux*ux) + 2.*ux*uy - 1.*(uy*uy) +
0.3333333333333333*(2.*ux + ux*ux - 2.*uy + uy*uy + uz*uz)))/tau;
// q = 11
dist[11*Np+n] = m11 - 0.125*(Fx*(-1 + ux) + Fy*uy + Fz*(-1 + uz))*
(0.2222222222222222 + (ux + uz)*(ux + uz) - 0.3333333333333333*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz))\
- (m11 - 0.027777777777777776*p + 0.041666666666666664*rho0*
(-((ux + uz)*(ux + uz)) + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
0.0625*(Fx*(-1. + ux) + Fy*uy + Fz*(-1. + uz))*
(-0.2222222222222222 - 1.*(ux*ux) - 2.*ux*uz - 1.*(uz*uz) +
0.3333333333333333*(-2.*ux + ux*ux + uy*uy + (-2. + uz)*uz)))/tau;
// q = 12
dist[12*Np+n] = m12 + 0.125*(Fx + Fz + Fx*ux + Fy*uy + Fz*uz)*
(-0.2222222222222222 - (ux + uz)*(ux + uz) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*(2 + uz)))\
- (m12 - 0.027777777777777776*p + 0.041666666666666664*rho0*
(-((ux + uz)*(ux + uz)) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
0.0625*(Fx + Fz + Fx*ux + Fy*uy + Fz*uz)*
(-0.2222222222222222 - 1.*(ux*ux) - 2.*ux*uz - 1.*(uz*uz) +
0.3333333333333333*(2.*ux + ux*ux + uy*uy + uz*(2. + uz))))/tau;
// q = 13
dist[13*Np+n] = m13 + 0.125*(Fz + Fx*(-1 + ux) + Fy*uy + Fz*uz)*
(-0.2222222222222222 - (ux - uz)*(ux - uz) + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*(2 + uz)))\
- (m13 - 0.027777777777777776*p + 0.041666666666666664*rho0*
(-((ux - uz)*(ux - uz)) + 0.3333333333333333*(-2*ux + ux*ux + uy*uy + uz*(2 + uz))) +
0.0625*(Fz + Fx*(-1. + ux) + Fy*uy + Fz*uz)*
(-0.2222222222222222 - 1.*(ux*ux) + 2.*ux*uz - 1.*(uz*uz) +
0.3333333333333333*(-2.*ux + ux*ux + uy*uy + uz*(2. + uz))))/tau;
// q= 14
dist[14*Np+n] = m14 + 0.125*(Fx*(1 + ux) + Fy*uy + Fz*(-1 + uz))*
(-0.2222222222222222 - (ux - uz)*(ux - uz) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz))\
- (m14 - 0.027777777777777776*p + 0.041666666666666664*rho0*
(-((ux - uz)*(ux - uz)) + 0.3333333333333333*(2*ux + ux*ux + uy*uy + (-2 + uz)*uz)) +
0.0625*(Fx*(1 + ux) + Fy*uy + Fz*(-1. + uz))*
(-0.2222222222222222 - 1.*(ux*ux) + 2.*ux*uz - 1.*(uz*uz) +
0.3333333333333333*(2.*ux + ux*ux + uy*uy + (-2. + uz)*uz)))/tau;
// q = 15
dist[15*Np+n] = m15 - 0.125*(Fx*ux + Fy*(-1 + uy) + Fz*(-1 + uz))*
(0.2222222222222222 + (uy + uz)*(uy + uz) - 0.3333333333333333*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz))\
- (m15 - 0.027777777777777776*p + 0.041666666666666664*rho0*
(-((uy + uz)*(uy + uz)) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + (-2 + uz)*uz)) +
0.0625*(Fx*ux + Fy*(-1. + uy) + Fz*(-1. + uz))*
(-0.2222222222222222 - 1.*(uy*uy) - 2.*uy*uz - 1.*(uz*uz) +
0.3333333333333333*(ux*ux - 2.*uy + uy*uy + (-2. + uz)*uz)))/tau;
// q = 16
dist[16*Np+n] = m16 + 0.125*(Fy + Fz + Fx*ux + Fy*uy + Fz*uz)*
(-0.2222222222222222 - (uy + uz)*(uy + uz) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*(2 + uz)))\
- (m16 - 0.027777777777777776*p + 0.041666666666666664*rho0*
(-((uy + uz)*(uy + uz)) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + uz*(2 + uz))) +
0.0625*(Fy + Fz + Fx*ux + Fy*uy + Fz*uz)*
(-0.2222222222222222 - 1.*(uy*uy) - 2.*uy*uz - 1.*(uz*uz) +
0.3333333333333333*(ux*ux + 2.*uy + uy*uy + uz*(2. + uz))))/tau;
// q = 17
dist[17*Np+n] = m17 + 0.125*(Fz + Fx*ux + Fy*(-1 + uy) + Fz*uz)*
(-0.2222222222222222 - (uy - uz)*(uy - uz) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*(2 + uz)))\
- (m17 - 0.027777777777777776*p + 0.041666666666666664*rho0*
(-((uy - uz)*(uy - uz)) + 0.3333333333333333*(ux*ux - 2*uy + uy*uy + uz*(2 + uz))) +
0.0625*(Fz + Fx*ux + Fy*(-1. + uy) + Fz*uz)*
(-0.2222222222222222 - 1.*(uy*uy) + 2.*uy*uz - 1.*(uz*uz) +
0.3333333333333333*(ux*ux - 2.*uy + uy*uy + uz*(2. + uz))))/tau;
// q = 18
dist[18*Np+n] = m18 + 0.125*(Fx*ux + Fy*(1 + uy) + Fz*(-1 + uz))*
(-0.2222222222222222 - (uy - uz)*(uy - uz) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz))\
- (m18 - 0.027777777777777776*p + 0.041666666666666664*rho0*
(-((uy - uz)*(uy - uz)) + 0.3333333333333333*(ux*ux + 2*uy + uy*uy + (-2 + uz)*uz)) +
0.0625*(Fx*ux + Fy*(1 + uy) + Fz*(-1. + uz))*
(-0.2222222222222222 - 1.*(uy*uy) + 2.*uy*uz - 1.*(uz*uz) +
0.3333333333333333*(ux*ux + 2.*uy + uy*uy + (-2. + uz)*uz)))/tau;
//----------------------------------------------------------------------------------------------------------------------------------------//
//Update velocity on device
Vel[0*Np+n] = ux;
Vel[1*Np+n] = uy;
Vel[2*Np+n] = uz;
//Update pressure on device
Pressure[n] = p;
}
}
add a test routine for mixed gradient
2021-02-25 20:30:48 -05:00
fix typo and build pass
2021-02-25 21:25:29 -05:00
extern "C" void ScaLBL_D3Q9_MGTest(int *Map, double *Phi,double *ColorGrad,int strideY, int strideZ, int start, int finish, int Np){
add a test routine for mixed gradient
2021-02-25 20:30:48 -05:00
D3Q7 Lee model (looks anisotropic)
2021-03-18 14:51:26 -04:00
int nn,nn2x,ijk;
add a test routine for mixed gradient
2021-02-25 20:30:48 -05:00
double m1,m2,m4,m6,m8,m9,m10,m11,m12,m13,m14,m15,m16,m17,m18;
D3Q7 Lee model (looks anisotropic)
2021-03-18 14:51:26 -04:00
double m3,m5,m7;
add a test routine for mixed gradient
2021-02-25 20:30:48 -05:00
double mm1,mm2,mm4,mm6,mm8,mm9,mm10,mm11,mm12,mm13,mm14,mm15,mm16,mm17,mm18;
double mm3,mm5,mm7;
//double nx,ny,nz;//normal color gradient
double mgx,mgy,mgz;//mixed gradient reaching secondary neighbor
double phi;
for (int n=start; n<finish; n++){
// Get the 1D index based on regular data layout
ijk = Map[n];
phi = Phi[ijk];// load phase field
// COMPUTE THE COLOR GRADIENT
//........................................................................
//.................Read Phase Indicator Values............................
//........................................................................
nn = ijk-1; // neighbor index (get convention)
m1 = Phi[nn]; // get neighbor for phi - 1
//........................................................................
nn = ijk+1; // neighbor index (get convention)
m2 = Phi[nn]; // get neighbor for phi - 2
//........................................................................
nn = ijk-strideY; // neighbor index (get convention)
m3 = Phi[nn]; // get neighbor for phi - 3
//........................................................................
nn = ijk+strideY; // neighbor index (get convention)
m4 = Phi[nn]; // get neighbor for phi - 4
//........................................................................
nn = ijk-strideZ; // neighbor index (get convention)
m5 = Phi[nn]; // get neighbor for phi - 5
//........................................................................
nn = ijk+strideZ; // neighbor index (get convention)
m6 = Phi[nn]; // get neighbor for phi - 6
//........................................................................
nn = ijk-strideY-1; // neighbor index (get convention)
m7 = Phi[nn]; // get neighbor for phi - 7
//........................................................................
nn = ijk+strideY+1; // neighbor index (get convention)
m8 = Phi[nn]; // get neighbor for phi - 8
//........................................................................
nn = ijk+strideY-1; // neighbor index (get convention)
m9 = Phi[nn]; // get neighbor for phi - 9
//........................................................................
nn = ijk-strideY+1; // neighbor index (get convention)
m10 = Phi[nn]; // get neighbor for phi - 10
//........................................................................
nn = ijk-strideZ-1; // neighbor index (get convention)
m11 = Phi[nn]; // get neighbor for phi - 11
//........................................................................
nn = ijk+strideZ+1; // neighbor index (get convention)
m12 = Phi[nn]; // get neighbor for phi - 12
//........................................................................
nn = ijk+strideZ-1; // neighbor index (get convention)
m13 = Phi[nn]; // get neighbor for phi - 13
//........................................................................
nn = ijk-strideZ+1; // neighbor index (get convention)
m14 = Phi[nn]; // get neighbor for phi - 14
//........................................................................
nn = ijk-strideZ-strideY; // neighbor index (get convention)
m15 = Phi[nn]; // get neighbor for phi - 15
//........................................................................
nn = ijk+strideZ+strideY; // neighbor index (get convention)
m16 = Phi[nn]; // get neighbor for phi - 16
//........................................................................
nn = ijk+strideZ-strideY; // neighbor index (get convention)
m17 = Phi[nn]; // get neighbor for phi - 17
//........................................................................
nn = ijk-strideZ+strideY; // neighbor index (get convention)
m18 = Phi[nn]; // get neighbor for phi - 18
// compute mixed difference (Eq.30, A.Fukhari et al. JCP 315(2016) 434-457)
//........................................................................
nn2x = ijk-2; // neighbor index (get convention)
mm1 = Phi[nn2x]; // get neighbor for phi - 1
mm1 = 0.25*(-mm1+5.0*m1-3.0*phi-m2);
//........................................................................
nn2x = ijk+2; // neighbor index (get convention)
mm2 = Phi[nn2x]; // get neighbor for phi - 2
mm2 = 0.25*(-mm2+5.0*m2-3.0*phi-m1);
//........................................................................
nn2x = ijk-strideY*2; // neighbor index (get convention)
mm3 = Phi[nn2x]; // get neighbor for phi - 3
mm3 = 0.25*(-mm3+5.0*m3-3.0*phi-m4);
//........................................................................
nn2x = ijk+strideY*2; // neighbor index (get convention)
mm4 = Phi[nn2x]; // get neighbor for phi - 4
mm4 = 0.25*(-mm4+5.0*m4-3.0*phi-m3);
//........................................................................
nn2x = ijk-strideZ*2; // neighbor index (get convention)
mm5 = Phi[nn2x]; // get neighbor for phi - 5
mm5 = 0.25*(-mm5+5.0*m5-3.0*phi-m6);
//........................................................................
nn2x = ijk+strideZ*2; // neighbor index (get convention)
mm6 = Phi[nn2x]; // get neighbor for phi - 6
mm6 = 0.25*(-mm6+5.0*m6-3.0*phi-m5);
//........................................................................
nn2x = ijk-strideY*2-2; // neighbor index (get convention)
mm7 = Phi[nn2x]; // get neighbor for phi - 7
mm7 = 0.25*(-mm7+5.0*m7-3.0*phi-m8);
//........................................................................
nn2x = ijk+strideY*2+2; // neighbor index (get convention)
mm8 = Phi[nn2x]; // get neighbor for phi - 8
mm8 = 0.25*(-mm8+5.0*m8-3.0*phi-m7);
//........................................................................
nn2x = ijk+strideY*2-2; // neighbor index (get convention)
mm9 = Phi[nn2x]; // get neighbor for phi - 9
mm9 = 0.25*(-mm9+5.0*m9-3.0*phi-m10);
//........................................................................
nn2x = ijk-strideY*2+2; // neighbor index (get convention)
mm10 = Phi[nn2x]; // get neighbor for phi - 10
mm10 = 0.25*(-mm10+5.0*m10-3.0*phi-m9);
//........................................................................
nn2x = ijk-strideZ*2-2; // neighbor index (get convention)
mm11 = Phi[nn2x]; // get neighbor for phi - 11
mm11 = 0.25*(-mm11+5.0*m11-3.0*phi-m12);
//........................................................................
nn2x = ijk+strideZ*2+2; // neighbor index (get convention)
mm12 = Phi[nn2x]; // get neighbor for phi - 12
mm12 = 0.25*(-mm12+5.0*m12-3.0*phi-m11);
//........................................................................
nn2x = ijk+strideZ*2-2; // neighbor index (get convention)
mm13 = Phi[nn2x]; // get neighbor for phi - 13
mm13 = 0.25*(-mm13+5.0*m13-3.0*phi-m14);
//........................................................................
nn2x = ijk-strideZ*2+2; // neighbor index (get convention)
mm14 = Phi[nn2x]; // get neighbor for phi - 14
mm14 = 0.25*(-mm14+5.0*m14-3.0*phi-m13);
//........................................................................
nn2x = ijk-strideZ*2-strideY*2; // neighbor index (get convention)
mm15 = Phi[nn2x]; // get neighbor for phi - 15
mm15 = 0.25*(-mm15+5.0*m15-3.0*phi-m16);
//........................................................................
nn2x = ijk+strideZ*2+strideY*2; // neighbor index (get convention)
mm16 = Phi[nn2x]; // get neighbor for phi - 16
mm16 = 0.25*(-mm16+5.0*m16-3.0*phi-m15);
//........................................................................
nn2x = ijk+strideZ*2-strideY*2; // neighbor index (get convention)
mm17 = Phi[nn2x]; // get neighbor for phi - 17
mm17 = 0.25*(-mm17+5.0*m17-3.0*phi-m18);
//........................................................................
nn2x = ijk-strideZ*2+strideY*2; // neighbor index (get convention)
mm18 = Phi[nn2x]; // get neighbor for phi - 18
mm18 = 0.25*(-mm18+5.0*m18-3.0*phi-m17);
//............Compute the Color Gradient...................................
//nx = -3.0*1.0/18.0*(m1-m2+0.5*(m7-m8+m9-m10+m11-m12+m13-m14));
//ny = -3.0*1.0/18.0*(m3-m4+0.5*(m7-m8-m9+m10+m15-m16+m17-m18));
//nz = -3.0*1.0/18.0*(m5-m6+0.5*(m11-m12-m13+m14+m15-m16-m17+m18));
//............Compute the Mixed Gradient...................................
mgx = -3.0*1.0/18.0*(mm1-mm2+0.5*(mm7-mm8+mm9-mm10+mm11-mm12+mm13-mm14));
mgy = -3.0*1.0/18.0*(mm3-mm4+0.5*(mm7-mm8-mm9+mm10+mm15-mm16+mm17-mm18));
mgz = -3.0*1.0/18.0*(mm5-mm6+0.5*(mm11-mm12-mm13+mm14+mm15-mm16-mm17+mm18));
ColorGrad[0*Np+n] = mgx;
ColorGrad[1*Np+n] = mgy;
ColorGrad[2*Np+n] = mgz;
}
}
Reference in New Issue Copy Permalink