class_bc Module

  1. class_bc.f90
  2. class_bc

Emulate runtime polymorphism for boundary condition classes.


Uses

  • module~~class_bc~~UsesGraph module~class_bc class_bc module~class_motion class_motion module~class_bc->module~class_motion module~class_bc_math class_bc_math module~class_bc->module~class_bc_math module~class_psblas class_psblas module~class_bc->module~class_psblas module~class_bc_wall class_bc_wall module~class_bc->module~class_bc_wall module~class_motion->module~class_psblas module~class_vector class_vector module~class_motion->module~class_vector module~class_bc_math->module~class_psblas module~class_stopwatch class_stopwatch module~class_psblas->module~class_stopwatch module~tools_psblas tools_psblas module~class_psblas->module~tools_psblas module~class_bc_wall->module~class_bc_math module~class_bc_wall->module~class_psblas module~class_dimensions class_dimensions module~class_bc_wall->module~class_dimensions module~class_bc_wall->module~class_vector module~class_material class_material module~class_bc_wall->module~class_material module~class_mesh class_mesh module~class_bc_wall->module~class_mesh module~class_stopwatch->module~tools_psblas psb_base_mod psb_base_mod module~class_stopwatch->psb_base_mod psb_krylov_mod psb_krylov_mod module~tools_psblas->psb_krylov_mod psb_prec_mod psb_prec_mod module~tools_psblas->psb_prec_mod module~tools_psblas->psb_base_mod module~class_dimensions->module~class_psblas module~class_vector->module~class_psblas module~class_material->module~class_psblas matlib matlib module~class_material->matlib module~class_mesh->module~class_psblas module~class_mesh->module~class_vector module~class_cell class_cell module~class_mesh->module~class_cell module~class_keytable class_keytable module~class_mesh->module~class_keytable module~class_surface class_surface module~class_mesh->module~class_surface module~class_connectivity class_connectivity module~class_mesh->module~class_connectivity module~class_least_squares class_least_squares module~class_mesh->module~class_least_squares module~class_mesh->psb_base_mod module~class_vertex class_vertex module~class_mesh->module~class_vertex module~grid_interface grid_interface module~class_mesh->module~grid_interface module~class_face class_face module~class_mesh->module~class_face module~class_cell->module~class_psblas module~class_surface->module~class_connectivity module~class_cylinder class_cylinder module~class_surface->module~class_cylinder module~class_plane class_plane module~class_surface->module~class_plane module~class_connectivity->module~class_psblas module~class_least_squares->module~class_psblas module~class_least_squares->module~class_connectivity module~class_vertex->module~class_psblas module~class_vertex->module~class_vector module~object_interface object_interface module~grid_interface->module~object_interface module~units_interface units_interface module~grid_interface->module~units_interface module~class_face->module~class_psblas module~class_cylinder->module~class_psblas module~class_cylinder->module~class_vector module~class_cylinder->module~class_vertex module~class_plane->module~class_psblas module~class_plane->module~class_vector module~units_interface->module~object_interface

