domain_mesh Module


Uses

  • module~~domain_mesh~~UsesGraph module~domain_mesh domain_mesh iso_fortran_env iso_fortran_env module~domain_mesh->iso_fortran_env module~module_core module_core module~domain_mesh->module~module_core stdlib_logger stdlib_logger module~domain_mesh->stdlib_logger core_check_nan core_check_nan module~module_core->core_check_nan module~core_allocate core_allocate module~module_core->module~core_allocate module~core_check_range core_check_range module~module_core->module~core_check_range module~core_deallocate core_deallocate module~module_core->module~core_deallocate module~core_error core_error module~module_core->module~core_error module~core_fortran_utils core_fortran_utils module~module_core->module~core_fortran_utils module~core_string_utils core_string_utils module~module_core->module~core_string_utils module~core_types core_types module~module_core->module~core_types module~core_unique core_unique module~module_core->module~core_unique module~core_vtk core_vtk module~module_core->module~core_vtk module~core_vtk_vtk_constants core_vtk_vtk_constants module~module_core->module~core_vtk_vtk_constants module~core_allocate->iso_fortran_env module~core_allocate->module~core_error module~core_check_range->iso_fortran_env module~core_deallocate->iso_fortran_env module~core_deallocate->module~core_error module~core_error->iso_fortran_env module~core_error->stdlib_logger module~core_fortran_utils_memory_stats_wrapper core_fortran_utils_memory_stats_wrapper module~core_fortran_utils->module~core_fortran_utils_memory_stats_wrapper module~core_fortran_utils_signal_flag_wrapper core_fortran_utils_signal_flag_wrapper module~core_fortran_utils->module~core_fortran_utils_signal_flag_wrapper module~core_fortran_utils_system_info_wrapper core_fortran_utils_system_info_wrapper module~core_fortran_utils->module~core_fortran_utils_system_info_wrapper module~core_string_utils->iso_fortran_env module~core_string_utils->module~core_allocate module~core_types_array core_types_array module~core_types->module~core_types_array module~core_types_gauss core_types_gauss module~core_types->module~core_types_gauss module~core_types_pointer core_types_pointer module~core_types->module~core_types_pointer module~core_types_variable core_types_variable module~core_types->module~core_types_variable module~core_types_vector core_types_vector module~core_types->module~core_types_vector module~module_type_matrix module_type_matrix module~core_types->module~module_type_matrix module~core_unique->iso_fortran_env module~core_unique->module~core_allocate stdlib_sorting stdlib_sorting module~core_unique->stdlib_sorting module~core_vtk->iso_fortran_env module~core_vtk->module~core_allocate module~core_vtk->module~core_deallocate module~core_vtk->module~core_types module~core_vtk->module~core_unique module~core_vtk->module~core_vtk_vtk_constants iso_c_binding iso_c_binding module~core_vtk->iso_c_binding module~core_vtk_vtk_wrapper core_vtk_vtk_wrapper module~core_vtk->module~core_vtk_vtk_wrapper module~core_vtk_vtu_wrapper core_vtk_vtu_wrapper module~core_vtk->module~core_vtk_vtu_wrapper module~core_vtk->stdlib_sorting module~core_vtk_vtk_constants->iso_fortran_env module~core_fortran_utils_memory_stats_wrapper->iso_fortran_env module~core_c_utils core_c_utils module~core_fortran_utils_memory_stats_wrapper->module~core_c_utils module~core_fortran_utils_signal_flag_wrapper->iso_fortran_env module~core_fortran_utils_signal_flag_wrapper->stdlib_logger module~core_fortran_utils_signal_flag_wrapper->iso_c_binding module~core_c_utils_signal_flag core_c_utils_signal_flag module~core_fortran_utils_signal_flag_wrapper->module~core_c_utils_signal_flag module~core_fortran_utils_system_info_wrapper->iso_fortran_env module~core_fortran_utils_system_info_wrapper->iso_c_binding module~core_fortran_utils_system_info_wrapper->module~core_c_utils stdlib_strings stdlib_strings module~core_fortran_utils_system_info_wrapper->stdlib_strings module~core_types_array->iso_fortran_env module~core_types_array->module~core_allocate module~core_types_array->module~core_deallocate module~core_types_gauss->iso_fortran_env module~core_types_pointer->iso_fortran_env module~core_types_variable->iso_fortran_env module~core_types_variable->module~core_allocate module~core_types_vector->iso_fortran_env module~core_vtk_vtk_wrapper->iso_c_binding module~core_vtk_vtu_wrapper->iso_c_binding module~core_types_matrix core_types_matrix module~module_type_matrix->module~core_types_matrix module~core_types_matrix_coo core_types_matrix_coo module~module_type_matrix->module~core_types_matrix_coo module~core_types_matrix_crs core_types_matrix_crs module~module_type_matrix->module~core_types_matrix_crs module~core_types_matrix_dense core_types_matrix_dense module~module_type_matrix->module~core_types_matrix_dense module~core_c_utils->iso_c_binding module~core_c_utils->module~core_c_utils_signal_flag module~core_c_utils_memory_stats core_c_utils_memory_stats module~core_c_utils->module~core_c_utils_memory_stats module~core_c_utils_system_info core_c_utils_system_info module~core_c_utils->module~core_c_utils_system_info module~core_c_utils_signal_flag->iso_c_binding module~core_types_matrix->iso_fortran_env module~core_types_matrix_coo->iso_fortran_env module~core_types_matrix_coo->module~core_allocate module~core_types_matrix_coo->module~core_deallocate module~core_types_matrix_coo->module~core_types_matrix module~core_types_matrix_crs->iso_fortran_env module~core_types_matrix_crs->module~core_allocate module~core_types_matrix_crs->module~core_deallocate module~core_types_matrix_crs->module~core_types_matrix module~core_types_matrix_dense->iso_fortran_env module~core_types_matrix_dense->module~core_allocate module~core_types_matrix_dense->module~core_deallocate module~core_types_matrix_dense->module~core_types_matrix module~core_c_utils_memory_stats->iso_c_binding module~core_c_utils_system_info->iso_c_binding

