#include <temporary_stefan_boltzmann_elements.h>

Inheritance diagram for oomph::SolarRadiationBase:

Public Member Functions
	SolarRadiationBase ()
	Constructor. More...

void	enable_smoothed_sun_shadow (const double &alpha_tanh_smooth_sun_shadow=100.0)

void	disable_smoothed_sun_shadow ()
	Disable smoothing of shadow. More...

bool	smoothed_sun_shadow_is_enabled ()
	Disable smoothing of shadow. More...

double	alpha_tanh_smooth_sun_shadow ()

void	update_limiting_angles (const Vector< Node * > &shielding_node_pt)

virtual double	atmospheric_radiation (const unsigned &intpt, const double &time, const Vector< double > &x, const Vector< double > &n)

void	output_diffuse_radiation_cone (std::ostream &outfile, const double &radius)
	Output cone of diffuse radiation for all integration points. More...

void	output_diffuse_radiation_cone_min_angle (std::ostream &outfile, const double &radius)

void	output_diffuse_radiation_cone_max_angle (std::ostream &outfile, const double &radius)

void	output_limiting_angles (std::ostream &outfile)
	Output illumination angles for all integration points. More...

void	output_atmospheric_radiation (std::ostream &outfile)
	Output diffuse and direct radiation. More...

Public Member Functions inherited from oomph::FiniteElement
void	set_dimension (const unsigned &dim)

void	set_nodal_dimension (const unsigned &nodal_dim)

void	set_nnodal_position_type (const unsigned &nposition_type)
	Set the number of types required to interpolate the coordinate. More...

void	set_n_node (const unsigned &n)

int	nodal_local_eqn (const unsigned &n, const unsigned &i) const

double	dJ_eulerian_at_knot (const unsigned &ipt, Shape &psi, DenseMatrix< double > &djacobian_dX) const

	FiniteElement ()
	Constructor. More...

virtual	~FiniteElement ()

	FiniteElement (const FiniteElement &)=delete
	Broken copy constructor. More...

virtual bool	local_coord_is_valid (const Vector< double > &s)
	Broken assignment operator. More...

virtual void	move_local_coord_back_into_element (Vector< double > &s) const

void	get_centre_of_gravity_and_max_radius_in_terms_of_zeta (Vector< double > &cog, double &max_radius) const

virtual void	local_coordinate_of_node (const unsigned &j, Vector< double > &s) const

virtual void	local_fraction_of_node (const unsigned &j, Vector< double > &s_fraction)

virtual double	local_one_d_fraction_of_node (const unsigned &n1d, const unsigned &i)

virtual void	set_macro_elem_pt (MacroElement *macro_elem_pt)

MacroElement *	macro_elem_pt ()
	Access function to pointer to macro element. More...

void	get_x (const Vector< double > &s, Vector< double > &x) const

void	get_x (const unsigned &t, const Vector< double > &s, Vector< double > &x)

virtual void	get_x_from_macro_element (const Vector< double > &s, Vector< double > &x) const

virtual void	get_x_from_macro_element (const unsigned &t, const Vector< double > &s, Vector< double > &x)

virtual void	set_integration_scheme (Integral *const &integral_pt)
	Set the spatial integration scheme. More...

Integral *const &	integral_pt () const
	Return the pointer to the integration scheme (const version) More...

virtual void	shape (const Vector< double > &s, Shape &psi) const =0

virtual void	shape_at_knot (const unsigned &ipt, Shape &psi) const

virtual void	dshape_local (const Vector< double > &s, Shape &psi, DShape &dpsids) const

virtual void	dshape_local_at_knot (const unsigned &ipt, Shape &psi, DShape &dpsids) const

virtual void	d2shape_local (const Vector< double > &s, Shape &psi, DShape &dpsids, DShape &d2psids) const

virtual void	d2shape_local_at_knot (const unsigned &ipt, Shape &psi, DShape &dpsids, DShape &d2psids) const

void	check_J_eulerian_at_knots (bool &passed) const

void	check_jacobian (const double &jacobian) const

double	dshape_eulerian (const Vector< double > &s, Shape &psi, DShape &dpsidx) const

virtual double	dshape_eulerian_at_knot (const unsigned &ipt, Shape &psi, DShape &dpsidx) const

virtual double	dshape_eulerian_at_knot (const unsigned &ipt, Shape &psi, DShape &dpsi, DenseMatrix< double > &djacobian_dX, RankFourTensor< double > &d_dpsidx_dX) const

double	d2shape_eulerian (const Vector< double > &s, Shape &psi, DShape &dpsidx, DShape &d2psidx) const

virtual double	d2shape_eulerian_at_knot (const unsigned &ipt, Shape &psi, DShape &dpsidx, DShape &d2psidx) const

virtual void	assign_nodal_local_eqn_numbers (const bool &store_local_dof_pt)

virtual void	describe_local_dofs (std::ostream &out, const std::string &current_string) const

virtual void	describe_nodal_local_dofs (std::ostream &out, const std::string &current_string) const

virtual void	assign_all_generic_local_eqn_numbers (const bool &store_local_dof_pt)

Node *&	node_pt (const unsigned &n)
	Return a pointer to the local node n. More...

Node *const &	node_pt (const unsigned &n) const
	Return a pointer to the local node n (const version) More...

unsigned	nnode () const
	Return the number of nodes. More...

virtual unsigned	nnode_1d () const

double	raw_nodal_position (const unsigned &n, const unsigned &i) const

double	raw_nodal_position (const unsigned &t, const unsigned &n, const unsigned &i) const

double	raw_dnodal_position_dt (const unsigned &n, const unsigned &i) const

double	raw_dnodal_position_dt (const unsigned &n, const unsigned &j, const unsigned &i) const

double	raw_nodal_position_gen (const unsigned &n, const unsigned &k, const unsigned &i) const

double	raw_nodal_position_gen (const unsigned &t, const unsigned &n, const unsigned &k, const unsigned &i) const

double	raw_dnodal_position_gen_dt (const unsigned &n, const unsigned &k, const unsigned &i) const

double	raw_dnodal_position_gen_dt (const unsigned &j, const unsigned &n, const unsigned &k, const unsigned &i) const

double	nodal_position (const unsigned &n, const unsigned &i) const

double	nodal_position (const unsigned &t, const unsigned &n, const unsigned &i) const

double	dnodal_position_dt (const unsigned &n, const unsigned &i) const
	Return the i-th component of nodal velocity: dx/dt at local node n. More...

double	dnodal_position_dt (const unsigned &n, const unsigned &j, const unsigned &i) const

double	nodal_position_gen (const unsigned &n, const unsigned &k, const unsigned &i) const

double	nodal_position_gen (const unsigned &t, const unsigned &n, const unsigned &k, const unsigned &i) const

double	dnodal_position_gen_dt (const unsigned &n, const unsigned &k, const unsigned &i) const

double	dnodal_position_gen_dt (const unsigned &j, const unsigned &n, const unsigned &k, const unsigned &i) const

virtual void	get_dresidual_dnodal_coordinates (RankThreeTensor< double > &dresidual_dnodal_coordinates)

virtual void	disable_ALE ()

virtual void	enable_ALE ()

virtual unsigned	required_nvalue (const unsigned &n) const

unsigned	nnodal_position_type () const

bool	has_hanging_nodes () const

unsigned	nodal_dimension () const
	Return the required Eulerian dimension of the nodes in this element. More...

virtual unsigned	nvertex_node () const

virtual Node *	vertex_node_pt (const unsigned &j) const

virtual Node *	construct_node (const unsigned &n)

virtual Node *	construct_node (const unsigned &n, TimeStepper *const &time_stepper_pt)

virtual Node *	construct_boundary_node (const unsigned &n)

virtual Node *	construct_boundary_node (const unsigned &n, TimeStepper *const &time_stepper_pt)

int	get_node_number (Node *const &node_pt) const

virtual Node *	get_node_at_local_coordinate (const Vector< double > &s) const

double	raw_nodal_value (const unsigned &n, const unsigned &i) const

double	raw_nodal_value (const unsigned &t, const unsigned &n, const unsigned &i) const

double	nodal_value (const unsigned &n, const unsigned &i) const

double	nodal_value (const unsigned &t, const unsigned &n, const unsigned &i) const

unsigned	dim () const

virtual ElementGeometry::ElementGeometry	element_geometry () const
	Return the geometry type of the element (either Q or T usually). More...

unsigned	ngeom_data () const

Data *	geom_data_pt (const unsigned &j)

void	position (const Vector< double > &zeta, Vector< double > &r) const

void	position (const unsigned &t, const Vector< double > &zeta, Vector< double > &r) const

void	dposition_dt (const Vector< double > &zeta, const unsigned &t, Vector< double > &drdt)

void	interpolated_zeta (const Vector< double > &s, Vector< double > &zeta) const

void	locate_zeta (const Vector< double > &zeta, GeomObject *&geom_object_pt, Vector< double > &s, const bool &use_coordinate_as_initial_guess=false)

virtual void	node_update ()

virtual void	identify_field_data_for_interactions (std::set< std::pair< Data *, unsigned >> &paired_field_data)

virtual void	identify_geometric_data (std::set< Data * > &geometric_data_pt)

virtual double	s_min () const
	Min value of local coordinate. More...