Used by

  • module~~class_bc~~UsedByGraph module~class_bc class_bc module~tools_nemo tools_nemo module~tools_nemo->module~class_bc module~class_vector_field class_vector_field module~tools_nemo->module~class_vector_field module~tools_mesh_optimize tools_mesh_optimize module~tools_nemo->module~tools_mesh_optimize module~class_scalar_field class_scalar_field module~tools_nemo->module~class_scalar_field module~op_grad op_grad module~tools_nemo->module~op_grad module~class_output class_output module~tools_nemo->module~class_output module~op_field op_field module~tools_nemo->module~op_field module~op_ddt op_ddt module~tools_nemo->module~op_ddt module~tools_mesh_check tools_mesh_check module~tools_nemo->module~tools_mesh_check module~op_d2dt2 op_d2dt2 module~tools_nemo->module~op_d2dt2 module~class_scalar_pde class_scalar_pde module~tools_nemo->module~class_scalar_pde module~op_div op_div module~tools_nemo->module~op_div module~op_laplacian op_laplacian module~tools_nemo->module~op_laplacian module~tools_output tools_output module~tools_nemo->module~tools_output module~op_source op_source module~tools_nemo->module~op_source module~class_vector_pde class_vector_pde module~tools_nemo->module~class_vector_pde module~class_field class_field module~class_field->module~class_bc module~class_bc_procedures class_bc_procedures module~class_bc_procedures->module~class_bc proc~update_scalar_field update_scalar_field proc~update_scalar_field->module~class_bc module~class_vector_field->module~class_bc module~class_vector_field->module~class_field proc~create_vector_field create_vector_field proc~create_vector_field->module~class_bc proc~vector_pde_laplacian vector_pde_laplacian proc~vector_pde_laplacian->module~class_bc proc~vector_pde_laplacian->module~class_vector_field proc~vector_pde_laplacian->module~class_scalar_field proc~vector_pde_laplacian->module~op_grad proc~vector_pde_laplacian->module~class_vector_pde proc~scalar_pde_laplacian scalar_pde_laplacian proc~scalar_pde_laplacian->module~class_bc proc~scalar_pde_laplacian->module~op_grad module~tools_mesh_optimize->module~class_bc module~class_scalar_field->module~class_bc module~class_scalar_field->module~class_field proc~scalar_pde_div scalar_pde_div proc~scalar_pde_div->module~class_bc proc~create_scalar_field create_scalar_field proc~create_scalar_field->module~class_bc proc~smooth_mesh smooth_mesh proc~smooth_mesh->module~class_bc proc~smooth_mesh->module~tools_mesh_optimize proc~smooth_mesh->module~tools_mesh_check proc~vector_pde_div vector_pde_div proc~vector_pde_div->module~class_bc proc~vector_pde_div->module~class_vector_pde proc~update_vector_field update_vector_field proc~update_vector_field->module~class_bc proc~rhie_chow rhie_chow proc~rhie_chow->module~class_field proc~rhie_chow->module~class_vector_field proc~rhie_chow->module~class_scalar_field module~smooth_surf_vtx_implementation smooth_surf_vtx_implementation module~smooth_surf_vtx_implementation->module~tools_mesh_optimize proc~vector_pde_d2dt2 vector_pde_d2dt2 proc~vector_pde_d2dt2->module~class_vector_field proc~vector_pde_d2dt2->module~class_scalar_field proc~vector_pde_d2dt2->module~class_vector_pde proc~vector_pde_grad vector_pde_grad proc~vector_pde_grad->module~class_scalar_field proc~vector_pde_grad->module~class_vector_pde proc~tet_valid tet_valid proc~tet_valid->module~tools_mesh_optimize proc~vector_field_grad vector_field_grad proc~vector_field_grad->module~class_vector_field module~smooth_mesh_implementation smooth_mesh_implementation module~smooth_mesh_implementation->module~tools_mesh_optimize module~op_grad->module~class_vector_field module~op_grad->module~class_scalar_field module~op_grad->module~class_vector_pde module~class_output->module~class_vector_field module~class_output->module~class_scalar_field proc~vector_pde_ddt vector_pde_ddt proc~vector_pde_ddt->module~class_vector_field proc~vector_pde_ddt->module~class_scalar_field proc~vector_pde_ddt->module~class_vector_pde module~op_field->module~class_vector_field module~op_field->module~class_scalar_field proc~vector_pde_source vector_pde_source proc~vector_pde_source->module~class_vector_field proc~vector_pde_source->module~class_scalar_pde proc~vector_pde_source->module~class_vector_pde proc~get_scalar_field get_scalar_field proc~get_scalar_field->module~class_scalar_field proc~get_scalar_field->module~class_output module~class_vtk_output class_vtk_output module~class_vtk_output->module~class_vector_field module~class_vtk_output->module~class_scalar_field module~class_vtk_output->module~class_output module~op_ddt->module~class_vector_field module~op_ddt->module~class_scalar_field module~op_ddt->module~class_scalar_pde module~op_ddt->module~class_vector_pde module~tools_mesh_check->module~class_scalar_field module~laplacian_smooth_implementation laplacian_smooth_implementation module~laplacian_smooth_implementation->module~tools_mesh_optimize module~op_d2dt2->module~class_vector_field module~op_d2dt2->module~class_scalar_field module~op_d2dt2->module~class_scalar_pde module~op_d2dt2->module~class_vector_pde module~class_scalar_pde->module~class_scalar_field module~class_field_procedures class_field_procedures module~class_field_procedures->module~class_field proc~check_right_handed check_right_handed proc~check_right_handed->module~tools_mesh_optimize proc~check_right_handed->module~tools_mesh_check module~class_vector_field_procedures class_vector_field_procedures module~class_vector_field_procedures->module~class_field module~class_vector_field_procedures->module~class_vector_field proc~smooth_surf_vtx smooth_surf_vtx proc~smooth_surf_vtx->module~tools_mesh_optimize proc~smooth_surf_vtx->module~tools_mesh_check proc~write_vector_field write_vector_field proc~write_vector_field->module~class_vector_field proc~write_vector_field->module~class_output module~op_div->module~class_vector_field module~op_div->module~class_scalar_field module~op_div->module~class_scalar_pde module~op_div->module~class_vector_pde proc~vector_field_flux vector_field_flux proc~vector_field_flux->module~class_field proc~vector_field_flux->module~class_vector_field proc~vector_field_flux->module~class_scalar_field module~op_laplacian->module~class_vector_field module~op_laplacian->module~class_scalar_field module~op_laplacian->module~class_scalar_pde module~op_laplacian->module~class_vector_pde module~tools_output->module~class_vector_field module~tools_output->module~class_scalar_field module~tools_output->module~class_output module~check_right_handed_implementation check_right_handed_implementation module~check_right_handed_implementation->module~tools_mesh_optimize module~op_source->module~class_scalar_field module~op_source->module~class_scalar_pde proc~solve_vector_pde solve_vector_pde proc~solve_vector_pde->module~class_vector_field proc~check_mesh_quality check_mesh_quality proc~check_mesh_quality->module~class_scalar_field proc~check_mesh_quality->module~tools_mesh_check module~class_exodus_procedures class_exodus_procedures module~class_exodus_procedures->module~class_vector_field module~class_exodus_procedures->module~class_scalar_field module~class_exodus_procedures->module~class_output module~class_exodus class_exodus module~class_exodus_procedures->module~class_exodus proc~scalar_vector_fld_mul scalar_vector_fld_mul proc~scalar_vector_fld_mul->module~class_field proc~scalar_vector_fld_mul->module~class_vector_field proc~scalar_vector_fld_mul->module~class_scalar_field module~mobile_verts_implementation mobile_verts_implementation module~mobile_verts_implementation->module~tools_mesh_optimize proc~scalar_fld_vector_mul scalar_fld_vector_mul proc~scalar_fld_vector_mul->module~class_field proc~scalar_fld_vector_mul->module~class_vector_field proc~scalar_fld_vector_mul->module~class_scalar_field module~class_vector_pde->module~class_vector_field proc~smooth_interior_vtx smooth_interior_vtx proc~smooth_interior_vtx->module~tools_mesh_optimize proc~smooth_interior_vtx->module~tools_mesh_check proc~scalar_field_grad scalar_field_grad proc~scalar_field_grad->module~class_scalar_field proc~get_vector_field get_vector_field proc~get_vector_field->module~class_vector_field proc~get_vector_field->module~class_scalar_field proc~get_vector_field->module~class_output module~class_exodus->module~class_vector_field module~class_exodus->module~class_scalar_field module~class_exodus->module~class_output proc~solve_scalar_pde solve_scalar_pde proc~solve_scalar_pde->module~class_scalar_field module~class_scalar_field_procedures class_scalar_field_procedures module~class_scalar_field_procedures->module~class_field module~class_scalar_field_procedures->module~class_scalar_field module~smooth_interior_vtx_implementation smooth_interior_vtx_implementation module~smooth_interior_vtx_implementation->module~tools_mesh_optimize proc~write_vtk_mesh write_vtk_mesh proc~write_vtk_mesh->module~class_output module~vector_pde_laplacian_implementation vector_pde_laplacian_implementation module~vector_pde_laplacian_implementation->module~op_laplacian module~tools_mesh_check_tet tools_mesh_check_tet module~tools_mesh_check_tet->module~tools_mesh_check module~class_output_procedures class_output_procedures module~class_output_procedures->module~class_output module~scalar_pde_d2dt2_implementation scalar_pde_d2dt2_implementation module~scalar_pde_d2dt2_implementation->module~op_d2dt2 module~write_mesh_implementation write_mesh_implementation module~write_mesh_implementation->module~tools_output module~vector_pde_ddt_implementation vector_pde_ddt_implementation module~vector_pde_ddt_implementation->module~op_ddt module~flux_pde_div_implementation flux_pde_div_implementation module~flux_pde_div_implementation->module~op_div proc~create_output create_output proc~create_output->module~class_vtk_output module~class_vtk_output_procedures class_vtk_output_procedures module~class_vtk_output_procedures->module~class_vtk_output module~op_d2dt2_procedures op_d2dt2_procedures module~op_d2dt2_procedures->module~op_d2dt2 module~op_ddt_procedures op_ddt_procedures module~op_ddt_procedures->module~op_ddt module~scalar_vector_fld_mul_implementation scalar_vector_fld_mul_implementation module~scalar_vector_fld_mul_implementation->module~op_field module~scalar_pde_laplacian_implementation scalar_pde_laplacian_implementation module~scalar_pde_laplacian_implementation->module~op_laplacian module~rhie_chow_implementation rhie_chow_implementation module~rhie_chow_implementation->module~op_field module~write_vector_field_implementation write_vector_field_implementation module~write_vector_field_implementation->module~tools_output module~vector_pde_div_implementation vector_pde_div_implementation module~vector_pde_div_implementation->module~op_div module~scalar_field_grad_implementation scalar_field_grad_implementation module~scalar_field_grad_implementation->module~op_grad module~op_laplacian_procedures op_laplacian_procedures module~op_laplacian_procedures->module~op_laplacian module~tools_mesh_check_vertex tools_mesh_check_vertex module~tools_mesh_check_vertex->module~tools_mesh_check module~write_scalar_field_implementation write_scalar_field_implementation module~write_scalar_field_implementation->module~tools_output proc~write_mesh write_mesh proc~write_mesh->module~class_output module~class_vector_pde_procedures class_vector_pde_procedures module~class_vector_pde_procedures->module~class_vector_pde module~scalar_pde_div_implementation scalar_pde_div_implementation module~scalar_pde_div_implementation->module~op_div module~vector_field_flux_implementation vector_field_flux_implementation module~vector_field_flux_implementation->module~op_field module~check_mesh_quality_implementation check_mesh_quality_implementation module~check_mesh_quality_implementation->module~tools_mesh_check module~scalar_pde_source_implementation scalar_pde_source_implementation module~scalar_pde_source_implementation->module~op_source module~vector_pde_d2dt2_implementation vector_pde_d2dt2_implementation module~vector_pde_d2dt2_implementation->module~op_d2dt2 module~vector_field_grad_implementation vector_field_grad_implementation module~vector_field_grad_implementation->module~op_grad module~class_scalar_pde_procedures class_scalar_pde_procedures module~class_scalar_pde_procedures->module~class_scalar_pde module~scalar_pde_ddt_implementation scalar_pde_ddt_implementation module~scalar_pde_ddt_implementation->module~op_ddt module~scalar_fld_vector_mul_implementation scalar_fld_vector_mul_implementation module~scalar_fld_vector_mul_implementation->module~op_field module~vector_pde_grad_implementation vector_pde_grad_implementation module~vector_pde_grad_implementation->module~op_grad

