void MovingVortices::calcInitCond(MeshManager &meshManager,
MeshAdaptor &meshAdaptor,
TracerManager &tracerManager)
{
// -------------------------------------------------------------------------
// two dual meshes
const RLLMesh &meshCnt = meshManager.getMesh(PointCounter::Center);
const RLLMesh &meshBnd = meshManager.getMesh(PointCounter::Bound);
// -------------------------------------------------------------------------
// evaluate the initial condition on the RLL mesh of point counter
tracerManager.registerTracer("test tracer 0", "test unit", meshManager);
Field qt;
qt.init(meshCnt, meshBnd);
Array<double, 2> qtmp(meshCnt.getNumLon(), meshCnt.getNumLat());
#ifdef DEBUG
double totalCellMass = 0.0;
#endif
calcSolution(0.0, meshCnt.lon, meshCnt.lat, qtmp);
for (int i = 0; i < meshCnt.getNumLon()-1; ++i)
for (int j = 0; j < meshCnt.getNumLat(); ++j) {
qt.values(i, j) = qtmp(i, j);
#ifdef DEBUG
totalCellMass += qt.values(i, j).getNew()*meshBnd.area(i, j);
#endif
}
// -------------------------------------------------------------------------
// check the location polygon vertices
Vertex *vertex = tracerManager.polygonManager.vertices.front();
for (int i = 0; i < tracerManager.polygonManager.vertices.size(); ++i) {
Location loc;
meshManager.checkLocation(vertex->getCoordinate(), loc, vertex);
vertex->setLocation(loc);
vertex = vertex->next;
}
// -------------------------------------------------------------------------
meshAdaptor.adapt(tracerManager, meshManager);
// -------------------------------------------------------------------------
meshAdaptor.remap("test tracer 0", qt, tracerManager);
// -------------------------------------------------------------------------
#ifdef DEBUG
double totalPolygonMass = 0.0;
Polygon *polygon = tracerManager.polygonManager.polygons.front();
for (int i = 0; i < tracerManager.polygonManager.polygons.size(); ++i) {
totalPolygonMass += polygon->tracers[0].getMass();
polygon = polygon->next;
}
cout << "Total cell mass is " << setprecision(20) << totalCellMass << endl;
cout << "Total polygon mass is " << setprecision(20) << totalPolygonMass << endl;
cout << "Mass error is " << totalCellMass-totalPolygonMass << endl;
#endif
// -------------------------------------------------------------------------
meshAdaptor.remap("test tracer 0", tracerManager);
}
// This routine simply glues together many of the routines that are already
// written in the Poisson solver library
//
// phi( 1:SubNumPhysNodes ) is a scalar quantity.
//
// E1 ( 1:NumElems, 1:kmax2d ) is a vector quantity.
// E2 ( 1:NumElems, 1:kmax2d ) is a vector quantity.
//
// See also: ConvertEfieldOntoDGbasis
void ComputeElectricField( const double t, const mesh& Mesh, const dTensorBC5& q,
dTensor2& E1, dTensor2& E2)
{
//
const int mx = q.getsize(1); assert_eq(mx,dogParamsCart2.get_mx());
const int my = q.getsize(2); assert_eq(my,dogParamsCart2.get_my());
const int NumElems = q.getsize(3);
const int meqn = q.getsize(4);
const int kmax = q.getsize(5);
const int space_order = dogParams.get_space_order();
// unstructured parameters:
const int kmax2d = E2.getsize(2);
const int NumBndNodes = Mesh.get_NumBndNodes();
const int NumPhysNodes = Mesh.get_NumPhysNodes();
// Quick error check
if( !Mesh.get_is_submesh() )
{
printf("ERROR: mesh needs to have subfactor set to %d\n", space_order);
printf("Go to Unstructured mesh and remesh the problem\n");
exit(-1);
}
const int SubFactor = Mesh.get_SubFactor();
assert_eq( NumElems, Mesh.get_NumElems() );
// -- Step 1: Compute rho -- //
dTensor3 rho(NumElems, 1, kmax2d );
void ComputeDensity( const mesh& Mesh, const dTensorBC5& q, dTensor3& rho );
ComputeDensity( Mesh, q, rho );
// -- Step 2: Figure out how large phi needs to be
int SubNumPhysNodes = 0;
int SubNumBndNodes = 0;
switch( dogParams.get_space_order() )
{
case 1:
SubNumPhysNodes = NumPhysNodes;
SubNumBndNodes = NumBndNodes;
break;
case 2:
SubNumPhysNodes = Mesh.get_SubNumPhysNodes();
SubNumBndNodes = Mesh.get_SubNumBndNodes();
if(SubFactor!=2)
{
printf("\n");
printf(" Error: for space_order = %i, need SubFactor = %i\n",space_order,2);
printf(" SubFactor = %i\n",SubFactor);
printf("\n");
exit(1);
}
break;
case 3:
SubNumPhysNodes = Mesh.get_SubNumPhysNodes();
SubNumBndNodes = Mesh.get_SubNumBndNodes();
if(SubFactor!=3)
{
printf("\n");
printf(" Error: for space_order = %i, need SubFactor = %i\n",space_order,3);
printf(" SubFactor = %i\n",SubFactor);
printf("\n");
exit(1);
}
break;
default:
printf("\n");
printf(" ERROR in RunDogpack_unst.cpp: space_order value not supported.\n");
printf(" space_order = %i\n",space_order);
printf("\n");
exit(1);
}
// local storage:
dTensor1 rhs(SubNumPhysNodes);
dTensor1 phi(SubNumPhysNodes);
// Get Cholesky factorization matrix R
//
// TODO - this should be saved earlier in the code rather than reading
// from file every time we with to run a Poisson solve!
//
SparseCholesky R(SubNumPhysNodes);
string outputdir = dogParams.get_outputdir();
R.init(outputdir);
R.read(outputdir);
// Create right-hand side vector
void Rhs2D_unst(const int space_order,
const mesh& Mesh, const dTensor3& rhs_dg,
dTensor1& rhs);
Rhs2D_unst(space_order, Mesh, rho, rhs);
// Call Poisson solver
void PoissonSolver2D_unst(const int space_order,
const mesh& Mesh,
const SparseCholesky& R,
const dTensor1& rhs,
dTensor1& phi,
dTensor2& E1,
dTensor2& E2);
PoissonSolver2D_unst(space_order, Mesh, R, rhs, phi, E1, E2);
// Compare errors with the exact Electric field:
//
void L2Project_Unst(
const double time,
const dTensor2* vel_vec,
const int istart,
const int iend,
const int QuadOrder,
const int BasisOrder_qin,
const int BasisOrder_auxin,
const int BasisOrder_fout,
const mesh& Mesh,
const dTensor3* qin,
const dTensor3* auxin,
dTensor3* fout,
void (*Func)(const double t, const dTensor2* vel_vec, const dTensor2&,const dTensor2&,
const dTensor2&,dTensor2&));
const int sorder = dogParams.get_space_order();
dTensor3 qtmp (NumElems, 2, kmax2d ); qtmp.setall(0.);
dTensor3 auxtmp (NumElems, 0, kmax2d );
dTensor3 ExactE (NumElems, 2, kmax2d );
L2Project_Unst( t, NULL, 1, NumElems,
sorder, sorder, sorder, sorder, Mesh,
&qtmp, &auxtmp, &ExactE,
&ExactElectricField );
// Compute errors on these two:
//
double err = 0.;
for( int n=1; n <= NumElems; n++ )
for( int k=1; k <= kmax2d; k++ )
{
err += Mesh.get_area_prim(n)*pow( ExactE.get(n,1,k) - E1.get(n,k), 2 );
err += Mesh.get_area_prim(n)*pow( ExactE.get(n,2,k) - E2.get(n,k), 2 );
}
printf("error = %2.15e\n", err );
}