Used by

  • module~~domain_mesh~~UsedByGraph module~domain_mesh domain_mesh module~domain_mesh_element domain_mesh_element module~domain_mesh_element->module~domain_mesh module~domain_mesh_side domain_mesh_side module~domain_mesh_side->module~domain_mesh module~module_mesh module_mesh module~module_mesh->module~domain_mesh module~module_mesh_element module_mesh_element module~module_mesh->module~module_mesh_element module~module_mesh_side module_mesh_side module~module_mesh->module~module_mesh_side module~domain_adjacency_adjacency_element domain_adjacency_adjacency_element module~domain_adjacency_adjacency_element->module~module_mesh module~domain_adjacency_adjacency_node domain_adjacency_adjacency_node module~domain_adjacency_adjacency_node->module~module_mesh module~domain_adjacency_adjacency_node_element domain_adjacency_adjacency_node_element module~domain_adjacency_adjacency_node_element->module~module_mesh module~domain_manager domain_manager module~domain_manager->module~module_mesh module~domain_reordering domain_reordering module~domain_manager->module~domain_reordering module~domain_adjacency domain_adjacency module~domain_manager->module~domain_adjacency module~domain_multicoloring domain_multicoloring module~domain_manager->module~domain_multicoloring module~domain_mesh_element_factory domain_mesh_element_factory module~domain_mesh_element_factory->module~domain_mesh_element module~domain_mesh_element_square_first domain_mesh_element_square_first module~domain_mesh_element_square_first->module~domain_mesh_element module~domain_mesh_element_square_second domain_mesh_element_square_second module~domain_mesh_element_square_second->module~domain_mesh_element module~domain_mesh_element_triangle_first domain_mesh_element_triangle_first module~domain_mesh_element_triangle_first->module~domain_mesh_element module~domain_mesh_element_triangle_second domain_mesh_element_triangle_second module~domain_mesh_element_triangle_second->module~domain_mesh_element module~domain_mesh_side_factory domain_mesh_side_factory module~domain_mesh_side_factory->module~domain_mesh_side module~domain_mesh_side_first domain_mesh_side_first module~domain_mesh_side_first->module~domain_mesh_side module~domain_mesh_side_second domain_mesh_side_second module~domain_mesh_side_second->module~domain_mesh_side module~domain_reordering->module~module_mesh module~domain_reordering->module~domain_adjacency_adjacency_node module~module_domain module_domain module~module_domain->module~module_mesh module~module_domain->module~domain_manager module~module_domain->module~domain_reordering module~module_domain->module~domain_adjacency module~module_domain->module~domain_multicoloring module~module_mesh_element->module~domain_mesh_element module~module_mesh_element->module~domain_mesh_element_factory module~module_mesh_side->module~domain_mesh_side module~module_mesh_side->module~domain_mesh_side_factory module~conditions_boundary conditions_boundary module~conditions_boundary->module~module_domain module~conditions_boundary_manager conditions_boundary_manager module~conditions_boundary_manager->module~module_domain module~conditions_boundary_manager->module~conditions_boundary module~conditions_initial conditions_initial module~conditions_initial->module~module_domain module~module_boundary module_boundary module~conditions_initial->module~module_boundary module~conditions_initial_manager conditions_initial_manager module~conditions_initial_manager->module~module_domain module~conditions_initial_manager->module~conditions_initial module~domain_adjacency->module~domain_adjacency_adjacency_element module~domain_adjacency->module~domain_adjacency_adjacency_node module~domain_adjacency->module~domain_adjacency_adjacency_node_element module~domain_multicoloring->module~domain_adjacency_adjacency_element module~hydraulic_hydraulic_assemble hydraulic_hydraulic_assemble module~hydraulic_hydraulic_assemble->module~module_domain module~input_output input_output module~input_output->module~module_domain module~main_ftdss Main_FTDSS module~main_ftdss->module~module_domain module~main_ftdss->module~module_boundary module~module_hydraulic module_hydraulic module~main_ftdss->module~module_hydraulic module~module_initial module_initial module~main_ftdss->module~module_initial module~module_output module_output module~main_ftdss->module~module_output module~module_thermal module_thermal module~main_ftdss->module~module_thermal module~main_hydraulic main_hydraulic module~main_hydraulic->module~module_domain module~main_hydraulic->module~hydraulic_hydraulic_assemble module~main_hydraulic->module~module_boundary module~main_thermal main_thermal module~main_thermal->module~module_domain module~main_thermal->module~module_boundary module~reordering_methods reordering_methods module~reordering_methods->module~domain_reordering module~reordering_to_original reordering_to_original module~reordering_to_original->module~domain_reordering module~reordering_to_reordered reordering_to_reordered module~reordering_to_reordered->module~domain_reordering module~conditions_boundary_adiabatic conditions_boundary_adiabatic module~conditions_boundary_adiabatic->module~conditions_boundary module~conditions_boundary_base conditions_boundary_base module~conditions_boundary_base->module~conditions_boundary module~conditions_boundary_dirichlet conditions_boundary_dirichlet module~conditions_boundary_dirichlet->module~conditions_boundary module~conditions_initial_laplace conditions_initial_laplace module~conditions_initial_laplace->module~conditions_initial module~conditions_initial_uniform conditions_initial_uniform module~conditions_initial_uniform->module~conditions_initial module~input_output_base input_output_base module~input_output_base->module~input_output module~input_output_obaservation input_output_obaservation module~input_output_obaservation->module~input_output module~input_output_overall_base input_output_overall_base module~input_output_overall_base->module~input_output module~input_output_overall_vtk input_output_overall_vtk module~input_output_overall_vtk->module~input_output module~input_output_overall_vtu input_output_overall_vtu module~input_output_overall_vtu->module~input_output module~input_output_system_logger input_output_system_logger module~input_output_system_logger->module~input_output module~main_hydraulic_crs main_hydraulic_crs module~main_hydraulic_crs->module~main_hydraulic module~main_thermal_crs main_thermal_crs module~main_thermal_crs->module~main_thermal module~module_boundary->module~conditions_boundary module~module_boundary->module~conditions_boundary_manager module~module_hydraulic->module~main_hydraulic module~module_initial->module~conditions_initial module~module_initial->module~conditions_initial_manager module~module_output->module~input_output module~module_thermal->module~main_thermal module~multicoloring_dsatur multicoloring_dsatur module~multicoloring_dsatur->module~domain_multicoloring module~multicoloring_lfo multicoloring_lfo module~multicoloring_lfo->module~domain_multicoloring module~multicoloring_welch_powell multicoloring_welch_powell module~multicoloring_welch_powell->module~domain_multicoloring

