TSFEM_ Derived Type

type, public :: TSFEM_


Components

Type Visibility Attributes Name Initial
type(WaveKernel_), public :: WK
type(FEMDomainp_), public :: femdomain
type(MPI_), public, pointer :: mpid => null()
integer(kind=int32), public, allocatable :: fix_idx(:)
real(kind=real64), public, allocatable :: f_n(:)
real(kind=real64), public, allocatable :: u(:)
real(kind=real64), public, allocatable :: v(:)
real(kind=real64), public, allocatable :: u_n(:)
real(kind=real64), public, allocatable :: v_n(:)
real(kind=real64), public, allocatable :: u_2(:)
real(kind=real64), public, allocatable :: v_2(:)
real(kind=real64), public, allocatable :: u_1(:)
real(kind=real64), public, allocatable :: v_1(:)
real(kind=real64), public, allocatable :: u_old(:)
real(kind=real64), public, allocatable :: v_old(:)
real(kind=real64), public, allocatable :: YoungModulus(:)
real(kind=real64), public, allocatable :: PoissonRatio(:)
real(kind=real64), public, allocatable :: Density(:)
real(kind=real64), public :: relative_cutoff_frequency = 1.0d0
real(kind=real64), public :: dt = 1.0d0/100.0d0
real(kind=real64), public :: t = 0.0d0
integer(kind=int32), public :: timestep = 0
integer(kind=int32), public :: start_step = 1
integer(kind=int32), public :: interval = 0
integer(kind=int32), public :: itrmax = 50
integer(kind=int32), public :: DOF
real(kind=real64), public :: tol = dble(1.0e-25)
logical, public :: initialized = .false.

Type-Bound Procedures

procedure, public :: init => initTSFEM

  • public subroutine initTSFEM(this, femdomain, Density, YoungModulus, PoissonRatio, DOF, mpid)

    Arguments

    Type IntentOptional Attributes Name
    class(TSFEM_), intent(inout) :: this
    type(FEMDomain_), intent(inout), target :: femdomain
    real(kind=real64), intent(in) :: Density
    real(kind=real64), intent(in) :: YoungModulus
    real(kind=real64), intent(in), optional :: PoissonRatio
    integer(kind=int32), intent(in) :: DOF
    type(MPI_), intent(in), optional, target :: mpid

procedure, public :: DirichletBoundary => DirichletBoundaryTSFEM

  • public recursive subroutine DirichletBoundaryTSFEM(this, NodeList, direction)

    Arguments

    Type IntentOptional Attributes Name
    class(TSFEM_), intent(inout) :: this
    integer(kind=int32), intent(in) :: NodeList(:)
    character(len=*), intent(in) :: direction

procedure, public, pass :: NeumannBoundaryTSFEM

  • public recursive subroutine NeumannBoundaryTSFEM(this, NodeList, Force, direction, clear)

    Arguments

    Type IntentOptional Attributes Name
    class(TSFEM_), intent(inout) :: this
    integer(kind=int32), intent(in) :: NodeList(:)
    real(kind=real64), intent(in) :: Force
    character(len=*), intent(in) :: direction
    logical, intent(in), optional :: clear

procedure, public, pass :: NeumannBoundary_multiple_ForceTSFEM

  • public recursive subroutine NeumannBoundary_multiple_ForceTSFEM(this, NodeList, Force, direction, clear)

    Arguments

    Type IntentOptional Attributes Name
    class(TSFEM_), intent(inout) :: this
    integer(kind=int32), intent(in) :: NodeList(:)
    real(kind=real64), intent(in) :: Force(:)
    character(len=*), intent(in) :: direction
    logical, intent(in), optional :: clear

generic, public :: NeumannBoundary => NeumannBoundary_multiple_ForceTSFEM, NeumannBoundaryTSFEM

  • public recursive subroutine NeumannBoundary_multiple_ForceTSFEM(this, NodeList, Force, direction, clear)

    Arguments

    Type IntentOptional Attributes Name
    class(TSFEM_), intent(inout) :: this
    integer(kind=int32), intent(in) :: NodeList(:)
    real(kind=real64), intent(in) :: Force(:)
    character(len=*), intent(in) :: direction
    logical, intent(in), optional :: clear

  • public recursive subroutine NeumannBoundaryTSFEM(this, NodeList, Force, direction, clear)

    Arguments

    Type IntentOptional Attributes Name
    class(TSFEM_), intent(inout) :: this
    integer(kind=int32), intent(in) :: NodeList(:)
    real(kind=real64), intent(in) :: Force
    character(len=*), intent(in) :: direction
    logical, intent(in), optional :: clear

procedure, public :: time => timeTSFEM

  • public subroutine timeTSFEM(this, dt, t, timestep)

    Arguments

    Type IntentOptional Attributes Name
    class(TSFEM_), intent(inout) :: this
    real(kind=real64), intent(in) :: dt
    real(kind=real64), intent(in) :: t
    integer(kind=int32), intent(in) :: timestep

procedure, public :: save => saveTSFEM

  • public subroutine saveTSFEM(this, name)

    Arguments

    Type IntentOptional Attributes Name
    class(TSFEM_), intent(inout) :: this
    character(len=*), intent(in) :: name

procedure, public :: movie => movieTSFEM

  • public subroutine movieTSFEM(this, name)

    Arguments

    Type IntentOptional Attributes Name
    class(TSFEM_), intent(inout) :: this
    character(len=*), intent(in) :: name

procedure, public :: AbsorbingBoundary => AbsorbingBoundaryTSFEM

  • public subroutine AbsorbingBoundaryTSFEM(this, NodeList, direction)

    Arguments

    Type IntentOptional Attributes Name
    class(TSFEM_), intent(inout) :: this
    integer(kind=int32), intent(in) :: NodeList(:)
    character(len=*), intent(in) :: direction