Contents

Interfaces

Derived Types


Interfaces

interface

----- Getters -----

Read more…

  • public module subroutine create_bc(bc, input_file, sec, msh)

    Global constructor

    Arguments

    Type IntentOptional AttributesName
    type(bc_poly), allocatable:: bc(:)
    character(len=*), intent(in) :: input_file
    character(len=*), intent(in) :: sec
    type(mesh), intent(in) :: msh

interface

----- Getters -----

Read more…

  • public module subroutine free_bc(bc)

    ----- Destructor -----

    Arguments

    Type IntentOptional AttributesName
    type(bc_poly), allocatable:: bc(:)

interface

----- Getters -----

Read more…

  • public module subroutine move_boundaries(msh, bc, t1, t2)

    loop over all boundaries, moving the vertices and conceptual surfaces from the time interval t1 to t2

    Arguments

    Type IntentOptional AttributesName
    type(mesh), intent(inout) :: msh
    type(bc_poly), intent(in) :: bc(:)
    real(kind=psb_dpk_) :: t1
    real(kind=psb_dpk_) :: t2

public interface update_boundary

----- Boundary Values Updater -----

  • public subroutine update_boundary_s(ib, bc, dim, msh, mats, im, x, bx)

    Arguments

    Type IntentOptional AttributesName
    integer, intent(in) :: ib
    type(bc_poly), intent(in) :: bc
    type(dimensions), intent(in) :: dim
    type(mesh), intent(in) :: msh
    type(matptr), intent(in), pointer:: mats(:)
    integer, intent(in) :: im(:)
    real(kind=psb_dpk_), intent(in) :: x(:)
    real(kind=psb_dpk_), intent(inout) :: bx(:)

  • public subroutine update_boundary_v(ib, bc, dim, msh, x, bx)

    Arguments

    Type IntentOptional AttributesName
    integer, intent(in) :: ib
    type(bc_poly), intent(in) :: bc
    type(dimensions), intent(in) :: dim
    type(mesh), intent(in) :: msh
    type(vector), intent(in) :: x(:)
    type(vector), intent(inout) :: bx(:)

