Melt spinning axisymmetric fluid interface problem in rectangular domain. More...

Inheritance diagram for MeltSpinningProblem< ELEMENT >:

Public Member Functions
	MeltSpinningProblem (const unsigned &n_r, const unsigned &n_z, const double &l_r, const double &h)
	Constructor for melt spinning axisymmetric fluid problem. More...

	~MeltSpinningProblem ()
	Destructor (empty) More...

void	actions_before_newton_convergence_check ()

void	doc_solution (DocInfo &doc_info)
	Doc the solution. More...

void	steady_run ()
	Do steady run. More...

Public Member Functions inherited from oomph::Problem
virtual void	debug_hook_fct (const unsigned &i)

void	set_analytic_dparameter (double *const &parameter_pt)

void	unset_analytic_dparameter (double *const &parameter_pt)

bool	is_dparameter_calculated_analytically (double *const &parameter_pt)

void	set_analytic_hessian_products ()

void	unset_analytic_hessian_products ()

bool	are_hessian_products_calculated_analytically ()

void	set_pinned_values_to_zero ()

bool	distributed () const

virtual void	actions_before_adapt ()

virtual void	actions_after_adapt ()
	Actions that are to be performed after a mesh adaptation. More...

OomphCommunicator *	communicator_pt ()
	access function to the oomph-lib communicator More...

const OomphCommunicator *	communicator_pt () const
	access function to the oomph-lib communicator, const version More...

	Problem ()

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

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

virtual	~Problem ()
	Virtual destructor to clean up memory. More...

Mesh *&	mesh_pt ()
	Return a pointer to the global mesh. More...

Mesh *const &	mesh_pt () const
	Return a pointer to the global mesh (const version) More...

Mesh *&	mesh_pt (const unsigned &imesh)

Mesh *const &	mesh_pt (const unsigned &imesh) const
	Return a pointer to the i-th submesh (const version) More...

unsigned	nsub_mesh () const
	Return number of submeshes. More...

unsigned	add_sub_mesh (Mesh *const &mesh_pt)

void	flush_sub_meshes ()

void	build_global_mesh ()

void	rebuild_global_mesh ()

LinearSolver *&	linear_solver_pt ()
	Return a pointer to the linear solver object. More...

LinearSolver *const &	linear_solver_pt () const
	Return a pointer to the linear solver object (const version) More...

LinearSolver *&	mass_matrix_solver_for_explicit_timestepper_pt ()

LinearSolver *	mass_matrix_solver_for_explicit_timestepper_pt () const

EigenSolver *&	eigen_solver_pt ()
	Return a pointer to the eigen solver object. More...

EigenSolver *const &	eigen_solver_pt () const
	Return a pointer to the eigen solver object (const version) More...

Time *&	time_pt ()
	Return a pointer to the global time object. More...

Time *	time_pt () const
	Return a pointer to the global time object (const version). More...

double &	time ()
	Return the current value of continuous time. More...

double	time () const
	Return the current value of continuous time (const version) More...

TimeStepper *&	time_stepper_pt ()

const TimeStepper *	time_stepper_pt () const

TimeStepper *&	time_stepper_pt (const unsigned &i)
	Return a pointer to the i-th timestepper. More...

ExplicitTimeStepper *&	explicit_time_stepper_pt ()
	Return a pointer to the explicit timestepper. More...

unsigned long	set_timestepper_for_all_data (TimeStepper *const &time_stepper_pt, const bool &preserve_existing_data=false)

virtual void	shift_time_values ()
	Shift all values along to prepare for next timestep. More...

AssemblyHandler *&	assembly_handler_pt ()
	Return a pointer to the assembly handler object. More...

AssemblyHandler *const &	assembly_handler_pt () const
	Return a pointer to the assembly handler object (const version) More...

double &	minimum_dt ()
	Access function to min timestep in adaptive timestepping. More...

double &	maximum_dt ()
	Access function to max timestep in adaptive timestepping. More...

unsigned &	max_newton_iterations ()
	Access function to max Newton iterations before giving up. More...

void	problem_is_nonlinear (const bool &prob_lin)
	Access function to Problem_is_nonlinear. More...

double &	max_residuals ()

bool &	time_adaptive_newton_crash_on_solve_fail ()
	Access function for Time_adaptive_newton_crash_on_solve_fail. More...

double &	newton_solver_tolerance ()

void	add_time_stepper_pt (TimeStepper *const &time_stepper_pt)

void	set_explicit_time_stepper_pt (ExplicitTimeStepper *const &explicit_time_stepper_pt)

void	initialise_dt (const double &dt)

void	initialise_dt (const Vector< double > &dt)

Data *&	global_data_pt (const unsigned &i)
	Return a pointer to the the i-th global data object. More...

void	add_global_data (Data *const &global_data_pt)

void	flush_global_data ()

LinearAlgebraDistribution *const &	dof_distribution_pt () const
	Return the pointer to the dof distribution (read-only) More...

unsigned long	ndof () const
	Return the number of dofs. More...

unsigned	ntime_stepper () const
	Return the number of time steppers. More...