Abstract Interfaces

abstract interface

  • private pure elemental function abst_dpsi(self, i, j, r) result(dpsi)

    Arguments

    Type IntentOptional Attributes Name
    class(abst_mesh), intent(in) :: self
    integer(kind=int32), intent(in) :: i
    integer(kind=int32), intent(in) :: j
    type(type_dp_vector_3d), intent(in) :: r

    Return Value real(kind=real64)

abstract interface

  • private pure function abst_get_geometry(self) result(geometry)

    Arguments

    Type IntentOptional Attributes Name
    class(abst_mesh), intent(in) :: self

    Return Value real(kind=real64)

abstract interface

  • private pure elemental function abst_jacobian(self, i, j, r) result(jacobian)

    Arguments

    Type IntentOptional Attributes Name
    class(abst_mesh), intent(in) :: self
    integer(kind=int32), intent(in) :: i
    integer(kind=int32), intent(in) :: j
    type(type_dp_vector_3d), intent(in) :: r

    Return Value real(kind=real64)

abstract interface

  • private pure elemental function abst_jacobian_det(self, r) result(jacobian_det)

    Arguments

    Type IntentOptional Attributes Name
    class(abst_mesh), intent(in) :: self
    type(type_dp_vector_3d), intent(in) :: r

    Return Value real(kind=real64)