interface

----- Getters -----

Read more…

  • private module subroutine get_abc_s(bc, dim, id, a, b, c)

    Arguments

    Type IntentOptional AttributesName
    class(bc_poly), intent(in) :: bc
    type(dimensions), intent(in) :: dim
    integer, intent(out) :: id
    real(kind=psb_dpk_), intent(inout) :: a(:)
    real(kind=psb_dpk_), intent(inout) :: b(:)
    real(kind=psb_dpk_), intent(inout) :: c(:)

interface

----- Getters -----

Read more…

  • private module subroutine get_abc_v(bc, dim, id, a, b, c)

    Arguments

    Type IntentOptional AttributesName
    class(bc_poly), intent(in) :: bc
    type(dimensions), intent(in) :: dim
    integer, intent(out) :: id
    real(kind=psb_dpk_), intent(inout) :: a(:)
    real(kind=psb_dpk_), intent(inout) :: b(:)
    type(vector), intent(inout) :: c(:)

interface

----- Getters -----

Read more…

  • private module function get_bc_motion_displacement(bc, x1, x2) result(res)

    Arguments

    Type IntentOptional AttributesName
    class(bc_poly), intent(in) :: bc
    real(kind=psb_dpk_), intent(in) :: x1
    real(kind=psb_dpk_), intent(in) :: x2

    Return Value type(vector)