unsigned	nglobal_data () const
	Return the number of global data values. More...

unsigned	self_test ()
	Self-test: Check meshes and global data. Return 0 for OK. More...

void	enable_store_local_dof_pt_in_elements ()

void	disable_store_local_dof_pt_in_elements ()

unsigned long	assign_eqn_numbers (const bool &assign_local_eqn_numbers=true)

void	describe_dofs (std::ostream &out= *(oomph_info.stream_pt())) const

void	enable_discontinuous_formulation ()

void	disable_discontinuous_formulation ()

void	get_dofs (DoubleVector &dofs) const

void	get_dofs (const unsigned &t, DoubleVector &dofs) const
	Return vector of the t'th history value of all dofs. More...

void	set_dofs (const DoubleVector &dofs)
	Set the values of the dofs. More...

void	set_dofs (const unsigned &t, DoubleVector &dofs)
	Set the history values of the dofs. More...

void	set_dofs (const unsigned &t, Vector< double * > &dof_pt)

void	add_to_dofs (const double &lambda, const DoubleVector &increment_dofs)
	Add lambda x incremenet_dofs[l] to the l-th dof. More...

double *	global_dof_pt (const unsigned &i)

double &	dof (const unsigned &i)
	i-th dof in the problem More...

double	dof (const unsigned &i) const
	i-th dof in the problem (const version) More...

double *&	dof_pt (const unsigned &i)
	Pointer to i-th dof in the problem. More...

double *	dof_pt (const unsigned &i) const
	Pointer to i-th dof in the problem (const version) More...

virtual void	get_inverse_mass_matrix_times_residuals (DoubleVector &Mres)

virtual void	get_dvaluesdt (DoubleVector &f)

virtual void	get_residuals (DoubleVector &residuals)
	Get the total residuals Vector for the problem. More...

virtual void	get_jacobian (DoubleVector &residuals, DenseDoubleMatrix &jacobian)

virtual void	get_jacobian (DoubleVector &residuals, CRDoubleMatrix &jacobian)

virtual void	get_jacobian (DoubleVector &residuals, CCDoubleMatrix &jacobian)

virtual void	get_jacobian (DoubleVector &residuals, SumOfMatrices &jacobian)

void	get_fd_jacobian (DoubleVector &residuals, DenseMatrix< double > &jacobian)
	Get the full Jacobian by finite differencing. More...

void	get_derivative_wrt_global_parameter (double *const &parameter_pt, DoubleVector &result)

void	get_hessian_vector_products (DoubleVectorWithHaloEntries const &Y, Vector< DoubleVectorWithHaloEntries > const &C, Vector< DoubleVectorWithHaloEntries > &product)

void	solve_eigenproblem (const unsigned &n_eval, Vector< std::complex< double >> &eigenvalue, Vector< DoubleVector > &eigenvector, const bool &steady=true)
	Solve the eigenproblem. More...

void	solve_eigenproblem (const unsigned &n_eval, Vector< std::complex< double >> &eigenvalue, const bool &steady=true)

virtual void	get_eigenproblem_matrices (CRDoubleMatrix &mass_matrix, CRDoubleMatrix &main_matrix, const double &shift=0.0)

void	assign_eigenvector_to_dofs (DoubleVector &eigenvector)
	Assign the eigenvector passed to the function to the dofs. More...

void	add_eigenvector_to_dofs (const double &epsilon, const DoubleVector &eigenvector)

void	store_current_dof_values ()
	Store the current values of the degrees of freedom. More...

void	restore_dof_values ()
	Restore the stored values of the degrees of freedom. More...

void	enable_jacobian_reuse ()

void	disable_jacobian_reuse ()
	Disable recycling of Jacobian in Newton iteration. More...

bool	jacobian_reuse_is_enabled ()
	Is recycling of Jacobian in Newton iteration enabled? More...

bool &	use_predictor_values_as_initial_guess ()

void	newton_solve ()
	Use Newton method to solve the problem. More...

void	enable_globally_convergent_newton_method ()
	enable globally convergent Newton method More...

void	disable_globally_convergent_newton_method ()
	disable globally convergent Newton method More...

void	newton_solve (unsigned const &max_adapt)

void	steady_newton_solve (unsigned const &max_adapt=0)

void	copy (Problem *orig_problem_pt)

virtual Problem *	make_copy ()

virtual void	read (std::ifstream &restart_file, bool &unsteady_restart)

virtual void	read (std::ifstream &restart_file)

virtual void	dump (std::ofstream &dump_file) const

void	dump (const std::string &dump_file_name) const

void	delete_all_external_storage ()

virtual void	symmetrise_eigenfunction_for_adaptive_pitchfork_tracking ()

double *	bifurcation_parameter_pt () const

void	get_bifurcation_eigenfunction (Vector< DoubleVector > &eigenfunction)

void	activate_fold_tracking (double *const &parameter_pt, const bool &block_solve=true)

void	activate_bifurcation_tracking (double *const &parameter_pt, const DoubleVector &eigenvector, const bool &block_solve=true)

