problem_constants.f90

Go to the documentation of this file.

MODULE problem_constants
  
  USE kinds

  IMPLICIT NONE

  !Module parameters

  !Problem Classes
  INTEGER(INTG), PARAMETER :: problem_no_class=0  
  INTEGER(INTG), PARAMETER :: problem_elasticity_class=1
  INTEGER(INTG), PARAMETER :: problem_fluid_mechanics_class=2
  INTEGER(INTG), PARAMETER :: problem_electromagnetics_class=3
  INTEGER(INTG), PARAMETER :: problem_classical_field_class=4  
  INTEGER(INTG), PARAMETER :: problem_bioelectrics_class=5
  INTEGER(INTG), PARAMETER :: problem_modal_class=6
  INTEGER(INTG), PARAMETER :: problem_fitting_class=7
  INTEGER(INTG), PARAMETER :: problem_optimisation_class=8
  INTEGER(INTG), PARAMETER :: problem_multi_physics_class=9

  !Problem types
  INTEGER(INTG), PARAMETER :: problem_no_type=0
  !Elasticity class
  INTEGER(INTG), PARAMETER :: problem_linear_elasticity_type=1
  INTEGER(INTG), PARAMETER :: problem_finite_elasticity_type=2
  INTEGER(INTG), PARAMETER :: problem_linear_elasticity_contact_type=3
  INTEGER(INTG), PARAMETER :: problem_finite_elasticity_contact_type=4
  !Fluid mechanics class
  INTEGER(INTG), PARAMETER :: problem_stokes_equation_type=1
  INTEGER(INTG), PARAMETER :: problem_navier_stokes_equation_type=2
  INTEGER(INTG), PARAMETER :: problem_darcy_equation_type=3
  INTEGER(INTG), PARAMETER :: problem_darcy_pressure_equation_type=4
  INTEGER(INTG), PARAMETER :: problem_poiseuille_equation_type=5
  INTEGER(INTG), PARAMETER :: problem_burgers_equation_type=6
  !Electromagnetics class
  INTEGER(INTG), PARAMETER :: problem_electrostatic_type=1
  INTEGER(INTG), PARAMETER :: problem_magnetostatic_type=2
  INTEGER(INTG), PARAMETER :: problem_maxwells_equations_type=3
  !Classical field class
  INTEGER(INTG), PARAMETER :: problem_laplace_equation_type=1
  INTEGER(INTG), PARAMETER :: problem_poisson_equation_type=2
  INTEGER(INTG), PARAMETER :: problem_helmholtz_equation_type=3
  INTEGER(INTG), PARAMETER :: problem_wave_equation_type=4
  INTEGER(INTG), PARAMETER :: problem_advection_equation_type=5
  INTEGER(INTG), PARAMETER :: problem_diffusion_equation_type=6
  INTEGER(INTG), PARAMETER :: problem_advection_diffusion_equation_type=7
  INTEGER(INTG), PARAMETER :: problem_reaction_diffusion_equation_type=8
  INTEGER(INTG), PARAMETER :: problem_biharmonic_equation_type=9
  INTEGER(INTG), PARAMETER :: problem_data_fitting_type=10
  INTEGER(INTG), PARAMETER :: problem_hj_equation_type=11
  
  !Bioelectrics class
  INTEGER(INTG), PARAMETER :: problem_monodomain_equation_type=1
  INTEGER(INTG), PARAMETER :: problem_bidomain_equation_type=2
  INTEGER(INTG), PARAMETER :: problem_monodomain_strang_splitting_equation_type=3
  !Modal class
  INTEGER(INTG), PARAMETER :: problem_linear_elastic_modal_type=1
  !Multi physics class
  INTEGER(INTG), PARAMETER :: problem_finite_elasticity_darcy_type=1
  INTEGER(INTG), PARAMETER :: problem_finite_elasticity_stokes_type=2
  INTEGER(INTG), PARAMETER :: problem_finite_elasticity_navier_stokes_type=3
  INTEGER(INTG), PARAMETER :: problem_diffusion_diffusion_type=4
  INTEGER(INTG), PARAMETER :: problem_diffusion_advection_diffusion_type=5
  INTEGER(INTG), PARAMETER :: problem_multi_compartment_transport_type=6
  INTEGER(INTG), PARAMETER :: problem_finite_elasticity_fluid_pressure_type=7
  INTEGER(INTG), PARAMETER :: problem_bioelectric_finite_elasticity_type=8

  !Problem subtypes
  INTEGER(INTG), PARAMETER :: problem_no_subtype=0
  !Elasticity class
  !  Linear elasticity - uses PROBLEM_NO_SUBTYPE=0
  !  Finite elasticity
  INTEGER(INTG), PARAMETER :: problem_quasistatic_finite_elasticity_subtype=1
  INTEGER(INTG), PARAMETER :: problem_finite_elasticity_cellml_subtype=2
  INTEGER(INTG), PARAMETER :: problem_multiscale_finite_elasticity_subtype=3
  INTEGER(INTG), PARAMETER :: problem_finite_elasticity_with_growth_cellml_subtype=4
  ! Linear elasticity subject to contact constraint
  INTEGER(INTG), PARAMETER :: problem_le_contact_transform_reproject_subtype=1
  INTEGER(INTG), PARAMETER :: problem_le_contact_transform_subtype=2
  INTEGER(INTG), PARAMETER :: problem_le_contact_reproject_subtype=3
  ! Finite elasticity subject to contact constraint
  INTEGER(INTG), PARAMETER :: problem_fe_contact_transform_reproject_subtype=4
  INTEGER(INTG), PARAMETER :: problem_fe_contact_transform_subtype=5
  INTEGER(INTG), PARAMETER :: problem_fe_contact_reproject_subtype=6

  !Fluid mechanics class
  !  Stokes equations
  INTEGER(INTG), PARAMETER :: problem_static_stokes_subtype=1
  INTEGER(INTG), PARAMETER :: problem_laplace_stokes_subtype=2
  INTEGER(INTG), PARAMETER :: problem_transient_stokes_subtype=3
  INTEGER(INTG), PARAMETER :: problem_optimised_stokes_subtype=4
  INTEGER(INTG), PARAMETER :: problem_ale_stokes_subtype=5
  INTEGER(INTG), PARAMETER :: problem_pgm_stokes_subtype=6