virtual double	s_max () const
	Max. value of local coordinate. More...

double	size () const

virtual double	compute_physical_size () const

virtual void	point_output_data (const Vector< double > &s, Vector< double > &data)

void	point_output (std::ostream &outfile, const Vector< double > &s)

virtual unsigned	nplot_points_paraview (const unsigned &nplot) const

virtual unsigned	nsub_elements_paraview (const unsigned &nplot) const

void	output_paraview (std::ofstream &file_out, const unsigned &nplot) const

virtual void	write_paraview_output_offset_information (std::ofstream &file_out, const unsigned &nplot, unsigned &counter) const

virtual void	write_paraview_type (std::ofstream &file_out, const unsigned &nplot) const

virtual void	write_paraview_offsets (std::ofstream &file_out, const unsigned &nplot, unsigned &offset_sum) const

virtual unsigned	nscalar_paraview () const

virtual void	scalar_value_paraview (std::ofstream &file_out, const unsigned &i, const unsigned &nplot) const

virtual void	scalar_value_fct_paraview (std::ofstream &file_out, const unsigned &i, const unsigned &nplot, FiniteElement::SteadyExactSolutionFctPt exact_soln_pt) const

virtual void	scalar_value_fct_paraview (std::ofstream &file_out, const unsigned &i, const unsigned &nplot, const double &time, FiniteElement::UnsteadyExactSolutionFctPt exact_soln_pt) const

virtual std::string	scalar_name_paraview (const unsigned &i) const

virtual void	output (std::ostream &outfile)

virtual void	output (std::ostream &outfile, const unsigned &n_plot)

virtual void	output (const unsigned &t, std::ostream &outfile, const unsigned &n_plot) const

virtual void	output (FILE *file_pt)

virtual void	output (FILE *file_pt, const unsigned &n_plot)

virtual void	output_fct (std::ostream &outfile, const unsigned &n_plot, FiniteElement::SteadyExactSolutionFctPt exact_soln_pt)
	Output an exact solution over the element. More...

virtual void	output_fct (std::ostream &outfile, const unsigned &n_plot, const double &time, FiniteElement::UnsteadyExactSolutionFctPt exact_soln_pt)
	Output a time-dependent exact solution over the element. More...

virtual void	output_fct (std::ostream &outfile, const unsigned &n_plot, const double &time, const SolutionFunctorBase &exact_soln) const
	Output a time-dependent exact solution over the element. More...

virtual void	get_s_plot (const unsigned &i, const unsigned &nplot, Vector< double > &s, const bool &shifted_to_interior=false) const

virtual std::string	tecplot_zone_string (const unsigned &nplot) const

virtual void	write_tecplot_zone_footer (std::ostream &outfile, const unsigned &nplot) const

virtual void	write_tecplot_zone_footer (FILE *file_pt, const unsigned &nplot) const

virtual unsigned	nplot_points (const unsigned &nplot) const

virtual void	compute_error (FiniteElement::SteadyExactSolutionFctPt exact_soln_pt, double &error, double &norm)
	Calculate the norm of the error and that of the exact solution. More...

virtual void	compute_error (FiniteElement::UnsteadyExactSolutionFctPt exact_soln_pt, const double &time, double &error, double &norm)
	Calculate the norm of the error and that of the exact solution. More...

virtual void	compute_error (FiniteElement::SteadyExactSolutionFctPt exact_soln_pt, Vector< double > &error, Vector< double > &norm)

virtual void	compute_error (FiniteElement::UnsteadyExactSolutionFctPt exact_soln_pt, const double &time, Vector< double > &error, Vector< double > &norm)

virtual void	compute_error (std::ostream &outfile, FiniteElement::SteadyExactSolutionFctPt exact_soln_pt, double &error, double &norm)

virtual void	compute_error (std::ostream &outfile, FiniteElement::UnsteadyExactSolutionFctPt exact_soln_pt, const double &time, double &error, double &norm)

virtual void	compute_error (std::ostream &outfile, FiniteElement::SteadyExactSolutionFctPt exact_soln_pt, Vector< double > &error, Vector< double > &norm)

virtual void	compute_error (std::ostream &outfile, FiniteElement::UnsteadyExactSolutionFctPt exact_soln_pt, const double &time, Vector< double > &error, Vector< double > &norm)

virtual void	compute_abs_error (std::ostream &outfile, FiniteElement::SteadyExactSolutionFctPt exact_soln_pt, double &error)

void	integrate_fct (FiniteElement::SteadyExactSolutionFctPt integrand_fct_pt, Vector< double > &integral)
	Integrate Vector-valued function over element. More...

void	integrate_fct (FiniteElement::UnsteadyExactSolutionFctPt integrand_fct_pt, const double &time, Vector< double > &integral)
	Integrate Vector-valued time-dep function over element. More...

virtual void	build_face_element (const int &face_index, FaceElement *face_element_pt)

virtual unsigned	self_test ()

virtual unsigned	get_bulk_node_number (const int &face_index, const unsigned &i) const

virtual int	face_outer_unit_normal_sign (const int &face_index) const
	Get the sign of the outer unit normal on the face given by face_index. More...

virtual unsigned	nnode_on_face () const

void	face_node_number_error_check (const unsigned &i) const
	Range check for face node numbers. More...

virtual CoordinateMappingFctPt	face_to_bulk_coordinate_fct_pt (const int &face_index) const

virtual BulkCoordinateDerivativesFctPt	bulk_coordinate_derivatives_fct_pt (const int &face_index) const

Public Member Functions inherited from oomph::GeneralisedElement
	GeneralisedElement ()
	Constructor: Initialise all pointers and all values to zero. More...

virtual	~GeneralisedElement ()
	Virtual destructor to clean up any memory allocated by the object. More...

	GeneralisedElement (const GeneralisedElement &)=delete
	Broken copy constructor. More...

void	operator= (const GeneralisedElement &)=delete
	Broken assignment operator. More...

Data *&	internal_data_pt (const unsigned &i)
	Return a pointer to i-th internal data object. More...

Data *const &	internal_data_pt (const unsigned &i) const
	Return a pointer to i-th internal data object (const version) More...

Data *&	external_data_pt (const unsigned &i)
	Return a pointer to i-th external data object. More...

Data *const &	external_data_pt (const unsigned &i) const
	Return a pointer to i-th external data object (const version) More...

unsigned long	eqn_number (const unsigned &ieqn_local) const

int	local_eqn_number (const unsigned long &ieqn_global) const

unsigned	add_external_data (Data *const &data_pt, const bool &fd=true)

bool	external_data_fd (const unsigned &i) const

void	exclude_external_data_fd (const unsigned &i)

void	include_external_data_fd (const unsigned &i)

void	flush_external_data ()
	Flush all external data. More...

void	flush_external_data (Data *const &data_pt)
	Flush the object addressed by data_pt from the external data array. More...

unsigned	ninternal_data () const
	Return the number of internal data objects. More...

unsigned	nexternal_data () const
	Return the number of external data objects. More...

unsigned	ndof () const
	Return the number of equations/dofs in the element. More...

void	dof_vector (const unsigned &t, Vector< double > &dof)
	Return the vector of dof values at time level t. More...

void	dof_pt_vector (Vector< double * > &dof_pt)
	Return the vector of pointers to dof values. More...

void	set_internal_data_time_stepper (const unsigned &i, TimeStepper *const &time_stepper_pt, const bool &preserve_existing_data)

void	assign_internal_eqn_numbers (unsigned long &global_number, Vector< double * > &Dof_pt)

void	describe_dofs (std::ostream &out, const std::string &current_string) const

void	add_internal_value_pt_to_map (std::map< unsigned, double * > &map_of_value_pt)

virtual void	assign_local_eqn_numbers (const bool &store_local_dof_pt)

virtual void	complete_setup_of_dependencies ()

virtual void	get_residuals (Vector< double > &residuals)

virtual void	get_jacobian (Vector< double > &residuals, DenseMatrix< double > &jacobian)

virtual void	get_mass_matrix (Vector< double > &residuals, DenseMatrix< double > &mass_matrix)

virtual void	get_jacobian_and_mass_matrix (Vector< double > &residuals, DenseMatrix< double > &jacobian, DenseMatrix< double > &mass_matrix)

virtual void	get_dresiduals_dparameter (double *const &parameter_pt, Vector< double > &dres_dparam)

virtual void	get_djacobian_dparameter (double *const &parameter_pt, Vector< double > &dres_dparam, DenseMatrix< double > &djac_dparam)

virtual void	get_djacobian_and_dmass_matrix_dparameter (double *const &parameter_pt, Vector< double > &dres_dparam, DenseMatrix< double > &djac_dparam, DenseMatrix< double > &dmass_matrix_dparam)

virtual void	get_hessian_vector_products (Vector< double > const &Y, DenseMatrix< double > const &C, DenseMatrix< double > &product)

virtual void	get_inner_products (Vector< std::pair< unsigned, unsigned >> const &history_index, Vector< double > &inner_product)

virtual void	get_inner_product_vectors (Vector< unsigned > const &history_index, Vector< Vector< double >> &inner_product_vector)

virtual void	compute_norm (Vector< double > &norm)

virtual void	compute_norm (double &norm)

virtual unsigned	ndof_types () const