interface

----- Getters -----

Read more…

  • private module function get_bc_motion_velocity(bc, x) result(res)

    Arguments

    Type IntentOptional AttributesName
    class(bc_poly), intent(in) :: bc
    real(kind=psb_dpk_), intent(in) :: x

    Return Value type(vector)

interface

----- Getters -----

Read more…

  • private module function get_bc_surface_motion(bc)

    Arguments

    Type IntentOptional AttributesName
    class(bc_poly), intent(in) :: bc

    Return Value integer

interface

----- Getters -----

Read more…

  • private module function get_bc_vertex_motion(bc)

    Arguments

    Type IntentOptional AttributesName
    class(bc_poly), intent(in) :: bc

    Return Value integer

interface

----- Getters -----

Read more…

  • private elemental module function nemo_bc_poly_sizeof(bc)

    Arguments

    Type IntentOptional AttributesName
    class(bc_poly), intent(in) :: bc

    Return Value integer(kind=nemo_int_long_)

interface

----- Getters -----

Read more…

  • private module subroutine set_bc_poly_map_s(bc, i, a, b, c)

    Arguments

    Type IntentOptional AttributesName
    class(bc_poly), intent(inout) :: bc
    integer, intent(in) :: i
    real(kind=psb_dpk_), intent(in) :: a
    real(kind=psb_dpk_), intent(in) :: b
    real(kind=psb_dpk_), intent(in) :: c

interface

----- Getters -----

Read more…

  • private module subroutine set_bc_poly_map_v(bc, i, a, b, c)

    Arguments

    Type IntentOptional AttributesName
    class(bc_poly), intent(inout) :: bc
    integer, intent(in) :: i
    real(kind=psb_dpk_), intent(in) :: a
    real(kind=psb_dpk_), intent(in) :: b
    type(vector), intent(in) :: c

Derived Types

type, public :: bc_poly

Implement a runtime polymorphism pattern [1] to emulate an abstract parent of the bc_math/bc_wall classes. TODO: Modernize by 1. Refactoring math/wall so they extend bc_poly, 2. Replace all TYPE(bc_poly) with CLASS(bc_poly), and 3. Make bc_poly ABSTRACT.

Read more…

Components

TypeVisibility AttributesNameInitial
integer, private :: id
type(bc_math), private, pointer:: math=> null()
type(motion), private :: mot
type(bc_wall), private, pointer:: wall=> null()

Type-Bound Procedures

generic, public :: get_abc => get_abc_s, get_abc_v
generic, public :: get_displacement => get_bc_motion_displacement
generic, public :: get_velocity => get_bc_motion_velocity
generic, public :: nemo_sizeof => nemo_bc_poly_sizeof
generic, public :: set_bc => set_bc_poly_map_s, set_bc_poly_map_v
generic, public :: surface_motion_ => get_bc_surface_motion
generic, public :: vertex_motion_ => get_bc_vertex_motion
procedure, private :: get_abc_s
procedure, private :: get_abc_v
procedure, private :: get_bc_motion_displacement
procedure, private :: get_bc_motion_velocity
procedure, private :: get_bc_surface_motion
procedure, private :: get_bc_vertex_motion
procedure, private :: nemo_bc_poly_sizeof
procedure, private :: set_bc_poly_map_s
procedure, private :: set_bc_poly_map_v