abstract interface

  • private pure elemental function abst_psi(self, i, r) result(psi)

    Arguments

    Type IntentOptional Attributes Name
    class(abst_mesh), intent(in) :: self
    integer(kind=int32), intent(in) :: i
    type(type_dp_vector_3d), intent(in) :: r

    Return Value real(kind=real64)


Derived Types

type, public, abstract ::  abst_mesh

Components

Type Visibility Attributes Name Initial
integer(kind=int32), private, allocatable :: connectivity(:)

connectivity information
integer(kind=int32), private :: dimension
type(type_dp_vector_3d), private, allocatable :: gauss(:)

Gauss Quadrature points Coordinate
integer(kind=int32), private :: group

Element group number
integer(kind=int32), private :: id

Element ID
integer(kind=int32), private :: num_gauss

Number of Gauss Quadrature points
integer(kind=int32), private :: num_nodes

Number of nodes in the element
integer(kind=int32), private :: order
integer(kind=int32), private :: type

Element type (5: triangle 1st, 9: square 1st)
real(kind=real64), private, allocatable :: weight(:)

Gauss weight
type(type_dp_pointer), private, allocatable :: x(:)

X coordinate
type(type_dp_pointer), private, allocatable :: y(:)

Y coordinate
type(type_dp_pointer), private, allocatable :: z(:)

Z coordinate

Type-Bound Procedures

procedure, public, pass(self) :: dlerp
procedure(abst_dpsi), public, deferred, pass(self) :: dpsi
procedure, public, pass(self) :: get_connectivity
procedure, public, pass(self) :: get_coordinate
procedure, public, pass(self) :: get_dimension
procedure, public, pass(self) :: get_gauss
procedure(abst_get_geometry), public, deferred, pass(self) :: get_geometry
procedure, public, pass(self) :: get_group
procedure, public, pass(self) :: get_id
procedure, public, pass(self) :: get_num_gauss
procedure, public, pass(self) :: get_num_nodes
procedure, public, pass(self) :: get_order
procedure, public, pass(self) :: get_type
procedure, public, pass(self) :: get_weight
procedure, public, pass(self) :: initialize => initialize_abst_mesh
procedure(abst_jacobian), public, deferred, pass(self) :: jacobian
procedure(abst_jacobian_det), public, deferred, pass(self) :: jacobian_det
procedure, public, pass(self) :: lerp
procedure(abst_psi), public, deferred, pass(self) :: psi