!  INTEGER(INTG), PARAMETER :: PROBLEM_HJ_SUBTYPE=6
  !  Navier-Stokes equations
  INTEGER(INTG), PARAMETER :: problem_static_navier_stokes_subtype=1
  INTEGER(INTG), PARAMETER :: problem_laplace_navier_stokes_subtype=2
  INTEGER(INTG), PARAMETER :: problem_transient_navier_stokes_subtype=3
  INTEGER(INTG), PARAMETER :: problem_transient_rbs_navier_stokes_subtype=9
  INTEGER(INTG), PARAMETER :: problem_multiscale_navier_stokes_subtype=10
  INTEGER(INTG), PARAMETER :: problem_optimised_navier_stokes_subtype=4
  INTEGER(INTG), PARAMETER :: problem_ale_navier_stokes_subtype=5
  INTEGER(INTG), PARAMETER :: problem_pgm_navier_stokes_subtype=6
  INTEGER(INTG), PARAMETER :: problem_quasistatic_navier_stokes_subtype=7
  INTEGER(INTG), PARAMETER :: problem_transient1d_navier_stokes_subtype=8
  INTEGER(INTG), PARAMETER :: problem_coupled1d0d_navier_stokes_subtype=11
  INTEGER(INTG), PARAMETER :: problem_transient1d_adv_navier_stokes_subtype=13
  INTEGER(INTG), PARAMETER :: problem_coupled1d0d_adv_navier_stokes_subtype=14
  INTEGER(INTG), PARAMETER :: problem_stree1d0d_navier_stokes_subtype=15
  INTEGER(INTG), PARAMETER :: problem_stree1d0d_adv_navier_stokes_subtype=16
  !  Darcy equation
  INTEGER(INTG), PARAMETER :: problem_standard_darcy_subtype=1
  INTEGER(INTG), PARAMETER :: problem_quasistatic_darcy_subtype=2
  INTEGER(INTG), PARAMETER :: problem_ale_darcy_subtype=3
  INTEGER(INTG), PARAMETER :: problem_transient_darcy_subtype=4
  INTEGER(INTG), PARAMETER :: problem_pgm_darcy_subtype=5
  INTEGER(INTG), PARAMETER :: problem_pgm_transient_darcy_subtype=6
  !  Poiseuille equation
  INTEGER(INTG), PARAMETER :: problem_static_poiseuille_subtype=1
  INTEGER(INTG), PARAMETER :: problem_dynamic_poiseuille_subtype=2
  !  Burgers equation
  INTEGER(INTG), PARAMETER :: problem_static_burgers_subtype=1
  INTEGER(INTG), PARAMETER :: problem_dynamic_burgers_subtype=2
  !Electromagnetics class
  !Classical field class
  !  Laplace equation