virtual void	get_dof_numbers_for_unknowns (std::list< std::pair< unsigned long, unsigned >> &dof_lookup_list) const

Public Member Functions inherited from oomph::GeomObject
	GeomObject ()
	Default constructor. More...

	GeomObject (const unsigned &ndim)

	GeomObject (const unsigned &nlagrangian, const unsigned &ndim)

	GeomObject (const unsigned &nlagrangian, const unsigned &ndim, TimeStepper *time_stepper_pt)

	GeomObject (const GeomObject &dummy)=delete
	Broken copy constructor. More...

void	operator= (const GeomObject &)=delete
	Broken assignment operator. More...

virtual	~GeomObject ()
	(Empty) destructor More...

unsigned	nlagrangian () const
	Access function to # of Lagrangian coordinates. More...

unsigned	ndim () const
	Access function to # of Eulerian coordinates. More...

void	set_nlagrangian_and_ndim (const unsigned &n_lagrangian, const unsigned &n_dim)
	Set # of Lagrangian and Eulerian coordinates. More...

TimeStepper *&	time_stepper_pt ()

TimeStepper *	time_stepper_pt () const

virtual void	position (const double &t, const Vector< double > &zeta, Vector< double > &r) const

virtual void	dposition (const Vector< double > &zeta, DenseMatrix< double > &drdzeta) const

virtual void	d2position (const Vector< double > &zeta, RankThreeTensor< double > &ddrdzeta) const

virtual void	d2position (const Vector< double > &zeta, Vector< double > &r, DenseMatrix< double > &drdzeta, RankThreeTensor< double > &ddrdzeta) const

Public Member Functions inherited from oomph::FaceElement
	FaceElement ()
	Constructor: Initialise all appropriate member data. More...

virtual	~FaceElement ()
	Empty virtual destructor. More...

	FaceElement (const FaceElement &)=delete
	Broken copy constructor. More...

const unsigned &	boundary_number_in_bulk_mesh () const
	Broken assignment operator. More...

void	set_boundary_number_in_bulk_mesh (const unsigned &b)
	Set function for the boundary number in bulk mesh. More...

double	zeta_nodal (const unsigned &n, const unsigned &k, const unsigned &i) const

double	J_eulerian (const Vector< double > &s) const

double	J_eulerian_at_knot (const unsigned &ipt) const

void	check_J_eulerian_at_knots (bool &passed) const

double	interpolated_x (const Vector< double > &s, const unsigned &i) const

double	interpolated_x (const unsigned &t, const Vector< double > &s, const unsigned &i) const

void	interpolated_x (const Vector< double > &s, Vector< double > &x) const

void	interpolated_x (const unsigned &t, const Vector< double > &s, Vector< double > &x) const

double	interpolated_dxdt (const Vector< double > &s, const unsigned &i, const unsigned &t)

void	interpolated_dxdt (const Vector< double > &s, const unsigned &t, Vector< double > &dxdt)

int &	normal_sign ()

int	normal_sign () const

int &	face_index ()

int	face_index () const

const Vector< double > *	tangent_direction_pt () const
	Public access function for the tangent direction pointer. More...

void	set_tangent_direction (Vector< double > *tangent_direction_pt)
	Set the tangent direction vector. More...

void	turn_on_warning_for_discontinuous_tangent ()

void	turn_off_warning_for_discontinuous_tangent ()

void	continuous_tangent_and_outer_unit_normal (const Vector< double > &s, Vector< Vector< double >> &tang_vec, Vector< double > &unit_normal) const

void	continuous_tangent_and_outer_unit_normal (const unsigned &ipt, Vector< Vector< double >> &tang_vec, Vector< double > &unit_normal) const

void	outer_unit_normal (const Vector< double > &s, Vector< double > &unit_normal) const
	Compute outer unit normal at the specified local coordinate. More...

void	outer_unit_normal (const unsigned &ipt, Vector< double > &unit_normal) const
	Compute outer unit normal at ipt-th integration point. More...

FiniteElement *&	bulk_element_pt ()
	Pointer to higher-dimensional "bulk" element. More...

FiniteElement *	bulk_element_pt () const
	Pointer to higher-dimensional "bulk" element (const version) More...

CoordinateMappingFctPt &	face_to_bulk_coordinate_fct_pt ()

CoordinateMappingFctPt	face_to_bulk_coordinate_fct_pt () const

BulkCoordinateDerivativesFctPt &	bulk_coordinate_derivatives_fct_pt ()

BulkCoordinateDerivativesFctPt	bulk_coordinate_derivatives_fct_pt () const

Vector< double >	local_coordinate_in_bulk (const Vector< double > &s) const

void	get_local_coordinate_in_bulk (const Vector< double > &s, Vector< double > &s_bulk) const

void	get_ds_bulk_ds_face (const Vector< double > &s, DenseMatrix< double > &dsbulk_dsface, unsigned &interior_direction) const

unsigned &	bulk_position_type (const unsigned &i)

const unsigned &	bulk_position_type (const unsigned &i) const

void	bulk_node_number_resize (const unsigned &i)
	Resize the storage for the bulk node numbers. More...

unsigned &	bulk_node_number (const unsigned &n)

const unsigned &	bulk_node_number (const unsigned &n) const

void	bulk_position_type_resize (const unsigned &i)
	Resize the storage for bulk_position_type to i entries. More...

unsigned &	nbulk_value (const unsigned &n)

unsigned	nbulk_value (const unsigned &n) const

void	nbulk_value_resize (const unsigned &i)

void	resize_nodes (Vector< unsigned > &nadditional_data_values)

void	output_zeta (std::ostream &outfile, const unsigned &nplot)
	Output boundary coordinate zeta. More...

Public Member Functions inherited from oomph::TemplateFreeUnsteadyHeatBaseFaceElement
	TemplateFreeUnsteadyHeatBaseFaceElement ()
	Constructor. More...

virtual	~TemplateFreeUnsteadyHeatBaseFaceElement ()
	Destrutor. More...

UnsteadyHeatPrescribedFluxFctPt &	flux_fct_pt ()
	Access function for the prescribed-flux function pointer. More...

Public Attributes
void(*&)(const double &time, double &solar_flux_magnitude, Vector< double > &solar_flux_unit_vector, double &total_diffuse_radiation)	atmospheric_radiation_fct_pt ()
	Reference to the atmospheric radiation function pointer. More...

Protected Attributes
bool	Smoothed_sun_shadow
	Use tanh profile to smooth solar shadows. More...

double	Alpha_tanh_smooth_sun_shadow
	Factor for tanh profile to smooth solar shadows. More...

Vector< std::pair< double, double > >	Diffuse_limit_angles

void(*	Atmospheric_radiation_fct_pt )(const double &time, double &solar_flux_magnitude, Vector< double > &solar_flux_unit_vector, double &total_diffuse_radiation)

Protected Attributes inherited from oomph::FiniteElement
MacroElement *	Macro_elem_pt
	Pointer to the element's macro element (NULL by default) More...

Protected Attributes inherited from oomph::GeomObject
unsigned	NLagrangian
	Number of Lagrangian (intrinsic) coordinates. More...

unsigned	Ndim
	Number of Eulerian coordinates. More...

TimeStepper *	Geom_object_time_stepper_pt

Protected Attributes inherited from oomph::FaceElement
unsigned	Boundary_number_in_bulk_mesh
	The boundary number in the bulk mesh to which this element is attached. More...

FiniteElement *	Bulk_element_pt
	Pointer to the associated higher-dimensional "bulk" element. More...

Vector< unsigned >	Bulk_node_number

Vector< unsigned >	Nbulk_value

Vector< double > *	Tangent_direction_pt

Protected Attributes inherited from oomph::TemplateFreeUnsteadyHeatBaseFaceElement
unsigned	U_index_ust_heat
	Index at which temperature is stored. More...

unsigned	Dim
	The spatial dimension of the problem. More...

UnsteadyHeatPrescribedFluxFctPt	Flux_fct_pt
	Function pointer to the (global) prescribed-flux function. More...

Private Member Functions
void	check_quadrant_jump (const double &x_prev, const double &y_prev, const double &x_next, const double &y_next, bool &crossing_quadrants, int &n_winding_increment, std::string &error_string, bool &no_problem)

Additional Inherited Members
Public Types inherited from oomph::FiniteElement
typedef void(*	SteadyExactSolutionFctPt) (const Vector< double > &, Vector< double > &)

typedef void(*	UnsteadyExactSolutionFctPt) (const double &, const Vector< double > &, Vector< double > &)

Public Types inherited from oomph::TemplateFreeUnsteadyHeatBaseFaceElement
typedef void(*	UnsteadyHeatPrescribedFluxFctPt) (const double &time, const Vector< double > &x, const Vector< double > &n, const double &u, double &flux)

Static Public Attributes inherited from oomph::FiniteElement
static double	Tolerance_for_singular_jacobian = 1.0e-16
	Tolerance below which the jacobian is considered singular. More...

static bool	Accept_negative_jacobian = false

static bool	Suppress_output_while_checking_for_inverted_elements

Static Public Attributes inherited from oomph::GeneralisedElement
static bool	Suppress_warning_about_repeated_internal_data

static bool	Suppress_warning_about_repeated_external_data = true

static double	Default_fd_jacobian_step = 1.0e-8