void	activate_bifurcation_tracking (double *const &parameter_pt, const DoubleVector &eigenvector, const DoubleVector &normalisation, const bool &block_solve=true)

void	activate_pitchfork_tracking (double *const &parameter_pt, const DoubleVector &symmetry_vector, const bool &block_solve=true)

void	activate_hopf_tracking (double *const &parameter_pt, const bool &block_solve=true)

void	activate_hopf_tracking (double *const &parameter_pt, const double &omega, const DoubleVector &null_real, const DoubleVector &null_imag, const bool &block_solve=true)

void	deactivate_bifurcation_tracking ()

void	reset_assembly_handler_to_default ()
	Reset the system to the standard non-augemented state. More...

double	arc_length_step_solve (double *const &parameter_pt, const double &ds, const unsigned &max_adapt=0)

double	arc_length_step_solve (Data *const &data_pt, const unsigned &data_index, const double &ds, const unsigned &max_adapt=0)

void	reset_arc_length_parameters ()

int &	sign_of_jacobian ()

void	explicit_timestep (const double &dt, const bool &shift_values=true)
	Take an explicit timestep of size dt. More...

void	unsteady_newton_solve (const double &dt)

void	unsteady_newton_solve (const double &dt, const bool &shift_values)

void	unsteady_newton_solve (const double &dt, const unsigned &max_adapt, const bool &first, const bool &shift=true)

double	doubly_adaptive_unsteady_newton_solve (const double &dt, const double &epsilon, const unsigned &max_adapt, const bool &first, const bool &shift=true)

double	doubly_adaptive_unsteady_newton_solve (const double &dt, const double &epsilon, const unsigned &max_adapt, const unsigned &suppress_resolve_after_spatial_adapt_flag, const bool &first, const bool &shift=true)

double	adaptive_unsteady_newton_solve (const double &dt_desired, const double &epsilon)

double	adaptive_unsteady_newton_solve (const double &dt_desired, const double &epsilon, const bool &shift_values)

void	assign_initial_values_impulsive ()

void	assign_initial_values_impulsive (const double &dt)

void	calculate_predictions ()
	Calculate predictions. More...

void	enable_mass_matrix_reuse ()

void	disable_mass_matrix_reuse ()

bool	mass_matrix_reuse_is_enabled ()
	Return whether the mass matrix is being reused. More...

void	refine_uniformly (const Vector< unsigned > &nrefine_for_mesh)

void	refine_uniformly (const Vector< unsigned > &nrefine_for_mesh, DocInfo &doc_info)

void	refine_uniformly_and_prune (const Vector< unsigned > &nrefine_for_mesh)

void	refine_uniformly_and_prune (const Vector< unsigned > &nrefine_for_mesh, DocInfo &doc_info)

void	refine_uniformly (DocInfo &doc_info)

void	refine_uniformly_and_prune (DocInfo &doc_info)

void	refine_uniformly ()

void	refine_uniformly (const unsigned &i_mesh, DocInfo &doc_info)
	Do uniform refinement for submesh i_mesh with documentation. More...

void	refine_uniformly (const unsigned &i_mesh)
	Do uniform refinement for submesh i_mesh without documentation. More...

void	p_refine_uniformly (const Vector< unsigned > &nrefine_for_mesh)

void	p_refine_uniformly (const Vector< unsigned > &nrefine_for_mesh, DocInfo &doc_info)

void	p_refine_uniformly_and_prune (const Vector< unsigned > &nrefine_for_mesh)

void	p_refine_uniformly_and_prune (const Vector< unsigned > &nrefine_for_mesh, DocInfo &doc_info)

void	p_refine_uniformly (DocInfo &doc_info)

void	p_refine_uniformly_and_prune (DocInfo &doc_info)

void	p_refine_uniformly ()

void	p_refine_uniformly (const unsigned &i_mesh, DocInfo &doc_info)
	Do uniform p-refinement for submesh i_mesh with documentation. More...

void	p_refine_uniformly (const unsigned &i_mesh)
	Do uniform p-refinement for submesh i_mesh without documentation. More...

void	refine_selected_elements (const Vector< unsigned > &elements_to_be_refined)

void	refine_selected_elements (const Vector< RefineableElement * > &elements_to_be_refined_pt)

void	refine_selected_elements (const unsigned &i_mesh, const Vector< unsigned > &elements_to_be_refined)

void	refine_selected_elements (const unsigned &i_mesh, const Vector< RefineableElement * > &elements_to_be_refined_pt)

void	refine_selected_elements (const Vector< Vector< unsigned >> &elements_to_be_refined)

void	refine_selected_elements (const Vector< Vector< RefineableElement * >> &elements_to_be_refined_pt)

void	p_refine_selected_elements (const Vector< unsigned > &elements_to_be_refined)

void	p_refine_selected_elements (const Vector< PRefineableElement * > &elements_to_be_refined_pt)

void	p_refine_selected_elements (const unsigned &i_mesh, const Vector< unsigned > &elements_to_be_refined)

void	p_refine_selected_elements (const unsigned &i_mesh, const Vector< PRefineableElement * > &elements_to_be_refined_pt)

