create_side Function

public function create_side(id, global_coordinate, input) result(new_side)

Arguments

Type IntentOptional Attributes Name
integer(kind=int32), intent(in) :: id
type(type_dp_3d), intent(in), pointer :: global_coordinate
type(type_input), intent(in) :: input

Return Value class(abst_side), allocatable


Called by

proc~~create_side~~CalledByGraph proc~create_side create_side proc~initialize_type_domain type_domain%initialize_type_domain proc~initialize_type_domain->proc~create_side

Source Code

    function create_side(id, global_coordinate, input) result(new_side)
        implicit none
        integer(int32), intent(in) :: id
        type(type_dp_3d), pointer, intent(in) :: global_coordinate
        type(type_input), intent(in) :: input
        class(abst_side), allocatable :: new_side

        character(:), allocatable :: type_name

        type_name = input%geometry%vtk%cells(id)%cell_type_name

        select case (type_name)
        case ("Line")
            new_side = type_side_first(id, global_coordinate, input)
        case ("QuadraticEdge")
            new_side = type_side_second(id, global_coordinate, input)
        case default
            write (*, '(a)') "Error: Unknown side shape type = "//type_name
        end select

    end function create_side