Protected Member Functions inherited from oomph::FiniteElement
virtual void	assemble_local_to_eulerian_jacobian (const DShape &dpsids, DenseMatrix< double > &jacobian) const

virtual void	assemble_local_to_eulerian_jacobian2 (const DShape &d2psids, DenseMatrix< double > &jacobian2) const

virtual void	assemble_eulerian_base_vectors (const DShape &dpsids, DenseMatrix< double > &interpolated_G) const

template<unsigned DIM>
double	invert_jacobian (const DenseMatrix< double > &jacobian, DenseMatrix< double > &inverse_jacobian) const

virtual double	invert_jacobian_mapping (const DenseMatrix< double > &jacobian, DenseMatrix< double > &inverse_jacobian) const

virtual double	local_to_eulerian_mapping (const DShape &dpsids, DenseMatrix< double > &jacobian, DenseMatrix< double > &inverse_jacobian) const

double	local_to_eulerian_mapping (const DShape &dpsids, DenseMatrix< double > &inverse_jacobian) const

virtual double	local_to_eulerian_mapping_diagonal (const DShape &dpsids, DenseMatrix< double > &jacobian, DenseMatrix< double > &inverse_jacobian) const

virtual void	dJ_eulerian_dnodal_coordinates (const DenseMatrix< double > &jacobian, const DShape &dpsids, DenseMatrix< double > &djacobian_dX) const

template<unsigned DIM>
void	dJ_eulerian_dnodal_coordinates_templated_helper (const DenseMatrix< double > &jacobian, const DShape &dpsids, DenseMatrix< double > &djacobian_dX) const

virtual void	d_dshape_eulerian_dnodal_coordinates (const double &det_jacobian, const DenseMatrix< double > &jacobian, const DenseMatrix< double > &djacobian_dX, const DenseMatrix< double > &inverse_jacobian, const DShape &dpsids, RankFourTensor< double > &d_dpsidx_dX) const

template<unsigned DIM>
void	d_dshape_eulerian_dnodal_coordinates_templated_helper (const double &det_jacobian, const DenseMatrix< double > &jacobian, const DenseMatrix< double > &djacobian_dX, const DenseMatrix< double > &inverse_jacobian, const DShape &dpsids, RankFourTensor< double > &d_dpsidx_dX) const

virtual void	transform_derivatives (const DenseMatrix< double > &inverse_jacobian, DShape &dbasis) const

void	transform_derivatives_diagonal (const DenseMatrix< double > &inverse_jacobian, DShape &dbasis) const

virtual void	transform_second_derivatives (const DenseMatrix< double > &jacobian, const DenseMatrix< double > &inverse_jacobian, const DenseMatrix< double > &jacobian2, DShape &dbasis, DShape &d2basis) const

template<unsigned DIM>
void	transform_second_derivatives_template (const DenseMatrix< double > &jacobian, const DenseMatrix< double > &inverse_jacobian, const DenseMatrix< double > &jacobian2, DShape &dbasis, DShape &d2basis) const

template<unsigned DIM>
void	transform_second_derivatives_diagonal (const DenseMatrix< double > &jacobian, const DenseMatrix< double > &inverse_jacobian, const DenseMatrix< double > &jacobian2, DShape &dbasis, DShape &d2basis) const

virtual void	fill_in_jacobian_from_nodal_by_fd (Vector< double > &residuals, DenseMatrix< double > &jacobian)

void	fill_in_jacobian_from_nodal_by_fd (DenseMatrix< double > &jacobian)

virtual void	update_before_nodal_fd ()

virtual void	reset_after_nodal_fd ()

virtual void	update_in_nodal_fd (const unsigned &i)

virtual void	reset_in_nodal_fd (const unsigned &i)

void	fill_in_contribution_to_jacobian (Vector< double > &residuals, DenseMatrix< double > &jacobian)

template<>
double	invert_jacobian (const DenseMatrix< double > &jacobian, DenseMatrix< double > &inverse_jacobian) const
	Zero-d specialisation of function to calculate inverse of jacobian mapping. More...

template<>
double	invert_jacobian (const DenseMatrix< double > &jacobian, DenseMatrix< double > &inverse_jacobian) const
	One-d specialisation of function to calculate inverse of jacobian mapping. More...

template<>
double	invert_jacobian (const DenseMatrix< double > &jacobian, DenseMatrix< double > &inverse_jacobian) const
	Two-d specialisation of function to calculate inverse of jacobian mapping. More...

template<>
double	invert_jacobian (const DenseMatrix< double > &jacobian, DenseMatrix< double > &inverse_jacobian) const

template<>
void	dJ_eulerian_dnodal_coordinates_templated_helper (const DenseMatrix< double > &jacobian, const DShape &dpsids, DenseMatrix< double > &djacobian_dX) const

template<>
void	dJ_eulerian_dnodal_coordinates_templated_helper (const DenseMatrix< double > &jacobian, const DShape &dpsids, DenseMatrix< double > &djacobian_dX) const

template<>
void	dJ_eulerian_dnodal_coordinates_templated_helper (const DenseMatrix< double > &jacobian, const DShape &dpsids, DenseMatrix< double > &djacobian_dX) const

template<>
void	dJ_eulerian_dnodal_coordinates_templated_helper (const DenseMatrix< double > &jacobian, const DShape &dpsids, DenseMatrix< double > &djacobian_dX) const

template<>
void	d_dshape_eulerian_dnodal_coordinates_templated_helper (const double &det_jacobian, const DenseMatrix< double > &jacobian, const DenseMatrix< double > &djacobian_dX, const DenseMatrix< double > &inverse_jacobian, const DShape &dpsids, RankFourTensor< double > &d_dpsidx_dX) const

template<>
void	d_dshape_eulerian_dnodal_coordinates_templated_helper (const double &det_jacobian, const DenseMatrix< double > &jacobian, const DenseMatrix< double > &djacobian_dX, const DenseMatrix< double > &inverse_jacobian, const DShape &dpsids, RankFourTensor< double > &d_dpsidx_dX) const

template<>
void	d_dshape_eulerian_dnodal_coordinates_templated_helper (const double &det_jacobian, const DenseMatrix< double > &jacobian, const DenseMatrix< double > &djacobian_dX, const DenseMatrix< double > &inverse_jacobian, const DShape &dpsids, RankFourTensor< double > &d_dpsidx_dX) const

template<>
void	d_dshape_eulerian_dnodal_coordinates_templated_helper (const double &det_jacobian, const DenseMatrix< double > &jacobian, const DenseMatrix< double > &djacobian_dX, const DenseMatrix< double > &inverse_jacobian, const DShape &dpsids, RankFourTensor< double > &d_dpsidx_dX) const

template<>
void	transform_second_derivatives_template (const DenseMatrix< double > &jacobian, const DenseMatrix< double > &inverse_jacobian, const DenseMatrix< double > &jacobian2, DShape &dbasis, DShape &d2basis) const

template<>
void	transform_second_derivatives_template (const DenseMatrix< double > &jacobian, const DenseMatrix< double > &inverse_jacobian, const DenseMatrix< double > &jacobian2, DShape &dbasis, DShape &d2basis) const

template<>
void	transform_second_derivatives_diagonal (const DenseMatrix< double > &jacobian, const DenseMatrix< double > &inverse_jacobian, const DenseMatrix< double > &jacobian2, DShape &dbasis, DShape &d2basis) const

template<>
void	transform_second_derivatives_diagonal (const DenseMatrix< double > &jacobian, const DenseMatrix< double > &inverse_jacobian, const DenseMatrix< double > &jacobian2, DShape &dbasis, DShape &d2basis) const

Protected Member Functions inherited from oomph::GeneralisedElement
unsigned	add_internal_data (Data *const &data_pt, const bool &fd=true)

bool	internal_data_fd (const unsigned &i) const

void	exclude_internal_data_fd (const unsigned &i)

void	include_internal_data_fd (const unsigned &i)

void	clear_global_eqn_numbers ()

void	add_global_eqn_numbers (std::deque< unsigned long > const &global_eqn_numbers, std::deque< double * > const &global_dof_pt)

virtual void	assign_internal_and_external_local_eqn_numbers (const bool &store_local_dof_pt)

virtual void	assign_additional_local_eqn_numbers ()

int	internal_local_eqn (const unsigned &i, const unsigned &j) const

int	external_local_eqn (const unsigned &i, const unsigned &j)

virtual void	fill_in_contribution_to_residuals (Vector< double > &residuals)

void	fill_in_jacobian_from_internal_by_fd (Vector< double > &residuals, DenseMatrix< double > &jacobian, const bool &fd_all_data=false)

void	fill_in_jacobian_from_internal_by_fd (DenseMatrix< double > &jacobian, const bool &fd_all_data=false)

void	fill_in_jacobian_from_external_by_fd (Vector< double > &residuals, DenseMatrix< double > &jacobian, const bool &fd_all_data=false)

void	fill_in_jacobian_from_external_by_fd (DenseMatrix< double > &jacobian, const bool &fd_all_data=false)

virtual void	update_before_internal_fd ()

virtual void	reset_after_internal_fd ()

virtual void	update_in_internal_fd (const unsigned &i)

virtual void	reset_in_internal_fd (const unsigned &i)

