int constraint_collision(double *p1, double *p2){
Particle part1,part2;
double d1,d2,v[3];
Constraint *c;
int i;
double folded_pos1[3];
double folded_pos2[3];
int img[3];
#ifdef LEES_EDWARDS
double vtmp[3];
#endif
memcpy(folded_pos1, p1, 3*sizeof(double));
#ifdef LEES_EDWARDS
fold_position(folded_pos1, vtmp, img);
#else
fold_position(folded_pos1, img);
#endif
memcpy(folded_pos2, p2, 3*sizeof(double));
#ifdef LEES_EDWARDS
fold_position(folded_pos1, vtmp, img);
#else
fold_position(folded_pos2, img);
#endif
for(i=0;i<n_constraints;i++){
c=&constraints[i];
switch(c->type){
case CONSTRAINT_WAL:
calculate_wall_dist(&part1,folded_pos1,&part1,&c->c.wal,&d1,v);
calculate_wall_dist(&part2,folded_pos2,&part2,&c->c.wal,&d2,v);
if(d1*d2<=0.0)
return 1;
break;
case CONSTRAINT_SPH:
calculate_sphere_dist(&part1,folded_pos1,&part1,&c->c.sph,&d1,v);
calculate_sphere_dist(&part2,folded_pos2,&part2,&c->c.sph,&d2,v);
if(d1*d2<0.0)
return 1;
break;
case CONSTRAINT_CYL:
calculate_cylinder_dist(&part1,folded_pos1,&part1,&c->c.cyl,&d1,v);
calculate_cylinder_dist(&part2,folded_pos2,&part2,&c->c.cyl,&d2,v);
if(d1*d2<0.0)
return 1;
break;
case CONSTRAINT_MAZE:
case CONSTRAINT_PORE:
case CONSTRAINT_PLATE:
case CONSTRAINT_RHOMBOID:
break;
//default://@TODO: handle default case
// break;
}
}
return 0;
}
void lbboundary_mindist_position(double pos[3], double* mindist, double distvec[3], int* no) {
double vec[3] = {1e100, 1e100, 1e100};
double dist=1e100;
*mindist = 1e100;
int n;
Particle* p1=0;
for(n=0;n<n_lb_boundaries;n++) {
switch(lb_boundaries[n].type) {
case LB_BOUNDARY_WAL:
calculate_wall_dist(p1, pos, (Particle*) NULL, &lb_boundaries[n].c.wal, &dist, vec);
break;
case LB_BOUNDARY_SPH:
calculate_sphere_dist(p1, pos, (Particle*) NULL, &lb_boundaries[n].c.sph, &dist, vec);
break;
case LB_BOUNDARY_CYL:
calculate_cylinder_dist(p1, pos, (Particle*) NULL, &lb_boundaries[n].c.cyl, &dist, vec);
break;
case LB_BOUNDARY_RHOMBOID:
calculate_rhomboid_dist(p1, pos, (Particle*) NULL, &lb_boundaries[n].c.rhomboid, &dist, vec);
break;
case LB_BOUNDARY_POR:
calculate_pore_dist(p1, pos, (Particle*) NULL, &lb_boundaries[n].c.pore, &dist, vec);
break;
case LB_BOUNDARY_STOMATOCYTE:
calculate_stomatocyte_dist(p1, pos, (Particle*) NULL, &lb_boundaries[n].c.stomatocyte, &dist, vec);
break;
case LB_BOUNDARY_HOLLOW_CONE:
calculate_hollow_cone_dist(p1, pos, (Particle*) NULL, &lb_boundaries[n].c.hollow_cone, &dist, vec);
break;
case CONSTRAINT_SPHEROCYLINDER:
calculate_spherocylinder_dist(p1, pos, (Particle*) NULL, &lb_boundaries[n].c.spherocyl, &dist, vec);
break;
case LB_BOUNDARY_VOXEL: // needed for fluid calculation ???
calculate_voxel_dist(p1, pos, (Particle*) NULL, &lb_boundaries[n].c.voxel, &dist, vec);
break;
}
if (dist<*mindist || n == 0) {
*no=n;
*mindist=dist;
distvec[0] = vec[0];
distvec[1] = vec[1];
distvec[2] = vec[2];
}
}
}
void lbboundary_mindist_position(double pos[3], double* mindist, double distvec[3], int* no) {
double vec[3] = {1e100, 1e100, 1e100};
double dist=1e100;
*mindist = 1e100;
int n;
Particle* p1=0;
for(n=0;n<n_lb_boundaries;n++) {
switch(lb_boundaries[n].type) {
case CONSTRAINT_WAL:
calculate_wall_dist(p1, pos, (Particle*) NULL, &lb_boundaries[n].c.wal, &dist, vec);
break;
case CONSTRAINT_SPH:
calculate_sphere_dist(p1, pos, (Particle*) NULL, &lb_boundaries[n].c.sph, &dist, vec);
break;
case CONSTRAINT_CYL:
calculate_cylinder_dist(p1, pos, (Particle*) NULL, &lb_boundaries[n].c.cyl, &dist, vec);
break;
case CONSTRAINT_RHOMBOID:
calculate_rhomboid_dist(p1, pos, (Particle*) NULL, &lb_boundaries[n].c.rhomboid, &dist, vec);
break;
case CONSTRAINT_PORE:
calculate_pore_dist(p1, pos, (Particle*) NULL, &lb_boundaries[n].c.pore, &dist, vec);
break;
}
if (dist<*mindist || n == 0) {
*no=n;
*mindist=dist;
distvec[0] = vec[0];
distvec[1] = vec[1];
distvec[2] = vec[2];
}
}
}
/** Initialize boundary conditions for all constraints in the system. */
void lb_init_boundaries() {
int n, x, y, z;
//char *errtxt;
double pos[3], dist, dist_tmp=0.0, dist_vec[3];
if (lattice_switch & LATTICE_LB_GPU) {
#if defined (LB_GPU) && defined (LB_BOUNDARIES_GPU)
int number_of_boundnodes = 0;
int *host_boundary_node_list= (int*)Utils::malloc(sizeof(int));
int *host_boundary_index_list= (int*)Utils::malloc(sizeof(int));
size_t size_of_index;
int boundary_number = -1; // the number the boundary will actually belong to.
#ifdef EK_BOUNDARIES
ekfloat *host_wallcharge_species_density = NULL;
float node_wallcharge = 0.0f;
int wallcharge_species = -1, charged_boundaries = 0;
int node_charged = 0;
for(n = 0; n < int(n_lb_boundaries); n++)
lb_boundaries[n].net_charge = 0.0;
if (ek_initialized)
{
host_wallcharge_species_density = (ekfloat*) Utils::malloc(ek_parameters.number_of_nodes * sizeof(ekfloat));
for(n = 0; n < int(n_lb_boundaries); n++) {
if(lb_boundaries[n].charge_density != 0.0) {
charged_boundaries = 1;
break;
}
}
if (pdb_charge_lattice) {
charged_boundaries = 1;
}
for(n = 0; n < int(ek_parameters.number_of_species); n++)
if(ek_parameters.valency[n] != 0.0) {
wallcharge_species = n;
break;
}
if(wallcharge_species == -1 && charged_boundaries) {
runtimeErrorMsg() <<"no charged species available to create wall charge\n";
}
}
#endif
for(z=0; z<int(lbpar_gpu.dim_z); z++) {
for(y=0; y<int(lbpar_gpu.dim_y); y++) {
for (x=0; x<int(lbpar_gpu.dim_x); x++) {
pos[0] = (x+0.5)*lbpar_gpu.agrid;
pos[1] = (y+0.5)*lbpar_gpu.agrid;
pos[2] = (z+0.5)*lbpar_gpu.agrid;
dist = 1e99;
#ifdef EK_BOUNDARIES
if (ek_initialized)
{
host_wallcharge_species_density[ek_parameters.dim_y*ek_parameters.dim_x*z + ek_parameters.dim_x*y + x] = 0.0f;
node_charged = 0;
node_wallcharge = 0.0f;
}
#endif
for (n=0; n < n_lb_boundaries; n++) {
switch (lb_boundaries[n].type) {
case LB_BOUNDARY_WAL:
calculate_wall_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.wal, &dist_tmp, dist_vec);
break;
case LB_BOUNDARY_SPH:
calculate_sphere_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.sph, &dist_tmp, dist_vec);
break;
case LB_BOUNDARY_CYL:
calculate_cylinder_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.cyl, &dist_tmp, dist_vec);
break;
case LB_BOUNDARY_RHOMBOID:
calculate_rhomboid_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.rhomboid, &dist_tmp, dist_vec);
break;
case LB_BOUNDARY_POR:
calculate_pore_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.pore, &dist_tmp, dist_vec);
break;
case LB_BOUNDARY_STOMATOCYTE:
calculate_stomatocyte_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.stomatocyte, &dist_tmp, dist_vec);
break;
case LB_BOUNDARY_HOLLOW_CONE:
calculate_hollow_cone_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.hollow_cone, &dist_tmp, dist_vec);
break;
case LB_BOUNDARY_SPHEROCYLINDER:
calculate_spherocylinder_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.spherocyl, &dist_tmp, dist_vec);
break;
case LB_BOUNDARY_VOXEL: // voxel data do not need dist
//calculate_voxel_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.voxel, &dist_tmp, dist_vec);
dist_tmp=1e99;
break;
default:
runtimeErrorMsg() <<"lbboundary type "<< lb_boundaries[n].type << " not implemented in lb_init_boundaries()\n";
}
if (dist > dist_tmp || n == 0) {
dist = dist_tmp;
boundary_number = n;
}
#ifdef EK_BOUNDARIES
if (ek_initialized)
{
if(dist_tmp <= 0 && lb_boundaries[n].charge_density != 0.0f) {
node_charged = 1;
node_wallcharge += lb_boundaries[n].charge_density * ek_parameters.agrid*ek_parameters.agrid*ek_parameters.agrid;
lb_boundaries[n].net_charge += lb_boundaries[n].charge_density * ek_parameters.agrid*ek_parameters.agrid*ek_parameters.agrid;
}
}
#endif
}
#ifdef EK_BOUNDARIES
if(pdb_boundary_lattice &&
pdb_boundary_lattice[ek_parameters.dim_y*ek_parameters.dim_x*z + ek_parameters.dim_x*y + x]) {
dist = -1;
boundary_number = n_lb_boundaries; // Makes sure that boundary_number is not used by a constraint
}
#endif
if (dist <= 0 && boundary_number >= 0 && (n_lb_boundaries > 0 || pdb_boundary_lattice)) {
size_of_index = (number_of_boundnodes+1)*sizeof(int);
host_boundary_node_list = (int *) Utils::realloc(host_boundary_node_list, size_of_index);
host_boundary_index_list = (int *) Utils::realloc(host_boundary_index_list, size_of_index);
host_boundary_node_list[number_of_boundnodes] = x + lbpar_gpu.dim_x*y + lbpar_gpu.dim_x*lbpar_gpu.dim_y*z;
host_boundary_index_list[number_of_boundnodes] = boundary_number + 1;
number_of_boundnodes++;
//printf("boundindex %i: \n", number_of_boundnodes);
}
#ifdef EK_BOUNDARIES
if (ek_initialized)
{
ek_parameters.number_of_boundary_nodes = number_of_boundnodes;
if(wallcharge_species != -1) {
if(pdb_charge_lattice &&
pdb_charge_lattice[ek_parameters.dim_y*ek_parameters.dim_x*z + ek_parameters.dim_x*y + x] != 0.0f) {
node_charged = 1;
node_wallcharge += pdb_charge_lattice[ek_parameters.dim_y*ek_parameters.dim_x*z + ek_parameters.dim_x*y + x];
}
if(node_charged)
host_wallcharge_species_density[ek_parameters.dim_y*ek_parameters.dim_x*z + ek_parameters.dim_x*y + x] = node_wallcharge / ek_parameters.valency[wallcharge_species];
else if(dist <= 0)
host_wallcharge_species_density[ek_parameters.dim_y*ek_parameters.dim_x*z + ek_parameters.dim_x*y + x] = 0.0f;
else
host_wallcharge_species_density[ek_parameters.dim_y*ek_parameters.dim_x*z + ek_parameters.dim_x*y + x] = ek_parameters.density[wallcharge_species] * ek_parameters.agrid*ek_parameters.agrid*ek_parameters.agrid;
}
}
#endif
}
}
}
/**call of cuda fkt*/
float* boundary_velocity = (float *) Utils::malloc(3*(n_lb_boundaries+1)*sizeof(float));
for (n=0; n<n_lb_boundaries; n++) {
boundary_velocity[3*n+0]=lb_boundaries[n].velocity[0];
boundary_velocity[3*n+1]=lb_boundaries[n].velocity[1];
boundary_velocity[3*n+2]=lb_boundaries[n].velocity[2];
}
boundary_velocity[3*n_lb_boundaries+0] = 0.0f;
boundary_velocity[3*n_lb_boundaries+1] = 0.0f;
boundary_velocity[3*n_lb_boundaries+2] = 0.0f;
if (n_lb_boundaries || pdb_boundary_lattice)
lb_init_boundaries_GPU(n_lb_boundaries, number_of_boundnodes, host_boundary_node_list, host_boundary_index_list, boundary_velocity);
free(boundary_velocity);
free(host_boundary_node_list);
free(host_boundary_index_list);
#ifdef EK_BOUNDARIES
if (ek_initialized)
{
ek_init_species_density_wallcharge(host_wallcharge_species_density, wallcharge_species);
free(host_wallcharge_species_density);
}
#endif
#endif /* defined (LB_GPU) && defined (LB_BOUNDARIES_GPU) */
}
else {
#if defined (LB) && defined (LB_BOUNDARIES)
int node_domain_position[3], offset[3];
int the_boundary=-1;
map_node_array(this_node, node_domain_position);
offset[0] = node_domain_position[0]*lblattice.grid[0];
offset[1] = node_domain_position[1]*lblattice.grid[1];
offset[2] = node_domain_position[2]*lblattice.grid[2];
for (n=0;n<lblattice.halo_grid_volume;n++) {
lbfields[n].boundary = 0;
}
if (lblattice.halo_grid_volume==0)
return;
for (z=0; z<lblattice.grid[2]+2; z++) {
for (y=0; y<lblattice.grid[1]+2; y++) {
for (x=0; x<lblattice.grid[0]+2; x++) {
pos[0] = (offset[0]+(x-0.5))*lblattice.agrid[0];
pos[1] = (offset[1]+(y-0.5))*lblattice.agrid[1];
pos[2] = (offset[2]+(z-0.5))*lblattice.agrid[2];
dist = 1e99;
for (n=0;n<n_lb_boundaries;n++) {
switch (lb_boundaries[n].type) {
case LB_BOUNDARY_WAL:
calculate_wall_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.wal, &dist_tmp, dist_vec);
break;
case LB_BOUNDARY_SPH:
calculate_sphere_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.sph, &dist_tmp, dist_vec);
break;
case LB_BOUNDARY_CYL:
calculate_cylinder_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.cyl, &dist_tmp, dist_vec);
break;
case LB_BOUNDARY_RHOMBOID:
calculate_rhomboid_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.rhomboid, &dist_tmp, dist_vec);
break;
case LB_BOUNDARY_POR:
calculate_pore_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.pore, &dist_tmp, dist_vec);
break;
case LB_BOUNDARY_STOMATOCYTE:
calculate_stomatocyte_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.stomatocyte, &dist_tmp, dist_vec);
break;
case LB_BOUNDARY_HOLLOW_CONE:
calculate_hollow_cone_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.hollow_cone, &dist_tmp, dist_vec);
break;
case LB_BOUNDARY_VOXEL: // voxel data do not need dist
dist_tmp=1e99;
//calculate_voxel_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.voxel, &dist_tmp, dist_vec);
break;
default:
runtimeErrorMsg() <<"lbboundary type " << lb_boundaries[n].type << " not implemented in lb_init_boundaries()\n";
}
if (dist_tmp<dist || n == 0) {
dist = dist_tmp;
the_boundary = n;
}
}
if (dist <= 0 && the_boundary >= 0 && n_lb_boundaries > 0) {
lbfields[get_linear_index(x,y,z,lblattice.halo_grid)].boundary = the_boundary+1;
//printf("boundindex %i: \n", get_linear_index(x,y,z,lblattice.halo_grid));
}
else {
lbfields[get_linear_index(x,y,z,lblattice.halo_grid)].boundary = 0;
}
}
}
}
//printf("init voxels\n\n");
// SET VOXEL BOUNDARIES DIRECTLY
int xxx,yyy,zzz=0;
char line[80];
for (n=0;n<n_lb_boundaries;n++) {
switch (lb_boundaries[n].type) {
case LB_BOUNDARY_VOXEL:
//lbfields[get_linear_index(lb_boundaries[n].c.voxel.pos[0],lb_boundaries[n].c.voxel.pos[1],lb_boundaries[n].c.voxel.pos[2],lblattice.halo_grid)].boundary = n+1;
FILE *fp;
//fp=fopen("/home/mgusenbauer/Daten/Copy/DUK/GentlePump/Optimierer/NSvsLBM/geometry_files/bottleneck_fine_voxel_data_d20_converted_noMirror.csv", "r");
//fp=fopen("/home/mgusenbauer/Daten/Copy/DUK/GentlePump/Optimierer/NSvsLBM/geometry_files/bottleneck_fine_voxel_data_d80_converted_noMirror.csv", "r");
//fp=fopen("/home/mgusenbauer/Daten/Copy/DUK/GentlePump/Optimierer/NSvsLBM/geometry_files/bottleneck_fine_voxel_data_d80_converted.csv", "r");
fp=fopen(lb_boundaries[n].c.voxel.filename, "r");
while(fgets(line, 80, fp) != NULL)
{
/* get a line, up to 80 chars from fp, done if NULL */
sscanf (line, "%d %d %d", &xxx,&yyy,&zzz);
//printf("%d %d %d\n", xxx,yyy,zzz);
//lbfields[get_linear_index(xxx,yyy+30,zzz,lblattice.halo_grid)].boundary = n+1;
lbfields[get_linear_index(xxx,yyy,zzz,lblattice.halo_grid)].boundary = n+1;
}
fclose(fp);
break;
default:
break;
}
}
// CHECK FOR BOUNDARY NEIGHBOURS AND SET FLUID NORMAL VECTOR
//int neighbours = {0,0,0,0,0,0};
//int x=0,y=0,z=0;
//double nn[]={0.0,0.0,0.0,0.0,0.0,0.0};
//for (n=0;n<n_lb_boundaries;n++) {
//switch (lb_boundaries[n].type) {
//case LB_BOUNDARY_VOXEL:
//x=lb_boundaries[n].c.voxel.pos[0];
//y=lb_boundaries[n].c.voxel.pos[1];
//z=lb_boundaries[n].c.voxel.pos[2];
//if(((x-1) >= 0) && (lbfields[get_linear_index(x-1,y,z,lblattice.halo_grid)].boundary == 0)) nn[0] = -1.0;//neighbours[0] = -1;
//if(((x+1) <= lblattice.grid[0]) && (lbfields[get_linear_index(x+1,y,z,lblattice.halo_grid)].boundary == 0)) nn[1] = 1.0;//neighbours[1] = 1;
////printf("%.0lf %.0lf ",nn[0],nn[1]);
//lb_boundaries[n].c.voxel.n[0] = nn[0]+nn[1];
////nn=0.0;
//if(((y-1) >= 0) && (lbfields[get_linear_index(x,y-1,z,lblattice.halo_grid)].boundary == 0)) nn[2] = -1.0;//neighbours[2] = -1;
//if(((y+1) <= lblattice.grid[1]) && (lbfields[get_linear_index(x,y+1,z,lblattice.halo_grid)].boundary == 0)) nn[3] = 1.0;//neighbours[3] = 1;
////printf("%.0lf %.0lf ",nn[2],nn[3]);
//lb_boundaries[n].c.voxel.n[1] = nn[2]+nn[3];
////nn=0.0;
//if(((z-1) >= 0) && (lbfields[get_linear_index(x,y,z-1,lblattice.halo_grid)].boundary == 0)) nn[4] = -1.0;//neighbours[4] = -1;
//if(((z+1) <= lblattice.grid[2]) && (lbfields[get_linear_index(x,y,z+1,lblattice.halo_grid)].boundary == 0)) nn[5] = 1.0;//neighbours[5]= 1;
////printf("%.0lf %.0lf ",nn[4],nn[5]);
//lb_boundaries[n].c.voxel.n[2] = nn[4]+nn[5];
//nn[0]=0.0,nn[1]=0.0,nn[2]=0.0,nn[3]=0.0,nn[4]=0.0,nn[5]=0.0;
////printf("t %d pos: %.0lf %.0lf %.0lf, fluid normal %.0lf %.0lf %.0lf\n",n, x,y,z,lb_boundaries[n].c.voxel.normal[0],lb_boundaries[n].c.voxel.normal[1],lb_boundaries[n].c.voxel.normal[2]);
////printf("boundaries: %d %d %d %d %d %d\n",lbfields[get_linear_index(x-1,y,z,lblattice.halo_grid)].boundary,lbfields[get_linear_index(x+1,y,z,lblattice.halo_grid)].boundary,lbfields[get_linear_index(x,y-1,z,lblattice.halo_grid)].boundary,lbfields[get_linear_index(x,y+1,z,lblattice.halo_grid)].boundary,lbfields[get_linear_index(x,y,z-1,lblattice.halo_grid)].boundary,lbfields[get_linear_index(x,y,z+1,lblattice.halo_grid)].boundary);
//break;
//default:
//break;
//}
//}
//// DO THE SAME FOR THE CONSTRAINTS: CONSTRAINTS MUST BE SET AND THE SAME AS LB_BOUNDARY !!!
//for(n=0;n<n_constraints;n++) {
//switch(constraints[n].type) {
//case CONSTRAINT_VOXEL:
//x=constraints[n].c.voxel.pos[0];
//y=constraints[n].c.voxel.pos[1];
//z=constraints[n].c.voxel.pos[2];
//if(((x-1) >= 0) && (lbfields[get_linear_index(x-1,y,z,lblattice.halo_grid)].boundary == 0)) nn[0] = -1.0;//neighbours[0] = -1;
//if(((x+1) <= lblattice.grid[0]) && (lbfields[get_linear_index(x+1,y,z,lblattice.halo_grid)].boundary == 0)) nn[1] = 1.0;//neighbours[1] = 1;
////printf("%.0lf %.0lf ",nn[0],nn[1]);
//constraints[n].c.voxel.n[0] = nn[0]+nn[1];
////nn=0.0;
//if(((y-1) >= 0) && (lbfields[get_linear_index(x,y-1,z,lblattice.halo_grid)].boundary == 0)) nn[2] = -1.0;//neighbours[2] = -1;
//if(((y+1) <= lblattice.grid[1]) && (lbfields[get_linear_index(x,y+1,z,lblattice.halo_grid)].boundary == 0)) nn[3] = 1.0;//neighbours[3] = 1;
////printf("%.0lf %.0lf ",nn[2],nn[3]);
//constraints[n].c.voxel.n[1] = nn[2]+nn[3];
////nn=0.0;
//if(((z-1) >= 0) && (lbfields[get_linear_index(x,y,z-1,lblattice.halo_grid)].boundary == 0)) nn[4] = -1.0;//neighbours[4] = -1;
//if(((z+1) <= lblattice.grid[2]) && (lbfields[get_linear_index(x,y,z+1,lblattice.halo_grid)].boundary == 0)) nn[5] = 1.0;//neighbours[5]= 1;
////printf("%.0lf %.0lf ",nn[4],nn[5]);
//constraints[n].c.voxel.n[2] = nn[4]+nn[5];
//nn[0]=0.0,nn[1]=0.0,nn[2]=0.0,nn[3]=0.0,nn[4]=0.0,nn[5]=0.0;
//break;
//default:
//break;
//}
//}
//#ifdef VOXEL_BOUNDARIES
/*
for (z=0; z<lblattice.grid[2]+2; z++) {
for (y=0; y<lblattice.grid[1]+2; y++) {
for (x=0; x<lblattice.grid[0]+2; x++) {
lbfields[get_linear_index(x,y,z,lblattice.halo_grid)].boundary = 1;
}
}
}
static const char filename[] = "/home/mgusenbauer/Daten/Copy/DUK/GentlePump/Optimierer/voxels/stl/data_final.csv";
FILE *file = fopen ( filename, "r" );
int coords[3];
printf("start new\n");
if ( file != NULL ){
char line [ 128 ]; // or other suitable maximum line size
while ( fgets ( line, sizeof line, file ) != NULL ) {// read a line
//fputs ( line, stdout ); // write the line
//coords = line.Split(' ').Select(n => Convert.ToInt32(n)).ToArray();
//printf("readline: %s\n",line);
int i;
sscanf(line, "%d %d %d", &coords[0],&coords[1],&coords[2]);
//printf("%d %d %d\n", coords[0],coords[1],coords[2]);
lbfields[get_linear_index(coords[0]+5,coords[1]+5,coords[2]+5,lblattice.halo_grid)].boundary = 0;
}
fclose ( file );
}
printf("end new\n");
*/
#endif
}
}
/** Initialize boundary conditions for all constraints in the system. */
void lb_init_boundaries() {
int n, x, y, z;
char *errtxt;
double pos[3], dist, dist_tmp=0.0, dist_vec[3];
if (lattice_switch & LATTICE_LB_GPU) {
#if defined (LB_GPU) && defined (LB_BOUNDARIES_GPU)
int number_of_boundnodes = 0;
int *host_boundary_node_list= (int*)malloc(sizeof(int));
int *host_boundary_index_list= (int*)malloc(sizeof(int));
size_t size_of_index;
int boundary_number = -1; // the number the boundary will actually belong to.
for(z=0; z<lbpar_gpu.dim_z; z++) {
for(y=0; y<lbpar_gpu.dim_y; y++) {
for (x=0; x<lbpar_gpu.dim_x; x++) {
pos[0] = (x+0.5)*lbpar_gpu.agrid;
pos[1] = (y+0.5)*lbpar_gpu.agrid;
pos[2] = (z+0.5)*lbpar_gpu.agrid;
dist = 1e99;
for (n=0;n<n_lb_boundaries;n++) {
switch (lb_boundaries[n].type) {
case LB_BOUNDARY_WAL:
calculate_wall_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.wal, &dist_tmp, dist_vec);
break;
case LB_BOUNDARY_SPH:
calculate_sphere_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.sph, &dist_tmp, dist_vec);
break;
case LB_BOUNDARY_CYL:
calculate_cylinder_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.cyl, &dist_tmp, dist_vec);
break;
case LB_BOUNDARY_RHOMBOID:
calculate_rhomboid_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.rhomboid, &dist_tmp, dist_vec);
break;
case LB_BOUNDARY_POR:
calculate_pore_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.pore, &dist_tmp, dist_vec);
break;
default:
errtxt = runtime_error(128);
ERROR_SPRINTF(errtxt, "{109 lbboundary type %d not implemented in lb_init_boundaries()\n", lb_boundaries[n].type);
}
if (dist > dist_tmp || n == 0) {
dist = dist_tmp;
boundary_number = n;
}
}
if (dist <= 0 && boundary_number >= 0 && n_lb_boundaries > 0) {
size_of_index = (number_of_boundnodes+1)*sizeof(int);
host_boundary_node_list = realloc(host_boundary_node_list, size_of_index);
host_boundary_index_list = realloc(host_boundary_index_list, size_of_index);
host_boundary_node_list[number_of_boundnodes] = x + lbpar_gpu.dim_x*y + lbpar_gpu.dim_x*lbpar_gpu.dim_y*z;
host_boundary_index_list[number_of_boundnodes] = boundary_number + 1;
number_of_boundnodes++;
// printf("boundindex %i: \n", number_of_boundnodes);
}
}
}
}
/**call of cuda fkt*/
float* boundary_velocity = malloc(3*n_lb_boundaries*sizeof(float));
for (n=0; n<n_lb_boundaries; n++) {
boundary_velocity[3*n+0]=lb_boundaries[n].velocity[0];
boundary_velocity[3*n+1]=lb_boundaries[n].velocity[1];
boundary_velocity[3*n+2]=lb_boundaries[n].velocity[2];
}
if (n_lb_boundaries)
lb_init_boundaries_GPU(n_lb_boundaries, number_of_boundnodes, host_boundary_node_list, host_boundary_index_list, boundary_velocity);
free(boundary_velocity);
free(host_boundary_node_list);
free(host_boundary_index_list);
#endif
} else {
#if defined (LB) && defined (LB_BOUNDARIES)
int node_domain_position[3], offset[3];
int the_boundary=-1;
map_node_array(this_node, node_domain_position);
offset[0] = node_domain_position[0]*lblattice.grid[0];
offset[1] = node_domain_position[1]*lblattice.grid[1];
offset[2] = node_domain_position[2]*lblattice.grid[2];
for (n=0;n<lblattice.halo_grid_volume;n++) {
lbfields[n].boundary = 0;
}
if (lblattice.halo_grid_volume==0)
return;
for (z=0; z<lblattice.grid[2]+2; z++) {
for (y=0; y<lblattice.grid[1]+2; y++) {
for (x=0; x<lblattice.grid[0]+2; x++) {
pos[0] = (offset[0]+(x-0.5))*lblattice.agrid;
pos[1] = (offset[1]+(y-0.5))*lblattice.agrid;
pos[2] = (offset[2]+(z-0.5))*lblattice.agrid;
dist = 1e99;
for (n=0;n<n_lb_boundaries;n++) {
switch (lb_boundaries[n].type) {
case LB_BOUNDARY_WAL:
calculate_wall_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.wal, &dist_tmp, dist_vec);
break;
case LB_BOUNDARY_SPH:
calculate_sphere_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.sph, &dist_tmp, dist_vec);
break;
case LB_BOUNDARY_CYL:
calculate_cylinder_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.cyl, &dist_tmp, dist_vec);
break;
case LB_BOUNDARY_RHOMBOID:
calculate_rhomboid_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.rhomboid, &dist_tmp, dist_vec);
break;
case LB_BOUNDARY_POR:
calculate_pore_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.pore, &dist_tmp, dist_vec);
break;
default:
errtxt = runtime_error(128);
ERROR_SPRINTF(errtxt, "{109 lbboundary type %d not implemented in lb_init_boundaries()\n", lb_boundaries[n].type);
}
if (dist_tmp<dist || n == 0) {
dist = dist_tmp;
the_boundary = n;
}
}
if (dist <= 0 && the_boundary >= 0 && n_lb_boundaries > 0) {
lbfields[get_linear_index(x,y,z,lblattice.halo_grid)].boundary = the_boundary+1;
//printf("boundindex %i: \n", get_linear_index(x,y,z,lblattice.halo_grid));
}
else {
lbfields[get_linear_index(x,y,z,lblattice.halo_grid)].boundary = 0;
}
}
}
}
#endif
}
}
/** Initialize boundary conditions for all constraints in the system. */
void lb_init_boundaries() {
int n, x, y, z, node_domain_position[3], offset[3];
char *errtxt;
double pos[3], dist, dist_tmp=0.0, dist_vec[3];
int the_boundary=-1;
map_node_array(this_node, node_domain_position);
offset[0] = node_domain_position[0]*lblattice.grid[0];
offset[1] = node_domain_position[1]*lblattice.grid[1];
offset[2] = node_domain_position[2]*lblattice.grid[2];
for (n=0;n<lblattice.halo_grid_volume;n++) {
lbfields[n].boundary = 0;
}
if (lblattice.halo_grid_volume==0)
return;
for (z=0; z<lblattice.grid[2]+2; z++) {
for (y=0; y<lblattice.grid[1]+2; y++) {
for (x=0; x<lblattice.grid[0]+2; x++) {
pos[0] = (offset[0]+(x-1))*lblattice.agrid;
pos[1] = (offset[1]+(y-1))*lblattice.agrid;
pos[2] = (offset[2]+(z-1))*lblattice.agrid;
dist = 1e99;
for (n=0;n<n_lb_boundaries;n++) {
switch (lb_boundaries[n].type) {
case LB_BOUNDARY_WAL:
calculate_wall_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.wal, &dist_tmp, dist_vec);
break;
case LB_BOUNDARY_SPH:
calculate_sphere_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.sph, &dist_tmp, dist_vec);
break;
case LB_BOUNDARY_CYL:
calculate_cylinder_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.cyl, &dist_tmp, dist_vec);
break;
case LB_BOUNDARY_POR:
calculate_pore_dist((Particle*) NULL, pos, (Particle*) NULL, &lb_boundaries[n].c.pore, &dist_tmp, dist_vec);
break;
default:
errtxt = runtime_error(128);
ERROR_SPRINTF(errtxt, "{109 lbboundary type %d not implemented in lb_init_boundaries()\n", lb_boundaries[n].type);
}
// if (abs(dist) > abs(dist_tmp) || n == 0) {
if (dist_tmp<dist) { //If you try to create a wall of finite thickness ...|xxx|..., it makes every node a wall node! We still leave it like that, since it allows for corners without problems. We will add a box type to allow for walls of finite thickness. (Georg Rempfer, Stefan Kesselheim, 05.10.2011)
dist = dist_tmp;
the_boundary = n;
}
}
if (dist <= 0 && n_lb_boundaries > 0) {
lbfields[get_linear_index(x,y,z,lblattice.halo_grid)].boundary = the_boundary+1;
} else {
lbfields[get_linear_index(x,y,z,lblattice.halo_grid)].boundary=0;
}
}
}
}
}