void	p_refine_selected_elements (const Vector< Vector< unsigned >> &elements_to_be_refined)

void	p_refine_selected_elements (const Vector< Vector< PRefineableElement * >> &elements_to_be_refined_pt)

unsigned	unrefine_uniformly ()

unsigned	unrefine_uniformly (const unsigned &i_mesh)

void	p_unrefine_uniformly (DocInfo &doc_info)

void	p_unrefine_uniformly (const unsigned &i_mesh, DocInfo &doc_info)
	Do uniform p-unrefinement for submesh i_mesh without documentation. More...

void	adapt (unsigned &n_refined, unsigned &n_unrefined)

void	adapt ()

void	p_adapt (unsigned &n_refined, unsigned &n_unrefined)

void	p_adapt ()

void	adapt_based_on_error_estimates (unsigned &n_refined, unsigned &n_unrefined, Vector< Vector< double >> &elemental_error)

void	adapt_based_on_error_estimates (Vector< Vector< double >> &elemental_error)

void	get_all_error_estimates (Vector< Vector< double >> &elemental_error)

void	doc_errors (DocInfo &doc_info)
	Get max and min error for all elements in submeshes. More...

void	doc_errors ()
	Get max and min error for all elements in submeshes. More...

void	enable_info_in_newton_solve ()

void	disable_info_in_newton_solve ()
	Disable the output of information when in the newton solver. More...

Public Member Functions inherited from oomph::ExplicitTimeSteppableObject
	ExplicitTimeSteppableObject ()
	Empty constructor. More...

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

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

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

virtual void	actions_before_explicit_stage ()

virtual void	actions_after_explicit_stage ()

Private Member Functions
void	actions_before_newton_solve ()

void	actions_after_newton_solve ()

void	deform_free_surface (const double &Dr)
	Deform the mesh/free surface to a prescribed function. More...

Private Attributes
HorizontalSingleLayerSpineMesh< ELEMENT > *	Bulk_mesh_pt
	Access function for the specific mesh. More...

Mesh *	Interface_mesh_pt
	Mesh for the interface elements. More...

double	Lr
	Width of domain. More...

double	Height
	Height of the domain. More...

Additional Inherited Members
Public Types inherited from oomph::Problem
typedef void(*	SpatialErrorEstimatorFctPt) (Mesh *&mesh_pt, Vector< double > &elemental_error)
	Function pointer for spatial error estimator. More...

typedef void(*	SpatialErrorEstimatorWithDocFctPt) (Mesh *&mesh_pt, Vector< double > &elemental_error, DocInfo &doc_info)
	Function pointer for spatial error estimator with doc. More...

Public Attributes inherited from oomph::Problem
bool	Shut_up_in_newton_solve

Static Public Attributes inherited from oomph::Problem
static bool	Suppress_warning_about_actions_before_read_unstructured_meshes

Protected Types inherited from oomph::Problem
enum	Assembly_method { Perform_assembly_using_vectors_of_pairs , Perform_assembly_using_two_vectors , Perform_assembly_using_maps , Perform_assembly_using_lists , Perform_assembly_using_two_arrays }
	Enumerated flags to determine which sparse assembly method is used. More...

Protected Member Functions inherited from oomph::Problem
unsigned	setup_element_count_per_dof ()

virtual void	sparse_assemble_row_or_column_compressed (Vector< int * > &column_or_row_index, Vector< int * > &row_or_column_start, Vector< double * > &value, Vector< unsigned > &nnz, Vector< double * > &residual, bool compressed_row_flag)

virtual void	actions_before_newton_step ()

virtual void	actions_after_newton_step ()

virtual void	actions_before_implicit_timestep ()

virtual void	actions_after_implicit_timestep ()

virtual void	actions_after_implicit_timestep_and_error_estimation ()

virtual void	actions_before_explicit_timestep ()
	Actions that should be performed before each explicit time step. More...

virtual void	actions_after_explicit_timestep ()
	Actions that should be performed after each explicit time step. More...

virtual void	actions_before_read_unstructured_meshes ()

virtual void	actions_after_read_unstructured_meshes ()

virtual void	actions_after_change_in_global_parameter (double *const &parameter_pt)

virtual void	actions_after_change_in_bifurcation_parameter ()

virtual void	actions_after_parameter_increase (double *const &parameter_pt)

double &	dof_derivative (const unsigned &i)

double &	dof_current (const unsigned &i)

virtual void	set_initial_condition ()

virtual double	global_temporal_error_norm ()

unsigned	newton_solve_continuation (double *const &parameter_pt)

unsigned	newton_solve_continuation (double *const &parameter_pt, DoubleVector &z)

void	calculate_continuation_derivatives (double *const &parameter_pt)

void	calculate_continuation_derivatives (const DoubleVector &z)

void	calculate_continuation_derivatives_fd (double *const &parameter_pt)

bool	does_pointer_correspond_to_problem_data (double *const &parameter_pt)

void	set_consistent_pinned_values_for_continuation ()

Protected Attributes inherited from oomph::Problem
Vector< Problem * >	Copy_of_problem_pt

std::map< double *, bool >	Calculate_dparameter_analytic