virtual void	update_before_external_fd ()

virtual void	reset_after_external_fd ()

virtual void	update_in_external_fd (const unsigned &i)

virtual void	reset_in_external_fd (const unsigned &i)

virtual void	fill_in_contribution_to_mass_matrix (Vector< double > &residuals, DenseMatrix< double > &mass_matrix)

virtual void	fill_in_contribution_to_jacobian_and_mass_matrix (Vector< double > &residuals, DenseMatrix< double > &jacobian, DenseMatrix< double > &mass_matrix)

virtual void	fill_in_contribution_to_dresiduals_dparameter (double *const &parameter_pt, Vector< double > &dres_dparam)

virtual void	fill_in_contribution_to_djacobian_dparameter (double *const &parameter_pt, Vector< double > &dres_dparam, DenseMatrix< double > &djac_dparam)

virtual void	fill_in_contribution_to_djacobian_and_dmass_matrix_dparameter (double *const &parameter_pt, Vector< double > &dres_dparam, DenseMatrix< double > &djac_dparam, DenseMatrix< double > &dmass_matrix_dparam)

virtual void	fill_in_contribution_to_hessian_vector_products (Vector< double > const &Y, DenseMatrix< double > const &C, DenseMatrix< double > &product)

virtual void	fill_in_contribution_to_inner_products (Vector< std::pair< unsigned, unsigned >> const &history_index, Vector< double > &inner_product)

virtual void	fill_in_contribution_to_inner_product_vectors (Vector< unsigned > const &history_index, Vector< Vector< double >> &inner_product_vector)

Protected Member Functions inherited from oomph::FaceElement
void	add_additional_values (const Vector< unsigned > &nadditional_values, const unsigned &id)

Protected Member Functions inherited from oomph::TemplateFreeUnsteadyHeatBaseFaceElement
virtual void	get_flux (const unsigned &ipt, const double &time, const Vector< double > &x, const Vector< double > &n, const double &u, double &flux)

Static Protected Attributes inherited from oomph::FiniteElement
static const unsigned	Default_Initial_Nvalue = 0
	Default value for the number of values at a node. More...

static const double	Node_location_tolerance = 1.0e-14

static const unsigned	N2deriv [] = {0, 1, 3, 6}

Static Protected Attributes inherited from oomph::GeneralisedElement
static DenseMatrix< double >	Dummy_matrix

static std::deque< double * >	Dof_pt_deque

Detailed Description

/////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////// Template-free base class for elements that are illuminated by solar radiation

Constructor & Destructor Documentation

◆ SolarRadiationBase()

oomph::SolarRadiationBase::SolarRadiationBase ( )

inline

Constructor.

   {
    // Don't use tanh profile to smooth solar shadows
    Smoothed_sun_shadow=false;
    
    // Factor for tanh profile to smooth solar shadows
    Alpha_tanh_smooth_sun_shadow=100.0;
    
    // Assign default zero atmospheric radiation fct...
    Atmospheric_radiation_fct_pt=
     &SolarRadiationHelper::Zero_atmospheric_radiation_fct;
    
    // Make space for limiting angles for diffuse radiation
    unsigned n_intpt = integral_pt()->nweight();
    Diffuse_limit_angles.resize(n_intpt);
    for (unsigned i=0;i<n_intpt;i++)
     {
      Diffuse_limit_angles[i].first=0.0;
      Diffuse_limit_angles[i].second=MathematicalConstants::Pi;
     }
   }

References Alpha_tanh_smooth_sun_shadow, Atmospheric_radiation_fct_pt, Diffuse_limit_angles, i, oomph::FiniteElement::integral_pt(), oomph::Integral::nweight(), oomph::MathematicalConstants::Pi, Smoothed_sun_shadow, and oomph::SolarRadiationHelper::Zero_atmospheric_radiation_fct().

Member Function Documentation

◆ alpha_tanh_smooth_sun_shadow()

double oomph::SolarRadiationBase::alpha_tanh_smooth_sun_shadow ( )

inline

Value for tanh smoothing factor (read only – set with enable... fct; only used if enabled!)

  {
   return Alpha_tanh_smooth_sun_shadow;
  }

References Alpha_tanh_smooth_sun_shadow.

Referenced by enable_smoothed_sun_shadow().

◆ atmospheric_radiation()

double oomph::SolarRadiationBase::atmospheric_radiation	(	const unsigned &	intpt,
		const double &	time,
		const Vector< double > &	x,
		const Vector< double > &	n
	)

virtual

Get the atmospheric radiation as fct of integration point index, time, Eulerian coordinate and outer unit normal. Virtual so it can be overloaded in multiphysics problems

 {
  double radiation=0.0;
  unsigned n_dim = this->nodal_dimension();
  double solar_flux_magnitude=0.0;
  Vector<double> solar_flux_unit_vector(n_dim);
  double total_diffuse_radiation=0.0;
  Atmospheric_radiation_fct_pt(time,solar_flux_magnitude,
                               solar_flux_unit_vector,
                               total_diffuse_radiation);
  
  // Diffuse radiation from opening angle
  //-------------------------------------
  double phi_exposed=Diffuse_limit_angles[intpt].second-
   Diffuse_limit_angles[intpt].first;
  if (phi_exposed>0.0)
   {
    radiation+=total_diffuse_radiation*phi_exposed/
     MathematicalConstants::Pi;
    
 #ifdef PARANOID 
    double tol=1.0e-5;
    if (phi_exposed-MathematicalConstants::Pi>tol)
     {
      std::stringstream error_message;
      error_message << "Exposure angle " << phi_exposed
                    << " greater than 180^o at ( "
                    << x[0] << " , " << x[1] << " )\n"
                    << "Actual difference is: " 
                    << phi_exposed-MathematicalConstants::Pi
                    << " which exceeds tolerance " << tol << std::endl;
      //throw 
       OomphLibError(error_message.str(),
                     OOMPH_CURRENT_FUNCTION,
                     OOMPH_EXCEPTION_LOCATION);
     }
 #endif
   }
  
  // Direct radiation (with directional cosine and ignore
  //-----------------------------------------------------
  // shielded bits)
  //---------------
  
  
  // Cos of angle between outer unit normal and direct solar flux
  double cos_angle=-(n[0]*solar_flux_unit_vector[0]+
                     n[1]*solar_flux_unit_vector[1]);
  
  // No further contributions if we're pointing away from the sun
  if (cos_angle>0.0)
   {
    // Angle that the incoming solar radiation makes
    // with the horizontal
    double theta=atan2(solar_flux_unit_vector[0],-solar_flux_unit_vector[1]);
    double phi=0.5*MathematicalConstants::Pi+theta;
    
    
    // Bounding angles of visibility
    double phi_min=Diffuse_limit_angles[intpt].first;
    double phi_max=Diffuse_limit_angles[intpt].second;
    
    // Is the sun visible?
    if (Smoothed_sun_shadow)
     {
      // Smooth shadow
      double tanh_factor=
       0.5*(-tanh(Alpha_tanh_smooth_sun_shadow*(phi-phi_max))
            -tanh(Alpha_tanh_smooth_sun_shadow*(phi_min-phi)));
      radiation+=cos_angle*solar_flux_magnitude*tanh_factor;
     }
    else
     {
      // Hard shadow
      if (phi>phi_min)
       {
        if (phi<phi_max)
         {
          radiation+=cos_angle*solar_flux_magnitude;
         }
       }
     }
   }
  
  return radiation;
 }

References Alpha_tanh_smooth_sun_shadow, atan2(), Atmospheric_radiation_fct_pt, Diffuse_limit_angles, n, oomph::FiniteElement::nodal_dimension(), OOMPH_CURRENT_FUNCTION, OOMPH_EXCEPTION_LOCATION, oomph::MathematicalConstants::Pi, Smoothed_sun_shadow, Eigen::bfloat16_impl::tanh(), BiharmonicTestFunctions2::theta, and plotDoE::x.

Referenced by oomph::StefanBoltzmannUnsteadyHeatFluxElement< ELEMENT >::get_flux(), and output_atmospheric_radiation().

◆ check_quadrant_jump()

void oomph::SolarRadiationBase::check_quadrant_jump	(	const double &	x_prev,
		const double &	y_prev,
		const double &	x_next,
		const double &	y_next,
		bool &	crossing_quadrants,
		int &	n_winding_increment,
		std::string &	error_string,
		bool &	no_problem
	)

private

