class_material Module

  1. class_material.f90
  2. class_material

Describe material state and specify state equations


Uses

  • module~~class_material~~UsesGraph module~class_material class_material matlib matlib module~class_material->matlib module~class_psblas class_psblas module~class_material->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_stopwatch->module~tools_psblas psb_base_mod psb_base_mod module~class_stopwatch->psb_base_mod psb_prec_mod psb_prec_mod module~tools_psblas->psb_prec_mod module~tools_psblas->psb_base_mod psb_krylov_mod psb_krylov_mod module~tools_psblas->psb_krylov_mod

Used by

  • module~~class_material~~UsedByGraph module~class_material class_material module~tools_nemo tools_nemo module~tools_nemo->module~class_material module~class_vector_field class_vector_field module~tools_nemo->module~class_vector_field module~class_scalar_field class_scalar_field module~tools_nemo->module~class_scalar_field module~class_scalar_pde class_scalar_pde module~tools_nemo->module~class_scalar_pde 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_bc class_bc module~tools_nemo->module~class_bc 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~tools_mesh_optimize tools_mesh_optimize module~tools_nemo->module~tools_mesh_optimize module~class_field class_field module~class_field->module~class_material module~class_field->module~class_bc module~class_bc_wall class_bc_wall module~class_bc_wall->module~class_material proc~update_scalar_field update_scalar_field proc~update_scalar_field->module~class_material proc~update_scalar_field->module~class_bc module~class_vector_field->module~class_material module~class_vector_field->module~class_field module~class_vector_field->module~class_bc module~class_material_procedures class_material_procedures module~class_material_procedures->module~class_material proc~create_vector_field create_vector_field proc~create_vector_field->module~class_material proc~create_vector_field->module~class_bc proc~update_boundary_wall_s update_boundary_wall_s proc~update_boundary_wall_s->module~class_material module~class_scalar_field->module~class_material module~class_scalar_field->module~class_field module~class_scalar_field->module~class_bc proc~create_scalar_field create_scalar_field proc~create_scalar_field->module~class_material proc~create_scalar_field->module~class_bc module~class_scalar_pde->module~class_material module~class_scalar_pde->module~class_scalar_field module~class_bc_wall_procedures class_bc_wall_procedures module~class_bc_wall_procedures->module~class_material module~class_bc_wall_procedures->module~class_bc_wall proc~check_field_operands check_field_operands proc~check_field_operands->module~class_material proc~update_boundary_s update_boundary_s proc~update_boundary_s->module~class_material proc~update_vector_field update_vector_field proc~update_vector_field->module~class_material 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 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~vector_field_grad vector_field_grad proc~vector_field_grad->module~class_vector_field 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~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_field_procedures class_field_procedures module~class_field_procedures->module~class_field 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 module~class_bc->module~class_bc_wall 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_pde_laplacian vector_pde_laplacian 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_bc proc~vector_pde_laplacian->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~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 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_scalar_pde_procedures class_scalar_pde_procedures module~class_scalar_pde_procedures->module~class_scalar_pde module~class_vector_pde->module~class_vector_field 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 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~tools_mesh_optimize->module~class_bc 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 proc~vector_pde_div vector_pde_div proc~vector_pde_div->module~class_bc proc~vector_pde_div->module~class_vector_pde 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 proc~scalar_pde_div scalar_pde_div proc~scalar_pde_div->module~class_bc module~scalar_vector_fld_mul_implementation scalar_vector_fld_mul_implementation module~scalar_vector_fld_mul_implementation->module~op_field proc~smooth_mesh smooth_mesh proc~smooth_mesh->module~tools_mesh_check proc~smooth_mesh->module~class_bc proc~smooth_mesh->module~tools_mesh_optimize proc~check_right_handed check_right_handed proc~check_right_handed->module~tools_mesh_check proc~check_right_handed->module~tools_mesh_optimize module~rhie_chow_implementation rhie_chow_implementation module~rhie_chow_implementation->module~op_field module~scalar_pde_laplacian_implementation scalar_pde_laplacian_implementation module~scalar_pde_laplacian_implementation->module~op_laplacian proc~smooth_surf_vtx smooth_surf_vtx proc~smooth_surf_vtx->module~tools_mesh_check proc~smooth_surf_vtx->module~tools_mesh_optimize 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~class_bc_procedures class_bc_procedures module~class_bc_procedures->module~class_bc 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 proc~scalar_pde_laplacian scalar_pde_laplacian proc~scalar_pde_laplacian->module~op_grad proc~scalar_pde_laplacian->module~class_bc proc~smooth_interior_vtx smooth_interior_vtx proc~smooth_interior_vtx->module~tools_mesh_check proc~smooth_interior_vtx->module~tools_mesh_optimize 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 module~smooth_surf_vtx_implementation smooth_surf_vtx_implementation module~smooth_surf_vtx_implementation->module~tools_mesh_optimize module~mobile_verts_implementation mobile_verts_implementation module~mobile_verts_implementation->module~tools_mesh_optimize proc~tet_valid tet_valid proc~tet_valid->module~tools_mesh_optimize module~smooth_mesh_implementation smooth_mesh_implementation module~smooth_mesh_implementation->module~tools_mesh_optimize module~laplacian_smooth_implementation laplacian_smooth_implementation module~laplacian_smooth_implementation->module~tools_mesh_optimize module~check_right_handed_implementation check_right_handed_implementation module~check_right_handed_implementation->module~tools_mesh_optimize module~smooth_interior_vtx_implementation smooth_interior_vtx_implementation module~smooth_interior_vtx_implementation->module~tools_mesh_optimize