bool	Calculate_hessian_products_analytic

LinearAlgebraDistribution *	Dof_distribution_pt

Vector< double * >	Dof_pt
	Vector of pointers to dofs. More...

DoubleVectorWithHaloEntries	Element_count_per_dof

double	Relaxation_factor

double	Newton_solver_tolerance

unsigned	Max_newton_iterations
	Maximum number of Newton iterations. More...

unsigned	Nnewton_iter_taken

Vector< double >	Max_res
	Maximum residuals at start and after each newton iteration. More...

double	Max_residuals

bool	Time_adaptive_newton_crash_on_solve_fail

bool	Jacobian_reuse_is_enabled
	Is re-use of Jacobian in Newton iteration enabled? Default: false. More...

bool	Jacobian_has_been_computed

bool	Problem_is_nonlinear

bool	Pause_at_end_of_sparse_assembly

bool	Doc_time_in_distribute

unsigned	Sparse_assembly_method

unsigned	Sparse_assemble_with_arrays_initial_allocation

unsigned	Sparse_assemble_with_arrays_allocation_increment

Vector< Vector< unsigned > >	Sparse_assemble_with_arrays_previous_allocation

double	Numerical_zero_for_sparse_assembly

double	FD_step_used_in_get_hessian_vector_products

bool	Mass_matrix_reuse_is_enabled

bool	Mass_matrix_has_been_computed

bool	Discontinuous_element_formulation

double	Minimum_dt
	Minimum desired dt: if dt falls below this value, exit. More...

double	Maximum_dt
	Maximum desired dt. More...

double	DTSF_max_increase

double	DTSF_min_decrease

double	Minimum_dt_but_still_proceed

bool	Scale_arc_length
	Boolean to control whether arc-length should be scaled. More...

double	Desired_proportion_of_arc_length
	Proportion of the arc-length to taken by the parameter. More...

double	Theta_squared

int	Sign_of_jacobian
	Storage for the sign of the global Jacobian. More...

double	Continuation_direction

double	Parameter_derivative
	Storage for the derivative of the global parameter wrt arc-length. More...

double	Parameter_current
	Storage for the present value of the global parameter. More...

bool	Use_continuation_timestepper
	Boolean to control original or new storage of dof stuff. More...

unsigned	Dof_derivative_offset

unsigned	Dof_current_offset

Vector< double >	Dof_derivative
	Storage for the derivative of the problem variables wrt arc-length. More...

Vector< double >	Dof_current
	Storage for the present values of the variables. More...

double	Ds_current
	Storage for the current step value. More...

unsigned	Desired_newton_iterations_ds

double	Minimum_ds
	Minimum desired value of arc-length. More...

bool	Bifurcation_detection
	Boolean to control bifurcation detection via determinant of Jacobian. More...

bool	Bisect_to_find_bifurcation
	Boolean to control wheter bisection is used to located bifurcation. More...

bool	First_jacobian_sign_change
	Boolean to indicate whether a sign change has occured in the Jacobian. More...

bool	Arc_length_step_taken
	Boolean to indicate whether an arc-length step has been taken. More...

bool	Use_finite_differences_for_continuation_derivatives

OomphCommunicator *	Communicator_pt
	The communicator for this problem. More...

bool	Always_take_one_newton_step

double	Timestep_reduction_factor_after_nonconvergence

bool	Keep_temporal_error_below_tolerance

Static Protected Attributes inherited from oomph::Problem
static ContinuationStorageScheme	Continuation_time_stepper
	Storage for the single static continuation timestorage object. More...

Detailed Description

template<class ELEMENT>
class MeltSpinningProblem< ELEMENT >

Melt spinning axisymmetric fluid interface problem in rectangular domain.

Constructor & Destructor Documentation

◆ MeltSpinningProblem()

template<class ELEMENT >

MeltSpinningProblem< ELEMENT >::MeltSpinningProblem	(	const unsigned &	n_r,
		const unsigned &	n_z,
		const double &	l_r,
		const double &	h
	)

Constructor for melt spinning axisymmetric fluid problem.