Private helper function to check if the straight line connecting (x_prev,y_prev) and (x_next,y_next) jumps quadrants (in which case crossing_quadrants is returned as true) and what increment to the winding number this results in. Error (indicated by no_problem being false) occurs if the line crosses the origin exactly in which case we're stuffed. Diagnostics are returned in error string.

 {
  // Sanity check: We have to keep track of winding numbers
  // but we're stuffed if we our discrete increments in coordinates
  // jump diagonally across quadrants...
  std::stringstream error_message;
  no_problem=true;
  crossing_quadrants=false;
  
  // y coordinate of intersection with x axis
  double y_intersect=0.0;
  double denom=x_next-x_prev;
  
  // If denominator is zero then we're intersection exactly
  // at the sample point and we're absolutely screwed. This
  // really shouldn't happen.
  if (denom!=0.0)
   {
    y_intersect=y_prev-(y_next-y_prev)*x_prev/denom;
   }
  if ((x_prev>0.0)&&(y_prev>0.0)&&(x_next<0.0)&&(y_next<0.0))
   {
    crossing_quadrants=true;
    error_message << "Jumped from upper right quadrant to lower left one\n";
    oomph_info    << "Jumped from upper right quadrant to lower left one\n";
    if (y_intersect==0.0)
     {
      error_message << "..and cannot be repaired!\n";
      no_problem=false;
     }
    // Path crosses the positive x axis: No winding
    else if (y_intersect<0.0)
     {
      n_winding_increment=0;
     }
    // Path crosses the negative x axis from above: increase winding number
    else if (y_intersect>0.0)
     {
      n_winding_increment=1;
     }
   }
  else if ((x_prev<0.0)&&(y_prev<0.0)&&(x_next>0.0)&&(y_next>0.0))
   {
    crossing_quadrants=true;
    error_message << "Jumped from lower left quadrant to upper right one\n";
    oomph_info    << "Jumped from lower left quadrant to upper right one\n";
    if (y_intersect==0.0)
     {
      error_message << "..and cannot be repaired!\n";
      no_problem=false;
     }
    // Path crosses the positive x axis: No winding
    else if (y_intersect<0.0)
     {
      n_winding_increment=0;
     }
    // Path crosses the negative x axis from below: reduce winding number
    else if (y_intersect>0.0)
     {
      n_winding_increment=-1;
     }
   }
  else if ((x_prev<0.0)&&(y_prev>0.0)&&(x_next>0.0)&&(y_next<0.0))
   {
    crossing_quadrants=true;
    error_message << "Jumped from upper left quadrant to lower right one\n";
    oomph_info    << "Jumped from upper left quadrant to lower right one\n";
    if (y_intersect==0.0)
     {
      error_message << "..and cannot be repaired!\n";
      no_problem=false;
     }
    // Path crosses the positive x axis: No winding
    else if (y_intersect>0.0)
     {
      n_winding_increment=0;
     }
    // Path crosses the negative x axis from above: increase winding number
    else if (y_intersect<0.0)
     {
      n_winding_increment=1;
     }
   }
  else if ((x_prev>0.0)&&(y_prev<0.0)&&(x_next<0.0)&&(y_next>0.0))
   {
    crossing_quadrants=true;
    error_message << "Jumped from lower right quadrant to upper left one\n";
    oomph_info    << "Jumped from lower right quadrant to upper left one\n";
    if (y_intersect==0.0)
     {
      error_message << "..and cannot be repaired!\n";
      no_problem=false;
     }
    // Path crosses the positive x axis: No winding
    else if (y_intersect>0.0)
     {
      n_winding_increment=0;
     }
    // Path crosses the negative x axis from below: decrease winding number
    else if (y_intersect<0.0)
     {
      n_winding_increment=-1;
     }
   }
 }

References oomph::oomph_info.

Referenced by update_limiting_angles().

◆ disable_smoothed_sun_shadow()

void oomph::SolarRadiationBase::disable_smoothed_sun_shadow ( )

inline

Disable smoothing of shadow.

  {
   Smoothed_sun_shadow=false;
  }

References Smoothed_sun_shadow.

◆ enable_smoothed_sun_shadow()

void oomph::SolarRadiationBase::enable_smoothed_sun_shadow ( const double & alpha_tanh_smooth_sun_shadow = 100.0 )

inline

Enable smoothing of shadow; optional argument provides value for tanh smoothing factor (defaults to 100)

  {
   Smoothed_sun_shadow=true;
   Alpha_tanh_smooth_sun_shadow=alpha_tanh_smooth_sun_shadow;
  }

References alpha_tanh_smooth_sun_shadow(), Alpha_tanh_smooth_sun_shadow, and Smoothed_sun_shadow.

◆ output_atmospheric_radiation()

void oomph::SolarRadiationBase::output_atmospheric_radiation ( std::ostream & outfile )

Output diffuse and direct radiation.

Output illumination angles for all integration points.

 {
  
  // Get time from first node
  double time=node_pt(0)->time_stepper_pt()->time_pt()->time();
  
  //Set the value of n_intpt
  unsigned n_intpt = integral_pt()->nweight();
  
  // Spatial dimension of the nodes
  unsigned n_dim = this->nodal_dimension();
  Vector<double> x(n_dim);
  Vector<double> s(n_dim-1);
  Vector<double> normal(n_dim);
  
  //Loop over the integration points
  for(unsigned ipt=0;ipt<n_intpt;ipt++)
   {
    outfile << "ZONE\n";
  
    // Local coordinate of integration point
    for (unsigned i=0;i<n_dim-1;i++)
     {
      s[i]=integral_pt()->knot(ipt,i);
     }
    
    // No recycling of shape fcts -- may as well call interpolated_x
    // directly
    this->interpolated_x(s,x);
    
    // Get outer unit normal
    this->outer_unit_normal(s,normal);
  
    // Get radiation
    double radiation=atmospheric_radiation(ipt,
                                           time,
                                           x,
                                           normal);
    // output
    outfile << x[0] << " "
            << x[1] << " "
            << radiation << " "
            << normal[0] << " "
            << normal[1] << "\n";
     
   }
 }

References atmospheric_radiation(), i, oomph::FiniteElement::integral_pt(), oomph::FiniteElement::interpolated_x(), oomph::Integral::knot(), oomph::FiniteElement::nodal_dimension(), oomph::FiniteElement::node_pt(), WallFunction::normal(), oomph::Integral::nweight(), oomph::FaceElement::outer_unit_normal(), s, oomph::Time::time(), oomph::TimeStepper::time_pt(), oomph::Data::time_stepper_pt(), and plotDoE::x.

◆ output_diffuse_radiation_cone()

void oomph::SolarRadiationBase::output_diffuse_radiation_cone	(	std::ostream &	outfile,
		const double &	radius
	)

Output cone of diffuse radiation for all integration points.

 {
  //Set the value of n_intpt
  unsigned n_intpt = integral_pt()->nweight();
  
  // Spatial dimension of the nodes
  unsigned n_dim = this->nodal_dimension();
  Vector<double> x(n_dim);
  Vector<double> s(n_dim-1);
  
  //Loop over the integration points
  for(unsigned ipt=0;ipt<n_intpt;ipt++)
   {
    outfile << "ZONE\n";
  
    // Local coordinate of integration point
    for (unsigned i=0;i<n_dim-1;i++)
     {
      s[i]=integral_pt()->knot(ipt,i);
     }
    
    // No recycling of shape fcts -- may as well call interpolated_x
    // directly
    this->interpolated_x(s,x);
    
    double phi_min=Diffuse_limit_angles[ipt].first;
    double phi_max=Diffuse_limit_angles[ipt].second;
    
    if (phi_max>phi_min)
     {
      outfile << x[0]+radius*cos(phi_min) << " "
              << x[1]+radius*sin(phi_min) << "\n"
              << x[0] << " "
              << x[1] << "\n"
              << x[0]+radius*cos(phi_max) << " "
              << x[1]+radius*sin(phi_max) << "\n";
     }
    else
     {
      outfile << x[0] << " "
              << x[1] << "\n"
              << x[0] << " "
              << x[1] << "\n"
              << x[0] << " "
              << x[1] << "\n";
     }
   }
 }

References cos(), Diffuse_limit_angles, i, oomph::FiniteElement::integral_pt(), oomph::FiniteElement::interpolated_x(), oomph::Integral::knot(), oomph::FiniteElement::nodal_dimension(), oomph::Integral::nweight(), UniformPSDSelfTest::radius, s, sin(), and plotDoE::x.

◆ output_diffuse_radiation_cone_max_angle()

void oomph::SolarRadiationBase::output_diffuse_radiation_cone_max_angle	(	std::ostream &	outfile,
		const double &	radius
	)

Output max angle of cone of diffuse radiation for all integration points

 {
  //Set the value of n_intpt
  unsigned n_intpt = integral_pt()->nweight();
  
  // Spatial dimension of the nodes
  unsigned n_dim = this->nodal_dimension();
  Vector<double> x(n_dim);
  Vector<double> s(n_dim-1);
  
  //Loop over the integration points
  for(unsigned ipt=0;ipt<n_intpt;ipt++)
   {
    outfile << "ZONE\n";
  
    // Local coordinate of integration point
    for (unsigned i=0;i<n_dim-1;i++)
     {
      s[i]=integral_pt()->knot(ipt,i);
     }
    
    // No recycling of shape fcts -- may as well call interpolated_x
    // directly
    this->interpolated_x(s,x);
    
    double phi_max=Diffuse_limit_angles[ipt].second;
  
    unsigned nplot=100;
    double fract=0.1;
    for (unsigned j=0;j<nplot;j++)
     {
      double phi=phi_max*double(j)/double(nplot-1);
  
      outfile
       << x[0]+fract*(1.0+0.1*double(j)/double(nplot-1))*radius*cos(phi) << " "
       << x[1]+fract*(1.0+0.1*double(j)/double(nplot-1))*radius*sin(phi) << "\n";
     }
    outfile << x[0] << " "
            << x[1] << "\n"
            << x[0]+radius*cos(phi_max) << " "
            << x[1]+radius*sin(phi_max) << "\n";
  
   }
 }