!!TODO: We don't really have two problem types here? Maybe a different type with nonlinear boundary conditions???
  INTEGER(INTG), PARAMETER :: problem_standard_laplace_subtype=1
  INTEGER(INTG), PARAMETER :: problem_generalised_laplace_subtype=2
  INTEGER(INTG), PARAMETER :: problem_moving_mesh_laplace_subtype=3
  !  Hamilton-Jacobi equation
  INTEGER(INTG), PARAMETER :: problem_standard_hj_subtype=1
  INTEGER(INTG), PARAMETER :: problem_generalised_hj_subtype=2
  INTEGER(INTG), PARAMETER :: problem_moving_mesh_hj_subtype=3
  !  Poisson equation
  INTEGER(INTG), PARAMETER :: problem_linear_source_poisson_subtype=1
  INTEGER(INTG), PARAMETER :: problem_nonlinear_source_poisson_subtype=2
  INTEGER(INTG), PARAMETER :: problem_linear_pressure_poisson_subtype=3
  INTEGER(INTG), PARAMETER :: problem_nonlinear_pressure_poisson_subtype=4
  INTEGER(INTG), PARAMETER :: problem_ale_pressure_poisson_subtype=5
  INTEGER(INTG), PARAMETER :: problem_fitted_pressure_poisson_subtype=6
  INTEGER(INTG), PARAMETER :: problem_extracellular_bidomain_poisson_subtype=7
  !  Helmholtz equation
  INTEGER(INTG), PARAMETER :: problem_standard_helmholtz_subtype=2
  INTEGER(INTG), PARAMETER :: problem_generalised_helmholtz_subtype=3
  !  Wave equation
  !  Diffusion equation
  INTEGER(INTG), PARAMETER :: problem_no_source_diffusion_subtype=1
  INTEGER(INTG), PARAMETER :: problem_linear_source_diffusion_subtype=2
  INTEGER(INTG), PARAMETER :: problem_nonlinear_source_diffusion_subtype=3
  INTEGER(INTG), PARAMETER :: problem_no_source_ale_diffusion_subtype=4
  INTEGER(INTG), PARAMETER :: problem_linear_source_ale_diffusion_subtype=5
  INTEGER(INTG), PARAMETER :: problem_nonlinear_source_ale_diffusion_subtype=6
  !  Reaction-diffusion equation
  INTEGER(INTG), PARAMETER :: problem_cellml_reac_integ_reac_diff_strang_split_subtype=1
  INTEGER(INTG), PARAMETER :: problem_cellml_reac_eval_reac_diff_no_split_subtype=2
  INTEGER(INTG), PARAMETER :: problem_constant_reac_diff_no_split_subtype=3
  !  Advection-diffusion equation
  INTEGER(INTG), PARAMETER :: problem_no_source_advection_diffusion_subtype=1
  INTEGER(INTG), PARAMETER :: problem_linear_source_advection_diffusion_subtype=2
  INTEGER(INTG), PARAMETER :: problem_nonlinear_source_advection_diffusion_subtype=3
  INTEGER(INTG), PARAMETER :: problem_no_source_ale_advection_diffusion_subtype=4
  INTEGER(INTG), PARAMETER :: problem_linear_source_ale_advection_diffusion_subtype=5
  INTEGER(INTG), PARAMETER :: problem_nonlinear_source_ale_advection_diffusion_subtype=6
  INTEGER(INTG), PARAMETER :: problem_advection_subtype=7
  !Subtypes for steady-state advection-diffusion equation
  INTEGER(INTG), PARAMETER :: problem_no_source_static_advec_diff_subtype=7
  INTEGER(INTG), PARAMETER :: problem_linear_source_static_advec_diff_subtype=8
  INTEGER(INTG), PARAMETER :: problem_nonlinear_source_static_advec_diff_subtype=9
  

  !Bioelectric class
  !  Monodomain equation
  INTEGER(INTG), PARAMETER :: problem_monodomain_gudunov_split_subtype=1
  INTEGER(INTG), PARAMETER :: problem_monodomain_strang_split_subtype=2   
  !  Bidomain equation
  INTEGER(INTG), PARAMETER :: problem_bidomain_gudunov_split_subtype=1
  INTEGER(INTG), PARAMETER :: problem_bidomain_strang_split_subtype=2

  !Monodomain Strang splitting type : specific cell models
  INTEGER(INTG), PARAMETER :: problem_monodomain_buenoorovio_subtype=1
  INTEGER(INTG), PARAMETER :: problem_monodomain_tentusscher06_subtype=2

  !Modal class
  !  Galerkin projection
  INTEGER(INTG), PARAMETER :: problem_standard_data_fitting_subtype=1
  INTEGER(INTG), PARAMETER :: problem_generalised_data_fitting_subtype=2
  INTEGER(INTG), PARAMETER :: problem_mat_properties_data_fitting_subtype=3
  INTEGER(INTG), PARAMETER :: problem_vector_data_fitting_subtype=4
  INTEGER(INTG), PARAMETER :: problem_div_free_vector_data_fitting_subtype=5
  INTEGER(INTG), PARAMETER :: problem_vector_data_pre_fitting_subtype=6
  INTEGER(INTG), PARAMETER :: problem_div_free_vector_data_pre_fitting_subtype=7
  INTEGER(INTG), PARAMETER :: problem_datapointvectorstaticfittingsubtype=8
  INTEGER(INTG), PARAMETER :: problem_datapointvectorquasistaticfittingsubtype=9
  !  Multi physics (subtype numbers must be different from Darcy ones)
  INTEGER(INTG), PARAMETER :: problem_standard_elasticity_darcy_subtype=101
  INTEGER(INTG), PARAMETER :: problem_pgm_elasticity_darcy_subtype=102
  INTEGER(INTG), PARAMETER :: problem_quasistatic_elasticity_transient_darcy_subtype=103
  INTEGER(INTG), PARAMETER :: problem_quasistatic_elast_trans_darcy_mat_solve_subtype=104
  INTEGER(INTG), PARAMETER :: problem_coupled_source_diffusion_diffusion_subtype=111
  INTEGER(INTG), PARAMETER :: problem_coupled_source_ale_diffusion_diffusion_subtype=112
  INTEGER(INTG), PARAMETER :: problem_coupled_source_diffusion_advec_diffusion_subtype=121
  INTEGER(INTG), PARAMETER :: problem_coupled_source_ale_diffusion_advec_diffusion_subtype=122
  INTEGER(INTG), PARAMETER :: problem_standard_multi_compartment_transport_subtype=131
  INTEGER(INTG), PARAMETER :: problem_standard_ale_multi_compartment_transport_subtype=132    
  INTEGER(INTG), PARAMETER :: problem_standard_elasticity_fluid_pressure_subtype=133
  INTEGER(INTG), PARAMETER :: problem_gudunov_monodomain_simple_elasticity_subtype=141
  INTEGER(INTG), PARAMETER :: problem_gudunov_monodomain_1d3d_elasticity_subtype=142
  INTEGER(INTG), PARAMETER :: problem_monodomain_elasticity_w_titin_subtype=143
  INTEGER(INTG), PARAMETER :: problem_monodomain_elasticity_velocity_subtype=144
  INTEGER(INTG), PARAMETER :: problem_monodomain_1d3d_active_strain_subtype=145
  INTEGER(INTG), PARAMETER :: problem_finite_elasticity_navier_stokes_ale_subtype=151

  INTEGER(INTG), PARAMETER :: problem_setup_initial_type=1
  INTEGER(INTG), PARAMETER :: problem_setup_control_type=2
  INTEGER(INTG), PARAMETER :: problem_setup_solvers_type=3
  INTEGER(INTG), PARAMETER :: problem_setup_solver_equations_type=4
  INTEGER(INTG), PARAMETER :: problem_setup_cellml_equations_type=5
  
  INTEGER(INTG), PARAMETER :: problem_setup_start_action=1
  INTEGER(INTG), PARAMETER :: problem_setup_finish_action=2

  INTEGER(INTG), PARAMETER :: problem_control_simple_type=1
  INTEGER(INTG), PARAMETER :: problem_control_fixed_loop_type=2
  INTEGER(INTG), PARAMETER :: problem_control_time_loop_type=3
  INTEGER(INTG), PARAMETER :: problem_control_while_loop_type=4
  INTEGER(INTG), PARAMETER :: problem_control_load_increment_loop_type=5
   
  INTEGER(INTG), PARAMETER :: problem_solver_linear=1
  INTEGER(INTG), PARAMETER :: problem_solver_nonlinear=2
  
  
  INTEGER(INTG), PARAMETER :: solver_equations_linear=1
  INTEGER(INTG), PARAMETER :: solver_equations_nonlinear=2

  INTEGER(INTG), PARAMETER :: solver_equations_static=1
  INTEGER(INTG), PARAMETER :: solver_equations_quasistatic=2
  INTEGER(INTG), PARAMETER :: solver_equations_first_order_dynamic=3
  INTEGER(INTG), PARAMETER :: solver_equations_second_order_dynamic=4

   
END MODULE problem_constants