Constructor: Pass the number of elements and the lengths of the domain in the r and z directions (h is the height of the fluid layer i.e. the length of the domain in the z direction)

                                      : Lr(l_r),
                                        Height(h)
  
 {
  
  // Build and assign mesh (the "false" boolean flag tells the mesh
  // constructor that the domain is not periodic in r)
  Bulk_mesh_pt = 
  new HorizontalSingleLayerSpineMesh<ELEMENT>(n_r,n_z,l_r,h);
  
   //Create "surface mesh" that will only contain the interface elements
  Interface_mesh_pt = new Mesh;
  {
   // How many bulk elements are adjacent to boundary b?
   unsigned n_element = Bulk_mesh_pt->nboundary_element(1);
  
  // Loop over the bulk elements adjacent to boundary b?
  for(unsigned e=0;e<n_element;e++)
   {
    // Get pointer to the bulk element that is adjacent to boundary b
    ELEMENT* bulk_elem_pt = dynamic_cast<ELEMENT*>(
     Bulk_mesh_pt->boundary_element_pt(1,e));
    
    // Find the index of the face of element e along boundary b
    int face_index = Bulk_mesh_pt->face_index_at_boundary(1,e);
  
    // Build the corresponding free surface element
    SpineAxisymmetricFluidInterfaceElement<ELEMENT>* interface_element_pt = new 
    SpineAxisymmetricFluidInterfaceElement<ELEMENT>(bulk_elem_pt,face_index);
  
    //Add the prescribed-flux element to the surface mesh
    Interface_mesh_pt->add_element_pt(interface_element_pt);
  
   } //end of loop over bulk elements adjacent to boundary b
  }
  
  // Add the two sub meshes to the problem
  add_sub_mesh(Bulk_mesh_pt);
  add_sub_mesh(Interface_mesh_pt);
  
  // Combine all submeshes into a single Mesh
  build_global_mesh();
  
  
  // --------------------------------------------
  // Set the boundary conditions for this problem
  // --------------------------------------------
  
  // All nodes are free by default -- just pin the ones that have
  // Dirichlet conditions here
  
  //Loop over the boundaries
  unsigned num_bound = Bulk_mesh_pt->nboundary();
  for(unsigned ibound=0;ibound<num_bound;ibound++)
   {
    //Loop over the number of nodes on the boundary
    unsigned num_nod= Bulk_mesh_pt->nboundary_node(ibound);
    switch (ibound) 
     {
     case 0:
      for (unsigned inod=0;inod<num_nod;inod++)
       {
        //Pin all velocities (Wall))
        Bulk_mesh_pt->boundary_node_pt(ibound,inod)->pin(1);
        Bulk_mesh_pt->boundary_node_pt(ibound,inod)->pin(2);
       }
      break;
     case 1:
      for (unsigned inod=0;inod<num_nod;inod++)
       {
        double z_value = Bulk_mesh_pt->boundary_node_pt(ibound,inod)->x(1);
        //Pin all velocities (Wall)
        Bulk_mesh_pt->boundary_node_pt(ibound,inod)->pin(2);
        if (z_value>=(Height/1.1))
         {
          Bulk_mesh_pt->boundary_node_pt(ibound,inod)->pin(0);
          Bulk_mesh_pt->boundary_node_pt(ibound,inod)->pin(1);
         }
       }
      break;
     case 2:
      for (unsigned inod=0;inod<num_nod;inod++)
       {
        //Pin all velocities (Wall)
        Bulk_mesh_pt->boundary_node_pt(ibound,inod)->pin(0);
        Bulk_mesh_pt->boundary_node_pt(ibound,inod)->pin(1);
        Bulk_mesh_pt->boundary_node_pt(ibound,inod)->pin(2);
       }   
      break;
     default: // simmetry axis
      for (unsigned inod=0;inod<num_nod;inod++)
       {
        //Pin all velocities (Wall)
        Bulk_mesh_pt->boundary_node_pt(ibound,inod)->pin(0);
        Bulk_mesh_pt->boundary_node_pt(ibound,inod)->pin(2);
       }    
      break;
     }
   }
  
  // Pin spine height at top of domain
  unsigned first_spine = Bulk_mesh_pt->nspine()-5;
  unsigned last_spine = Bulk_mesh_pt->nspine()-1;
  for (unsigned num_spine=first_spine;num_spine<=last_spine;num_spine++)
   {
    Bulk_mesh_pt->spine_pt(num_spine)->spine_height_pt()->pin(0);
   }
  
  cout << "First spine is " 
       << first_spine
       << " and last spine is  "
       << last_spine
       << std::endl;
  
  // ----------------------------------------------------------------
  // Complete the problem setup to make the elements fully functional
  // ----------------------------------------------------------------
  
  // Determine number of bulk elements in mesh
  const unsigned n_bulk = Bulk_mesh_pt->nelement();
  
  // Loop over the bulk elements
  for(unsigned e=0;e<n_bulk;e++)
   {
    // Upcast from GeneralisedElement to the present element
    ELEMENT *el_pt = dynamic_cast<ELEMENT*>(Bulk_mesh_pt->element_pt(e));
  
    // Set the Reynolds number
    el_pt->re_pt() = &Global_Physical_Variables::Re;
  
    // Set the product of the Reynolds number and the inverse of the
    // Froude number
    el_pt->re_invfr_pt() = &Global_Physical_Variables::ReInvFr;
  
    // Set the direction of gravity
    el_pt->g_pt() = &Global_Physical_Variables::G;
  
   } // End of loop over bulk elements
  
  // Create a Data object whose single value stores the external pressure
  Data* external_pressure_data_pt = new Data(1);
  
 // Pin and set the external pressure to some arbitrary value
  double p_ext = Global_Physical_Variables::P_ext;
  
  // Pin and set the external pressure to some arbitrary value
  external_pressure_data_pt->pin(0);
  external_pressure_data_pt->set_value(0,p_ext);
  
  // Determine number of 1D interface elements in mesh
  const unsigned n_interface_element = Interface_mesh_pt->nelement();
  
  // Loop over the interface elements
  for(unsigned e=0;e<n_interface_element;e++)
   {
    // Upcast from GeneralisedElement to the present element
    SpineAxisymmetricFluidInterfaceElement<ELEMENT>* el_pt = 
     dynamic_cast<SpineAxisymmetricFluidInterfaceElement<ELEMENT>*>
     (Interface_mesh_pt->element_pt(e));
  
    // Set the Capillary number
    el_pt->ca_pt() = &Global_Physical_Variables::Ca;
  
    // Pass the Data item that contains the single external pressure value
    el_pt->set_external_pressure_data(external_pressure_data_pt);
  
   } // End of loop over interface elements
  
  // Setup equation numbering scheme
  cout << "Number of equations: " << assign_eqn_numbers() << std::endl;
  
 } // End of constructor