References cos(), Diffuse_limit_angles, i, oomph::FiniteElement::integral_pt(), oomph::FiniteElement::interpolated_x(), j, oomph::Integral::knot(), oomph::FiniteElement::nodal_dimension(), oomph::Integral::nweight(), UniformPSDSelfTest::radius, s, sin(), and plotDoE::x.

◆ output_diffuse_radiation_cone_min_angle()

void oomph::SolarRadiationBase::output_diffuse_radiation_cone_min_angle	(	std::ostream &	outfile,
		const double &	radius
	)

Output min angle of cone of diffuse radiation for all integration points

 {
  //Set the value of n_intpt
  unsigned n_intpt = integral_pt()->nweight();
  
  // Spatial dimension of the nodes
  unsigned n_dim = this->nodal_dimension();
  Vector<double> x(n_dim);
  Vector<double> s(n_dim-1);
  
  //Loop over the integration points
  for(unsigned ipt=0;ipt<n_intpt;ipt++)
   {
    outfile << "ZONE\n";
  
    // Local coordinate of integration point
    for (unsigned i=0;i<n_dim-1;i++)
     {
      s[i]=integral_pt()->knot(ipt,i);
     }
    
    // No recycling of shape fcts -- may as well call interpolated_x
    // directly
    this->interpolated_x(s,x);
    
    double phi_min=Diffuse_limit_angles[ipt].first;
  
    unsigned nplot=100;
    double fract=0.13;
    for (unsigned j=0;j<nplot;j++)
     {
      double phi=phi_min*double(j)/double(nplot-1);
      
      outfile 
       << x[0]+fract*(1.0+0.1*double(j)/double(nplot-1))*radius*cos(phi) << " "
       << x[1]+fract*(1.0+0.1*double(j)/double(nplot-1))*radius*sin(phi) << "\n";
     }
    outfile << x[0] << " "
            << x[1] << "\n"
            << x[0]+radius*cos(phi_min) << " "
            << x[1]+radius*sin(phi_min) << "\n";
  
   }
 }

References cos(), Diffuse_limit_angles, i, oomph::FiniteElement::integral_pt(), oomph::FiniteElement::interpolated_x(), j, oomph::Integral::knot(), oomph::FiniteElement::nodal_dimension(), oomph::Integral::nweight(), UniformPSDSelfTest::radius, s, sin(), and plotDoE::x.

◆ output_limiting_angles()

void oomph::SolarRadiationBase::output_limiting_angles ( std::ostream & outfile )

Output illumination angles for all integration points.

 {
  //Set the value of n_intpt
  unsigned n_intpt = integral_pt()->nweight();
  
  // Spatial dimension of the nodes
  unsigned n_dim = this->nodal_dimension();
  Vector<double> x(n_dim);
  Vector<double> s(n_dim-1);
  Vector<double> normal(n_dim);
  
  //Loop over the integration points
  for(unsigned ipt=0;ipt<n_intpt;ipt++)
   {
    outfile << "ZONE\n";
  
    // Local coordinate of integration point
    for (unsigned i=0;i<n_dim-1;i++)
     {
      s[i]=integral_pt()->knot(ipt,i);
     }
    
    // No recycling of shape fcts -- may as well call interpolated_x
    // directly
    this->interpolated_x(s,x);
    
    // Get outer unit normal
    this->outer_unit_normal(s,normal);
  
    double phi_min=Diffuse_limit_angles[ipt].first;
    double phi_max=Diffuse_limit_angles[ipt].second;
    
    outfile << x[0] << " "
            << x[1] << " "
            << normal[0] << " "
            << normal[1] << " "
            << phi_min << " "
            << phi_max << "\n";
     
   }
 }

References Diffuse_limit_angles, i, oomph::FiniteElement::integral_pt(), oomph::FiniteElement::interpolated_x(), oomph::Integral::knot(), oomph::FiniteElement::nodal_dimension(), WallFunction::normal(), oomph::Integral::nweight(), oomph::FaceElement::outer_unit_normal(), s, and plotDoE::x.

◆ smoothed_sun_shadow_is_enabled()

bool oomph::SolarRadiationBase::smoothed_sun_shadow_is_enabled ( )

inline

Disable smoothing of shadow.

  {
   return Smoothed_sun_shadow;
  }

References Smoothed_sun_shadow.

◆ update_limiting_angles()

void oomph::SolarRadiationBase::update_limiting_angles ( const Vector< Node * > & shielding_node_pt )

Update limiting angles for diffuse radiation, given the pointers to nodes that make up the "upper boundary" that can potentially shield the integration points from diffuse radiation