Contents

Variables

Interfaces

Derived Types


Variables

TypeVisibility AttributesNameInitial
logical, private, parameter:: debug =.true.
integer, private, parameter:: name_len =15
integer, private, parameter:: nlen =80

Interfaces

interface

  • public module subroutine check_material_consistency(mat1, mat2, where)

    Arguments

    Type IntentOptional AttributesName
    type(matptr), pointer:: mat1(:)
    type(matptr), pointer:: mat2(:)
    character(len=*), intent(in) :: where

public interface check_temp

  • public subroutine check_temp_s(t, mat)

    Arguments

    Type IntentOptional AttributesName
    real(kind=psb_dpk_), intent(in) :: t
    type(material), intent(in) :: mat

  • public subroutine check_temp_v(t, mat)

    Arguments

    Type IntentOptional AttributesName
    real(kind=psb_dpk_), intent(in) :: t(:)
    type(material), intent(in) :: mat

public interface matlaw

Physical Properties Laws

  • public subroutine matlaw_matlib_s(mat, t, property, f)

    Arguments

    Type IntentOptional AttributesName
    class(material), intent(in) :: mat
    real(kind=psb_dpk_), intent(in) :: t
    character(len=*), intent(in) :: property
    real(kind=psb_dpk_), intent(out) :: f

  • public subroutine matlaw_s(mats, im, t, dim, f)

    Arguments

    Type IntentOptional AttributesName
    class(matptr), intent(in), optional target:: mats(:)
    integer, intent(in) :: im
    real(kind=psb_dpk_), intent(in) :: t
    type(dimensions), intent(in) :: dim
    real(kind=psb_dpk_), intent(out) :: f

  • public subroutine matlaw_v(mats, im, t, dim, f)

    Arguments

    Type IntentOptional AttributesName
    class(matptr), intent(in), optional target:: mats(:)
    integer, intent(in) :: im(:)
    real(kind=psb_dpk_), intent(in) :: t(:)
    type(dimensions), intent(in) :: dim
    real(kind=psb_dpk_), intent(out) :: f(:)

interface

  • private module subroutine create_material(mat, input_file, block_id)

    Global Constructor

    Arguments

    Type IntentOptional AttributesName
    class(material), intent(out) :: mat
    character(len=*), intent(in) :: input_file
    integer, intent(in) :: block_id

interface

  • private module subroutine debug_material(mat)

    Arguments

    Type IntentOptional AttributesName
    type(material), intent(in) :: mat

interface

  • private module subroutine free_material(mat)

    Arguments

    Type IntentOptional AttributesName
    class(material), intent(inout) :: mat

interface

  • private module function get_material_id(mat)

    Getter

    Arguments

    Type IntentOptional AttributesName
    class(material), intent(in) :: mat

    Return Value integer

interface

  • private module function get_material_name(mat)

    Getter

    Arguments

    Type IntentOptional AttributesName
    class(material), intent(in) :: mat

    Return Value character(len=name_len)

interface

  • private module function nemo_material_sizeof(mat)

    Arguments

    Type IntentOptional AttributesName
    class(material), intent(in) :: mat

    Return Value integer(kind=nemo_int_long_)


Derived Types

type, public :: material

Encapsulate material properties and equations of state

Components

TypeVisibility AttributesNameInitial
real(kind=psb_dpk_), private :: dtemp
integer, private :: ilaw(4)
real(kind=psb_dpk_), private, allocatable:: lambda(:)

elastic modulus
integer, private :: mat_id
character(len=name_len), private :: mat_type
real(kind=psb_dpk_), private, allocatable:: mu(:)

viscosity
character(len=name_len), private :: name
real(kind=psb_dpk_), private, allocatable:: rho(:)

density
real(kind=psb_dpk_), private, allocatable:: sh(:)

shear modulus
character(len=1), private :: state
real(kind=psb_dpk_), private :: tmax
real(kind=psb_dpk_), private :: tmin

Type-Bound Procedures

procedure, public :: create_material
procedure, public :: free_material
generic, public :: mat_id_ => get_material_id
generic, public :: name_ => get_material_name
generic, public :: nemo_sizeof => nemo_material_sizeof
procedure, private :: get_material_id
procedure, private :: get_material_name
procedure, private :: nemo_material_sizeof

type, public :: matptr

Element type for use in dynamically allocating arrays of material objects (TODO: Modernize by replacing matptr arrays with allocatable or assumed-shape arrays of material objects.)

Components

TypeVisibility AttributesNameInitial
type(material), public :: mat