#include <stdlib.h>
#include <cmath>
#include <BasicFiniteElements.hpp>

Classes
struct	ElementsAndOps< DIM >

struct	Monitor
	Monitor solution. More...

struct	PhotonDiffusion

Typedefs
using	DomainEle = VolumeElementForcesAndSourcesCore
	[Define dimension] More...

using	DomainEleOp = DomainEle::UserDataOperator

using	BoundaryEle = FaceElementForcesAndSourcesCore

using	BoundaryEleOp = BoundaryEle::UserDataOperator

using	PostProcEle = PostProcVolumeOnRefinedMesh

using	OpDomainMass = FormsIntegrators< DomainEleOp >::Assembly< PETSC >::BiLinearForm< GAUSS >::OpMass< 1, 1 >

using	OpDomainGradGrad = FormsIntegrators< DomainEleOp >::Assembly< PETSC >::BiLinearForm< GAUSS >::OpGradGrad< 1, 1, SPACE_DIM >

using	OpDomainTimesScalarField = FormsIntegrators< DomainEleOp >::Assembly< PETSC >::LinearForm< GAUSS >::OpBaseTimesScalarField< 1 >

using	OpDomainGradTimesVec = FormsIntegrators< DomainEleOp >::Assembly< PETSC >::LinearForm< GAUSS >::OpGradTimesTensor< 1, 1, SPACE_DIM >

using	OpDomainSource = FormsIntegrators< DomainEleOp >::Assembly< PETSC >::LinearForm< GAUSS >::OpSource< 1, 1 >

using	OpBoundaryMass = FormsIntegrators< BoundaryEleOp >::Assembly< PETSC >::BiLinearForm< GAUSS >::OpMass< 1, 1 >

using	OpBoundaryTimeScalarField = FormsIntegrators< BoundaryEleOp >::Assembly< PETSC >::LinearForm< GAUSS >::OpBaseTimesScalarField< 1 >

using	OpBoundarySource = FormsIntegrators< BoundaryEleOp >::Assembly< PETSC >::LinearForm< GAUSS >::OpSource< 1, 1 >

Functions
int	main (int argc, char *argv[])

Variables
static char	help [] = "...\n\n"

constexpr int	SPACE_DIM = 3
	[Define dimension] More...

double	n = 1.44
	refractive index of diffusive medium More...

double	c = 30.
	speed of light (cm/ns) More...

double	v = c / n
	phase velocity of light in medium (cm/ns) More...

double	mu_a = 0.09
	absorption coefficient (cm^-1) More...

double	mu_sp = 16.5
	scattering coefficient (cm^-1) More...

double	flux = 1e3
	impulse magnitude More...

double	duration = 0.05
	impulse duration (ns) More...

PetscBool	from_initial = PETSC_TRUE

PetscBool	output_volume = PETSC_FALSE

int	order = 3

int	save_every_nth_step = 1

double	A = 3.0

double	h = 0.5 / A
	convective heat coefficient More...

double	D = 1. / (3. * (mu_a + mu_sp))

double	inv_v = 1. / v

Typedef Documentation

◆ BoundaryEle

using BoundaryEle = FaceElementForcesAndSourcesCore

Definition at line 37 of file photon_diffusion.cpp.

◆ BoundaryEleOp

using BoundaryEleOp = BoundaryEle::UserDataOperator

Definition at line 38 of file photon_diffusion.cpp.

◆ DomainEle

using DomainEle = VolumeElementForcesAndSourcesCore

[Define dimension]

Definition at line 35 of file photon_diffusion.cpp.

◆ DomainEleOp

using DomainEleOp = DomainEle::UserDataOperator

Definition at line 36 of file photon_diffusion.cpp.

◆ OpBoundaryMass

using OpBoundaryMass = FormsIntegrators<BoundaryEleOp>::Assembly< PETSC>::BiLinearForm<GAUSS>::OpMass<1, 1>

