int TestfieldSubCellDGVol()
{
int test = true;
field f;
init_empty_field(&f);
f.model.cfl = 0.05;
f.model.m = 1; // only one conservative variable
f.model.NumFlux = TransNumFlux;
f.model.BoundaryFlux = TestTransBoundaryFlux;
f.model.InitData = TestTransInitData;
f.model.ImposedData = TestTransImposedData;
f.varindex = GenericVarindex;
f.interp.interp_param[0] = 1; // _M
f.interp.interp_param[1] = 2; // x direction degree
f.interp.interp_param[2] = 2; // y direction degree
f.interp.interp_param[3] = 2; // z direction degree
f.interp.interp_param[4] = 2; // x direction refinement
f.interp.interp_param[5] = 2; // y direction refinement
f.interp.interp_param[6] = 1; // z direction refinement
ReadMacroMesh(&f.macromesh, "../test/testcube.msh");
//ReadMacroMesh(&f.macromesh,"test/testdisque.msh");
BuildConnectivity(&f.macromesh);
PrintMacroMesh(&f.macromesh);
//AffineMapMacroMesh(&f.macromesh);
PrintMacroMesh(&f.macromesh);
Initfield(&f);
CheckMacroMesh(&f.macromesh, f.interp.interp_param + 1);
real tnow = 0.0;
for(int ie = 0;ie < f.macromesh.nbelems; ie++)
DGMacroCellInterfaceSlow((void*) (f.mcell+ie), &f, f.wn, f.dtwn);
for(int ie = 0; ie < f.macromesh.nbelems; ie++) {
DGSubCellInterface((void*) (f.mcell+ie), &f, f.wn, f.dtwn);
DGVolume((void*) (f.mcell+ie), &f, f.wn, f.dtwn);
DGMass((void*) (f.mcell+ie), &f, f.dtwn);
DGSource((void*) (f.mcell+ie), &f, tnow, f.wn, f.dtwn);
}
/* DGMacroCellInterfaceSlow(&f); */
/* DGSubCellInterface(&f); */
/* DGVolume(&f); */
/* DGMass(&f); */
Displayfield(&f);
/* Plotfield(0, false, &f, NULL, "visu.msh"); */
/* Plotfield(0, true, &f, "error", "error.msh"); */
// test the time derivative with the exact solution
int *raf = f.interp.interp_param + 4;
int *deg = f.interp.interp_param + 1;
for(int i=0;
i < f.model.m * f.macromesh.nbelems * NPG(raf, deg);
i++) {
test = test && fabs(4 * f.wn[i] - pow(f.dtwn[i] , 2)) < 1e-2;
assert(test);
}
return test;
}
// apply the Discontinuous Galerkin approximation for computing
// the time derivative of the field
void dtField(Field* f){
MacroCell mcell[f->macromesh.nbelems];
for(int ie=0;ie<f->macromesh.nbelems;ie++){
mcell[ie].field=f;
mcell[ie].first_cell=ie;
mcell[ie].last_cell_p1=ie+1;
}
#ifdef _WITH_PTHREAD
// we will have only one flying thread per
// macrocell
pthread_t tmcell[f->macromesh.nbelems];
int status;
// launch a thread for each macro cell
// computation of the inter subcell fluxes
for(int ie=0;ie<f->macromesh.nbelems;ie++){
status=pthread_create (&(tmcell[ie]), // thread
NULL, // default attributes
DGMacroCellInterface, // called function
(void*) (mcell+ie)); // function params
assert(status==0);
//DGMacroCellInterface((void*) (mcell+ie));
}
// wait the end of the threads before next step
for (int ie=0;ie<f->macromesh.nbelems;ie++){
pthread_join(tmcell[ie], NULL);
}
for(int ie=0;ie<f->macromesh.nbelems;ie++){
status=pthread_create (&(tmcell[ie]), // thread
NULL, // default attributes
DGSubCellInterface, // called function
(void*) (mcell+ie)); // function params
assert(status==0);
//DGSubCellInterface((void*) (mcell+ie));
}
// wait the end of the threads before next step
for (int ie=0;ie<f->macromesh.nbelems;ie++){
pthread_join(tmcell[ie], NULL);
}
for(int ie=0;ie<f->macromesh.nbelems;ie++){
status=pthread_create (&(tmcell[ie]), // thread
NULL, // default attributes
DGVolume, // called function
(void*) (mcell+ie)); // function params
assert(status==0);
//DGVolume((void*) (mcell+ie));
}
// wait the end of the threads before next step
for (int ie=0;ie<f->macromesh.nbelems;ie++){
pthread_join(tmcell[ie], NULL);
}
//DisplayField(f);
//assert(1==2);
for(int ie=0;ie<f->macromesh.nbelems;ie++){
status=pthread_create (&(tmcell[ie]), // thread
NULL, // default attributes
DGMass, // called function
(void*) (mcell+ie)); // function params
assert(status==0);
//DGMass((void*) (mcell+ie));
}
// wait the end of the threads before next step
for (int ie=0;ie<f->macromesh.nbelems;ie++){
pthread_join(tmcell[ie], NULL);
}
#else
#ifdef _OPENMP
#pragma omp parallel for schedule(dynamic, 1)
#endif
for(int ie=0; ie < f->macromesh.nbelems; ++ie) {
DGMacroCellInterface((void*) (mcell+ie));
DGSubCellInterface((void*) (mcell+ie));
DGVolume((void*) (mcell+ie));
DGMass((void*) (mcell+ie));
}
#endif
}
