OilfieldToolsNet/LBPM
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

slight implementation change to make pgi compilers on titna happy

Browse Source
This commit is contained in:
James E McClure 2015-02-04 13:01:10 -05:00
parent cd2f3168ca
commit a26a241b69
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
common/TwoPhase.h
View File

@ -8,7 +8,6 @@ class TwoPhase{
//...........................................................................
int n_nw_pts,n_ns_pts,n_ws_pts,n_nws_pts,n_local_sol_pts,n_local_nws_pts;
int n_nw_tris,n_ns_tris,n_ws_tris,n_nws_seg,n_local_sol_tris;
int cube[8][3] = {{0,0,0},{1,0,0},{0,1,0},{1,1,0},{0,0,1},{1,0,1},{0,1,1},{1,1,1}};
//...........................................................................
int nc;
int kstart,kfinish;
@ -345,6 +344,8 @@ void TwoPhase::UpdateMeshValues(){
void TwoPhase::ComputeLocal(){
int i,j,k,n;
double delphi;
int cube[8][3] = {{0,0,0},{1,0,0},{0,1,0},{1,1,0},{0,0,1},{1,0,1},{0,1,1},{1,1,1}};
for (int c=0;c<ncubes;c++){
// Get cube from the list
i = cubeList(0,c);

6
tests/lbpm_color_simulator.cpp
View File

@ -1547,7 +1547,7 @@ int main(int argc, char **argv)
// Timestep completed!
timestep++;
//...................................................................
if (timestep%1000 == 995){
if (timestep%5000 == 995){
//...........................................................................
// Copy the phase indicator field for the earlier timestep
DeviceBarrier();
@ -1555,7 +1555,7 @@ int main(int argc, char **argv)
Averages.ColorToSignedDistance(beta,Averages.Phase.data,Averages.Phase_tplus.data);
//...........................................................................
}
if (timestep%1000 == 0){
if (timestep%5000 == 0){
//...........................................................................
// Copy the data for for the analysis timestep
//...........................................................................
@ -1570,7 +1570,7 @@ int main(int argc, char **argv)
CopyToHost(Averages.Vel_z.data,&Velocity[2*N],N*sizeof(double));
MPI_Barrier(MPI_COMM_WORLD);
}
if (timestep%1000 == 5){
if (timestep%5000 == 5){
//...........................................................................
// Copy the phase indicator field for the later timestep
DeviceBarrier();