References oomph::Mesh::add_element_pt(), oomph::Problem::add_sub_mesh(), oomph::Problem::assign_eqn_numbers(), oomph::Problem::build_global_mesh(), MeltSpinningProblem< ELEMENT >::Bulk_mesh_pt, Global_Physical_Variables::Ca, oomph::FluidInterfaceElement::ca_pt(), e(), oomph::Mesh::element_pt(), Global_Physical_Variables::G, MeltSpinningProblem< ELEMENT >::Height, MeltSpinningProblem< ELEMENT >::Interface_mesh_pt, oomph::Mesh::nelement(), Global_Physical_Variables::P_ext, oomph::Data::pin(), Global_Physical_Variables::Re, Global_Physical_Variables::ReInvFr, oomph::FluidInterfaceElement::set_external_pressure_data(), and oomph::Data::set_value().

◆ ~MeltSpinningProblem()

template<class ELEMENT >

MeltSpinningProblem< ELEMENT >::~MeltSpinningProblem ( )

inline

Destructor (empty)

90 {}

Member Function Documentation

◆ actions_after_newton_solve()

template<class ELEMENT >

void MeltSpinningProblem< ELEMENT >::actions_after_newton_solve ( )

inlineprivatevirtual

Update after solve can remain empty, because the update is performed automatically after every Newton step.

Reimplemented from oomph::Problem.

115 {}

◆ actions_before_newton_convergence_check()

template<class ELEMENT >

void MeltSpinningProblem< ELEMENT >::actions_before_newton_convergence_check ( )

inlinevirtual

Spine heights/lengths are unknowns in the problem so their values get corrected during each Newton step. However, changing their value does not automatically change the nodal positions, so we need to update all of them here.

Reimplemented from oomph::Problem.

   {
    Bulk_mesh_pt->node_update();
   }

◆ actions_before_newton_solve()

template<class ELEMENT >

void MeltSpinningProblem< ELEMENT >::actions_before_newton_solve

privatevirtual

Update the problem specs before solve Re-set velocity boundary conditions just to be on the safe side...

Update the problem specs before solve: (Re-)set boundary conditions just to be on the safe side...

Reimplemented from oomph::Problem.

 {
  const double Dr = 20.0;
  
  // Determine number of nodes in mesh
  const unsigned n_node = Bulk_mesh_pt->nnode();
  
  // Loop over all nodes in mesh
  for(unsigned n=0;n<n_node;n++)
   {
    // Determine r coordinate of node
    double r_value = Bulk_mesh_pt->node_pt(n)->x(0);
    // Determine z coordinate of node
    double z_value = Bulk_mesh_pt->node_pt(n)->x(1);
       
    // Initial guess for ur (Multiply by epsilon)
    double ur_value = -0.5*r_value*(1.0/Height)*log(Dr)*exp(log(Dr)*(1.0-(z_value/Height)));
    //Initial guess for uz
    double uz_value = -exp(log(Dr)*(1.0-(z_value/Height)));
  
    // Set velocity component i of node n to guess
    Bulk_mesh_pt->node_pt(n)->set_value(0,ur_value);
    Bulk_mesh_pt->node_pt(n)->set_value(1,uz_value);
    // Set theta velocity component of node n to zero
    Bulk_mesh_pt->node_pt(n)->set_value(2,0.0);
   } 
  
  // Correct the value in order to imposse boundary conditions
  unsigned num_bound = Bulk_mesh_pt->nboundary();
  for(unsigned ibound=0;ibound<num_bound;ibound++)
   {
    // Determine number of nodes in the bound mesh
    const unsigned n_node = Bulk_mesh_pt->nboundary_node(ibound);
    switch (ibound) 
     {
     case 0:
      for (unsigned inod=0;inod<n_node;inod++)
       {
        // Determine r coordinate of node
        double r_value = Bulk_mesh_pt->boundary_node_pt(ibound,inod)->x(0);
        double w_bound0 = -Dr*(1.0 - 0.0*pow(r_value,2.0));
        //Set the velocities at the bottom zone
        Bulk_mesh_pt->boundary_node_pt(ibound,inod)->set_value(0,0.0);
        Bulk_mesh_pt->boundary_node_pt(ibound,inod)->set_value(1,w_bound0);
       }
      break;
     case 1:
      for (unsigned inod=0;inod<n_node;inod++)
       {
        // Determine r coordinate of node
        double z_value = Bulk_mesh_pt->boundary_node_pt(ibound,inod)->x(1);
        //Set the zero velocity at the nozzle
        if (z_value>=(Height/1.1))
         {
          Bulk_mesh_pt->boundary_node_pt(ibound,inod)->set_value(0,0.0);
          Bulk_mesh_pt->boundary_node_pt(ibound,inod)->set_value(1,0.0);
         }
       }
      break;
     case 2:
      for (unsigned inod=0;inod<n_node;inod++)
       {
        // Determine r coordinate of node
        double r_value = Bulk_mesh_pt->boundary_node_pt(ibound,inod)->x(0);
        double w_bound2 = -2.0*(1.0 - 1.0*pow(r_value,2.0));
        //Set all of the magnitudes at the top zone
        Bulk_mesh_pt->boundary_node_pt(ibound,inod)->set_value(0,0.0);
        Bulk_mesh_pt->boundary_node_pt(ibound,inod)->set_value(1,w_bound2);
       }   
      break;
     default: // simmetry axis
      for (unsigned inod=0;inod<n_node;inod++)
       {
        //Set the radial velocity at the axis
        Bulk_mesh_pt->boundary_node_pt(ibound,inod)->set_value(0,0.0);
       }    
      break;
     }
    } 
 } // End of actions_before_newton_solve

