SparseGridsInitialSolution.cpp File Reference

Read in initial solution and intepolate it to the sparse grids. More...

#include <arrayfunctions.h>
#include <sparse_grids_simulation.h>

Go to the source code of this file.

Functions
int	VolumeIntegral (double *, double *, void *, void *)

Detailed Description

Read in initial solution and intepolate it to the sparse grids.

Author

Debojyoti Ghosh, John Loffeld, Lee Ricketson

Definition in file SparseGridsInitialSolution.cpp.

Function Documentation

VolumeIntegral()

int VolumeIntegral	(	double *	VolumeIntegral,
		double *	u,
		void *	s,
		void *	m
	)

Compute the volume integral of the solution.

Parameters

VolumeIntegral	The computed volume integral
u	Solution
s	Solver object of type HyPar
m	MPI object of type MPIVariables

Definition at line 14 of file VolumeIntegral.c.

{
  HyPar         *solver = (HyPar*)        s;
  MPIVariables  *mpi    = (MPIVariables*) m;

  int ndims   = solver->ndims;
  int nvars   = solver->nvars;
  int *dim    = solver->dim_local;
  int ghosts  = solver->ghosts;
  int d,v;

  /* calculate local volume integral of the solution */
  int index[ndims], done = 0;
  double *local_integral = (double*) calloc (nvars,sizeof(double));
  _ArraySetValue_(local_integral,nvars,0.0);
  _ArraySetValue_(index,ndims,0);
  while (!done) {
    int p; _ArrayIndex1D_(ndims,dim,index,ghosts,p);
    double dxinv[ndims];
    for (d=0; d<ndims; d++) { _GetCoordinate_(d,index[d],dim,ghosts,solver->dxinv,dxinv[d]); }
    double dV = 1.0; for (d=0; d<ndims; d++) dV *= (1.0/dxinv[d]);
    for (v=0; v<nvars; v++) local_integral[v] += (u[p*nvars+v]*dV);
    _ArrayIncrementIndex_(ndims,dim,index,done);
  }
  /* sum over all processors to get global integral of the solution */
  IERR MPISum_double(VolumeIntegral,local_integral,nvars,&mpi->world); CHECKERR(ierr);
  free(local_integral);

  return(0);
}