Update limiting angles for diffuse radiation, given the Vector of pointers to nodes that make up the "upper boundary" that can potentially shield the integration points from diffuse radiation

 {
  
  // Search through all shielding nodes and find the
  // bounding ones for this element
  Node* first_vertex_node_pt=node_pt(0);
  unsigned nnod_el=nnode();
  Node* second_vertex_node_pt=node_pt(nnod_el-1);
  
  // Find left and rightmost node of element in shielding_node_pt vector:
  unsigned j_left=0;
  bool found=false;
  unsigned nnod=shielding_node_pt.size();
  for (unsigned j=0;j<nnod;j++)
   {
    // We come from the left so we're definitely meeting the leftmost
    // node
    if ((shielding_node_pt[j]==first_vertex_node_pt)||
        (shielding_node_pt[j]==second_vertex_node_pt))
     {
      j_left=j;
      found=true;
      break;
     }
   }
  unsigned j_right=j_left+1;
  
  // Did we succeed?
  if (!found)
   {
    throw OomphLibError("Failed to find leftmost node in shielding_node_pt",
                        OOMPH_CURRENT_FUNCTION,
                        OOMPH_EXCEPTION_LOCATION);
   }
  
  //Set the value of n_intpt
  unsigned n_intpt = integral_pt()->nweight();
  
  // Spatial dimension of the nodes
  unsigned n_dim = this->nodal_dimension();
  Vector<double> x(n_dim);
  Vector<double> s(n_dim-1);
  
  //Loop over the integration points
  for(unsigned ipt=0;ipt<n_intpt;ipt++)
   {
  
    // Local coordinate of integration point
    for (unsigned i=0;i<n_dim-1;i++)
     {
      s[i]=integral_pt()->knot(ipt,i);
     }
  
    // No recycling of shape fcts -- may as well call interpolated_x
    // directly
    this->interpolated_x(s,x);
  
    oomph_info << "Integration point: " <<  x[0] << " " << x[1] << std::endl;
     
    // Loop over all potential shielding nodes to the left to find
    // minimum angle
    int n_winding=0;
  
    // Initial point
    Node* nod_pt=shielding_node_pt[0];
  
    // Coordinate relative to sampling point
    double x_prev=nod_pt->x(0)-x[0];
    double y_prev=nod_pt->x(1)-x[1];
  
 #ifdef PARANOID
    // Check that initial point is to the left of current point
    // for calibration purposes...
    if (x_prev>0.0)
     {
      throw OomphLibError(
       "Leftmost point in shielding nodes is not to the left of current int pt",
       OOMPH_CURRENT_FUNCTION,      
       OOMPH_EXCEPTION_LOCATION);
     }
 #endif
  
    // Angle against x-axis relative to sampling point
    double phi_prev=atan2(y_prev,x_prev);
  
    oomph_info << "Vertex point " <<  0 << " : " 
               <<  nod_pt->x(0) << " " << nod_pt->x(1) 
               << " phi_raw: " << phi_prev;
    oomph_info << " wind1 " << n_winding << " ";
  
    // Want a positive angle!
    if (phi_prev<0.0)
     {
      n_winding+=1;
      phi_prev+=2.0*MathematicalConstants::Pi;
     }
  
    oomph_info << " wind2 " << n_winding << " ";
    oomph_info << " phi_adj: " << phi_prev << std::endl;
  
  
    // Current best guess for minimum angle to the left
    double phi_left=phi_prev;
  
  
  
    // Loop over all other nodes
    for (unsigned j=1;j<=j_left;j++)
     {
      Node* nod_pt=shielding_node_pt[j];
      double x_next=nod_pt->x(0)-x[0];
      double y_next=nod_pt->x(1)-x[1];
      double phi_next=atan2(y_next,x_next);
      
      oomph_info << "Vertex point " << j << " : " 
                 <<  nod_pt->x(0) << " " << nod_pt->x(1) 
                 << " phi_raw: " << phi_next;
      
      // Sanity check: We have to keep track of winding numbers
      // but we're stuffed if we our discrete increments in coordinates
      // jump diagonally across quadrants...
      std::string error_string;
      bool no_problem=true;
      bool crossing_quadrants=false;
      int n_winding_increment=0;
  
      // Check if we've crossed quadrants
      check_quadrant_jump(x_prev,
                          y_prev,
                          x_next,
                          y_next,
                          crossing_quadrants,
                          n_winding_increment,
                          error_string,
                          no_problem);
  
      // Success?
      if (no_problem)
       {
        n_winding+=n_winding_increment;
       }
      // Complain bitterly
      else
       {
        std::stringstream error_message;
        error_message << error_string;
        error_message << "\n x/y_prev, x/y_next:"
                      << x_prev << " "
                      << y_prev << " "
                      << x_next << " "
                      << y_next << " "<< std::endl;
        error_message << "for point at "
                      << x[0] << " " << x[1] << std::endl;
        error_message << "chain of shielding nodes on left:\n";
        for (unsigned jj=1;jj<=j_left;jj++)
         {
          Node* nnod_pt=shielding_node_pt[jj];
          error_message << nnod_pt->x(0) << " "
                        << nnod_pt->x(1) << "\n";
         }
        throw OomphLibError(error_message.str(),
                            OOMPH_CURRENT_FUNCTION,
                            OOMPH_EXCEPTION_LOCATION);
       }
  
      oomph_info << " wind1 " << n_winding << " ";
  
      // If we're crossing the x axis to the left of the origin
      // without jumping across quadrants we
      // have to adjust the winding number
      if (!crossing_quadrants)
       {
        if ((x_prev<0.0)&&(x_next<0.0))
         {
          if ((y_prev>=0.0)&&(y_next<0.0))
           {
            n_winding+=1;
           }
          else if ((y_prev<0.0)&&(y_next>=0.0))
           {
            n_winding-=1;
           }
         }
       }
  
      
      // Correct angle by winding
      phi_next+=double(n_winding)*2.0*MathematicalConstants::Pi;
       
      oomph_info << " wind2 " << n_winding << " ";
      oomph_info << " phi_adj: " << phi_next << std::endl;
  
      // Is it smaller?
      if (phi_next<phi_left)
       {
        phi_left=phi_next;
       }
      
      // Bump up
      x_prev=x_next;
      y_prev=y_next;
      phi_prev=phi_next;
     }
  
  
    // Loop over all potential shielding nodes to the right to find
    // maximum angle
    n_winding=0;
  
    // Initial point
    nod_pt=shielding_node_pt[nnod-1];
  
    // Coordinate relative to sampling point
    x_prev=nod_pt->x(0)-x[0];
    y_prev=nod_pt->x(1)-x[1];
  
 #ifdef PARANOID
    // Check that initial point is to the right of current point
    // for calibration purposes...
    if (x_prev<0.0)
     {
      throw OomphLibError(
       "Rightmost point in shielding nodes is not to the right of current int pt",
       OOMPH_CURRENT_FUNCTION,      
       OOMPH_EXCEPTION_LOCATION);
     }
 #endif
  
    // Angle against x-axis relative to sampling point
    phi_prev=atan2(y_prev,x_prev);
  
    // Current best guess for maximum angle to the right
    double phi_right=phi_prev;
    
    // Loop over all other nodes
    //for (unsigned j=j_right+1;j<nnod;j++)
    for (unsigned j=nnod-2;j>=j_right;j--)
     {
      Node* nod_pt=shielding_node_pt[j];
      double x_next=nod_pt->x(0)-x[0];
      double y_next=nod_pt->x(1)-x[1];
      double phi_next=atan2(y_next,x_next);
  
      // Sanity check: We have to keep track of winding numbers
      // but we're stuffed if we our discrete increments in coordinates
      // jump diagonally across quadrants...
      std::string error_string;
      bool no_problem=true;
      bool crossing_quadrants=false;
      int n_winding_increment=0;
  
      // Check if we've crossed quadrants
      check_quadrant_jump(x_prev,
                          y_prev,
                          x_next,
                          y_next,
                          crossing_quadrants,
                          n_winding_increment,
                          error_string,
                          no_problem);
  
      // Success?
      if (no_problem)
       {
        n_winding+=n_winding_increment;
       }
      // Complain bitterly
      else
       {
        std::stringstream error_message;
        error_message << error_string;
        error_message << "\n x/y_prev, x/y_next:"
                      << x_prev << " "
                      << y_prev << " "
                      << x_next << " "
                      << y_next << " "<< std::endl;
        error_message << "for point at "
                      << x[0] << " " << x[1] << std::endl;
        error_message << "chain of shielding nodes on right:\n";
        for (unsigned jj=j_right;jj<nnod;jj++)
         {
          Node* nnod_pt=shielding_node_pt[jj];
          error_message << nnod_pt->x(0) << " "
                        << nnod_pt->x(1) << "\n";
         }
        throw OomphLibError(error_message.str(),
                            OOMPH_CURRENT_FUNCTION,
                            OOMPH_EXCEPTION_LOCATION);
       }
      
      
      // If we're crossing the x axis to the left of the origin
      // without jumping across quadrants we
      // have to adjust the winding number
      if (!crossing_quadrants)
       {
        if ((x_prev<0.0)&&(x_next<0.0))
         {
          if ((y_prev>=0.0)&&(y_next<0.0))
           {
            n_winding+=1;
           }
          else if ((y_prev<0.0)&&(y_next>=0.0))
           {
            n_winding-=1;
           }
         }
       }
      
      // Correct angle by winding
      phi_next+=double(n_winding)*2.0*MathematicalConstants::Pi;
  
      // Is it bigger?
      if (phi_next>phi_right)
       {
        phi_right=phi_next;
       }
      
      // Bump up
      x_prev=x_next;
      y_prev=y_next;
      phi_prev=phi_next;
     }
  
 //---
  
    Diffuse_limit_angles[ipt].first=phi_right;
    Diffuse_limit_angles[ipt].second=phi_left;
   }
 }

References atan2(), check_quadrant_jump(), Diffuse_limit_angles, MergeRestartFiles::found, i, oomph::FiniteElement::integral_pt(), oomph::FiniteElement::interpolated_x(), j, oomph::Integral::knot(), oomph::FiniteElement::nnode(), oomph::FiniteElement::nodal_dimension(), oomph::FiniteElement::node_pt(), oomph::Integral::nweight(), OOMPH_CURRENT_FUNCTION, OOMPH_EXCEPTION_LOCATION, oomph::oomph_info, oomph::MathematicalConstants::Pi, s, oomph::Global_string_for_annotation::string(), plotDoE::x, and oomph::Node::x().

Member Data Documentation

◆ Alpha_tanh_smooth_sun_shadow

double oomph::SolarRadiationBase::Alpha_tanh_smooth_sun_shadow

protected

Factor for tanh profile to smooth solar shadows.

Referenced by alpha_tanh_smooth_sun_shadow(), atmospheric_radiation(), enable_smoothed_sun_shadow(), and SolarRadiationBase().

◆ atmospheric_radiation_fct_pt

void(* &)(const double& time, double &solar_flux_magnitude, Vector<double>& solar_flux_unit_vector, double& total_diffuse_radiation) oomph::SolarRadiationBase::atmospheric_radiation_fct_pt()

inline

Reference to the atmospheric radiation function pointer.

214 {return Atmospheric_radiation_fct_pt;}

Referenced by SolarRadiationProblem< ELEMENT >::complete_problem_setup().

◆ Atmospheric_radiation_fct_pt

void(* oomph::SolarRadiationBase::Atmospheric_radiation_fct_pt) (const double &time, double &solar_flux_magnitude, Vector< double > &solar_flux_unit_vector, double &total_diffuse_radiation)

protected

Pointer to function that specifies atmospheric radiation in terms of directional solar flux (unit vector and magnitude) and total diffusive radiation (which is later weighted by diffuse limiting angles). Input argument: time.

Referenced by atmospheric_radiation(), and SolarRadiationBase().

◆ Diffuse_limit_angles

Vector<std::pair<double,double> > oomph::SolarRadiationBase::Diffuse_limit_angles

protected

Vector of pairs storing max. and minimum angle for exposure to diffuse atmospheric radiation for each integration point. Initialised to 0 and pi (full radiation from semicircle above integration point)

Referenced by atmospheric_radiation(), output_diffuse_radiation_cone(), output_diffuse_radiation_cone_max_angle(), output_diffuse_radiation_cone_min_angle(), output_limiting_angles(), SolarRadiationBase(), and update_limiting_angles().

◆ Smoothed_sun_shadow

bool oomph::SolarRadiationBase::Smoothed_sun_shadow

protected

Use tanh profile to smooth solar shadows.

Referenced by atmospheric_radiation(), disable_smoothed_sun_shadow(), enable_smoothed_sun_shadow(), smoothed_sun_shadow_is_enabled(), and SolarRadiationBase().

The documentation for this class was generated from the following file:

temporary_stefan_boltzmann_elements.h

Public Member Functions

Public Attributes

Protected Attributes

Private Member Functions

Additional Inherited Members

Detailed Description

Constructor & Destructor Documentation

◆ SolarRadiationBase()

Member Function Documentation

◆ alpha_tanh_smooth_sun_shadow()

◆ atmospheric_radiation()

◆ check_quadrant_jump()

◆ disable_smoothed_sun_shadow()

◆ enable_smoothed_sun_shadow()

◆ output_atmospheric_radiation()

◆ output_diffuse_radiation_cone()

◆ output_diffuse_radiation_cone_max_angle()

◆ output_diffuse_radiation_cone_min_angle()

◆ output_limiting_angles()

◆ smoothed_sun_shadow_is_enabled()

◆ update_limiting_angles()

Member Data Documentation

◆ Alpha_tanh_smooth_sun_shadow

◆ atmospheric_radiation_fct_pt

◆ Atmospheric_radiation_fct_pt

◆ Diffuse_limit_angles

◆ Smoothed_sun_shadow