References Eigen::bfloat16_impl::exp(), GlobalParameters::Height, Eigen::bfloat16_impl::log(), n, and Eigen::ArrayBase< Derived >::pow().

◆ deform_free_surface()

template<class ELEMENT >

void MeltSpinningProblem< ELEMENT >::deform_free_surface ( const double & Dr )

inlineprivate

Deform the mesh/free surface to a prescribed function.

   {
  
    // Determine number of spines in mesh
    const unsigned n_spine = Bulk_mesh_pt->nspine();
  
    // Loop over spines in mesh
    for(unsigned i=0;i<n_spine;i++)
     {
      
      // Determine z coordinate of spine
      double z_value = Bulk_mesh_pt->boundary_node_pt(1,i)->x(1);
      if (z_value<=(Height/1.1))
       {
        // Set spine height
        Bulk_mesh_pt->spine_pt(i)->height() = sqrt(exp(-log(Dr)*(1.0-(1.1*z_value/Height))));
       }
  
     } // End of loop over spines
    
    // Update nodes in bulk mesh
    Bulk_mesh_pt->node_update();
  
   } // End of deform_free_surface

References oomph::Mesh::boundary_node_pt(), Eigen::bfloat16_impl::exp(), GlobalParameters::Height, oomph::Spine::height(), i, Eigen::bfloat16_impl::log(), oomph::SpineMesh::node_update(), oomph::SpineMesh::nspine(), oomph::SpineMesh::spine_pt(), sqrt(), and oomph::Node::x().

◆ doc_solution()

template<class ELEMENT >

void MeltSpinningProblem< ELEMENT >::doc_solution ( DocInfo & doc_info )

Doc the solution.

 { 
  //Declare an output stream and filename
  ofstream some_file;
  char filename[100];
  
  // Set number of plot points (in each coordinate direction)
  const unsigned npts = 5;
  
  // Open solution output file
  sprintf(filename,"%s/soln%i.dat",doc_info.directory().c_str(),
          doc_info.number());
  some_file.open(filename);
  
  // Output solution to file
  Bulk_mesh_pt->output(some_file,npts);
  Interface_mesh_pt->output(some_file,npts);
  
  // Close solution output file
  some_file.close();
  
 } // End of doc_solution

References oomph::DocInfo::directory(), MergeRestartFiles::filename, and oomph::DocInfo::number().

◆ steady_run()

template<class ELEMENT >

void MeltSpinningProblem< ELEMENT >::steady_run

Do steady run.

Perform run.

 {
  // Increase maximum residual and iteration number
  Problem::Max_residuals=1000.0;
  Problem::Max_newton_iterations=200;
  
  // Set value of Dr
  const double Dr = 20.0;
  
  // Deform the mesh/free surface
  deform_free_surface(Dr);
  
  // Initialise DocInfo object
  DocInfo doc_info;
  
  // Set output directory
  doc_info.set_directory("RESLT");
  
  // Initialise counter for solutions
  doc_info.number()=0;
  
  // Doc initial solution
  doc_solution(doc_info);
  
  // Increment counter for solutions 
  doc_info.number()++;
  
  for(unsigned i=0;i<1;i++)
   {
  
    cout << "Solving for Re = " 
         << Global_Physical_Variables::Re
         << " Ca = "
         << Global_Physical_Variables::Ca
         << std::endl;
  
    // Solve the problem
    newton_solve();
    
    // Doc solution
    doc_solution(doc_info);
    
    // Step number
    doc_info.number()++;
  
    // Bump up parameter
    Global_Physical_Variables::Re=1.0*Global_Physical_Variables::Re;
    Global_Physical_Variables::Ca=1.0*Global_Physical_Variables::Ca;
  
   } 
  
 } // End of steady_run