Examples: photon_diffusion.cpp.

Definition at line 52 of file photon_diffusion.cpp.

◆ OpBoundarySource

using OpBoundarySource = FormsIntegrators<BoundaryEleOp>::Assembly< PETSC>::LinearForm<GAUSS>::OpSource<1, 1>

Definition at line 56 of file photon_diffusion.cpp.

◆ OpBoundaryTimeScalarField

using OpBoundaryTimeScalarField = FormsIntegrators<BoundaryEleOp>::Assembly< PETSC>::LinearForm<GAUSS>::OpBaseTimesScalarField<1>

Examples: photon_diffusion.cpp.

Definition at line 54 of file photon_diffusion.cpp.

◆ OpDomainGradGrad

using OpDomainGradGrad = FormsIntegrators<DomainEleOp>::Assembly< PETSC>::BiLinearForm<GAUSS>::OpGradGrad<1, 1, SPACE_DIM>

Examples: photon_diffusion.cpp.

Definition at line 43 of file photon_diffusion.cpp.

◆ OpDomainGradTimesVec

using OpDomainGradTimesVec = FormsIntegrators<DomainEleOp>::Assembly< PETSC>::LinearForm<GAUSS>::OpGradTimesTensor<1, 1, SPACE_DIM>

Examples: photon_diffusion.cpp.

Definition at line 47 of file photon_diffusion.cpp.

◆ OpDomainMass

using OpDomainMass = FormsIntegrators<DomainEleOp>::Assembly< PETSC>::BiLinearForm<GAUSS>::OpMass<1, 1>

Examples: photon_diffusion.cpp.

Definition at line 41 of file photon_diffusion.cpp.

◆ OpDomainSource

using OpDomainSource = FormsIntegrators<DomainEleOp>::Assembly< PETSC>::LinearForm<GAUSS>::OpSource<1, 1>

Examples: photon_diffusion.cpp.

Definition at line 49 of file photon_diffusion.cpp.

◆ OpDomainTimesScalarField

using OpDomainTimesScalarField = FormsIntegrators<DomainEleOp>::Assembly< PETSC>::LinearForm<GAUSS>::OpBaseTimesScalarField<1>

Examples: photon_diffusion.cpp.

Definition at line 45 of file photon_diffusion.cpp.

◆ PostProcEle

using PostProcEle = PostProcVolumeOnRefinedMesh

Definition at line 39 of file photon_diffusion.cpp.

Function Documentation

◆ main()

int main	(	int	argc,
		char *	argv[]
	)

Examples: photon_diffusion.cpp.

Definition at line 469 of file photon_diffusion.cpp.

                                 {
 
  // Initialisation of MoFEM/PETSc and MOAB data structures
  const char param_file[] = "param_file.petsc";
  MoFEM::Core::Initialize(&argc, &argv, param_file, help);
 
  // Add logging channel for example
  auto core_log = logging::core::get();
  core_log->add_sink(
      LogManager::createSink(LogManager::getStrmWorld(), "PHOTON"));
  LogManager::setLog("PHOTON");
  MOFEM_LOG_TAG("PHOTON", "photon_diffusion")
 
  // Error handling
  try {
    // Register MoFEM discrete manager in PETSc
    DMType dm_name = "DMMOFEM";
    CHKERR DMRegister_MoFEM(dm_name);
 
    // Create MOAB instance
    moab::Core mb_instance;              // mesh database
    moab::Interface &moab = mb_instance; // mesh database interface
 
    // Create MoFEM instance
    MoFEM::Core core(moab);           // finite element database
    MoFEM::Interface &m_field = core; // finite element interface
 
    // Run the main analysis
    PhotonDiffusion heat_problem(m_field);
    CHKERR heat_problem.runProgram();
  }
  CATCH_ERRORS;
 
  // Finish work: cleaning memory, getting statistics, etc.
  MoFEM::Core::Finalize();
 
  return 0;
}