Functions

private pure function dlerp(self, r, value) result(val)

Arguments

Type IntentOptional Attributes Name
class(abst_mesh), intent(in) :: self
type(type_dp_vector_3d), intent(in) :: r
real(kind=real64), intent(in) :: value(:)

Return Value type(type_dp_vector_3d)

private function get_connectivity(self) result(connectivity)

Arguments

Type IntentOptional Attributes Name
class(abst_mesh), intent(in), target :: self

Return Value integer(kind=int32), dimension(:), pointer

private pure function get_coordinate(self, index) result(coordinate)

Arguments

Type IntentOptional Attributes Name
class(abst_mesh), intent(in) :: self
integer(kind=int32), intent(in) :: index

Return Value type(type_dp_vector_3d)

private pure function get_dimension(self) result(dimension)

Arguments

Type IntentOptional Attributes Name
class(abst_mesh), intent(in) :: self

Return Value integer(kind=int32)

private function get_gauss(self) result(gauss)

Arguments

Type IntentOptional Attributes Name
class(abst_mesh), intent(in), target :: self

Return Value type(type_dp_vector_3d), dimension(:), pointer

private pure function get_group(self) result(group)

Arguments

Type IntentOptional Attributes Name
class(abst_mesh), intent(in) :: self

Return Value integer(kind=int32)

private pure function get_id(self) result(id)

Arguments

Type IntentOptional Attributes Name
class(abst_mesh), intent(in) :: self

Return Value integer(kind=int32)

private pure function get_num_gauss(self) result(num_gauss)

Arguments

Type IntentOptional Attributes Name
class(abst_mesh), intent(in) :: self

Return Value integer(kind=int32)

private pure function get_num_nodes(self) result(num_nodes)

Arguments

Type IntentOptional Attributes Name
class(abst_mesh), intent(in) :: self

Return Value integer(kind=int32)

private pure function get_order(self) result(order)

Arguments

Type IntentOptional Attributes Name
class(abst_mesh), intent(in) :: self

Return Value integer(kind=int32)

private pure function get_type(self) result(type)

Arguments

Type IntentOptional Attributes Name
class(abst_mesh), intent(in) :: self

Return Value integer(kind=int32)

private function get_weight(self) result(weight)

Arguments

Type IntentOptional Attributes Name
class(abst_mesh), intent(in), target :: self

Return Value real(kind=real64), dimension(:), pointer

private pure function lerp(self, r, value) result(val)

Arguments

Type IntentOptional Attributes Name
class(abst_mesh), intent(in) :: self
type(type_dp_vector_3d), intent(in) :: r
real(kind=real64), intent(in) :: value(:)

Return Value real(kind=real64)


Subroutines

private subroutine initialize_abst_mesh(self, id, type, group, dimension, order, num_nodes, connectivity, num_gauss, weight, gauss, global_coordinate)

Arguments

Type IntentOptional Attributes Name
class(abst_mesh), intent(inout) :: self
integer(kind=int32), intent(in) :: id
integer(kind=int32), intent(in) :: type
integer(kind=int32), intent(in) :: group
integer(kind=int32), intent(in) :: dimension
integer(kind=int32), intent(in) :: order
integer(kind=int32), intent(in) :: num_nodes
integer(kind=int32), intent(in) :: connectivity(:)
integer(kind=int32), intent(in) :: num_gauss
real(kind=real64), intent(in) :: weight(:)
real(kind=real64), intent(in) :: gauss(:,:)
type(type_dp_3d), intent(in), pointer :: global_coordinate