ContactDiffusionClass.f90 Source File

module ContactDiffusionClass

   use, intrinsic :: iso_fortran_env
   use MathClass
   use FEMIfaceClass
   use FEMDomainClass
   use FiniteDeformationClass

   implicit none

   type :: ContactDiffusion_
      ! Modern
      type(FEMDomainp_), allocatable :: FEMDomains(:)
      type(LinearSolver_) :: solver
      integer(int32), allocatable :: contactlist(:, :)
      real(real64), allocatable :: YoungModulus(:)
      real(real64), allocatable :: PoissonRatio(:)
      real(real64), allocatable :: Density(:)

      real(real64), allocatable :: YoungModulusList(:, :)
      real(real64), allocatable :: PoissonRatioList(:, :)
      real(real64), allocatable :: DensityList(:, :)

      logical :: initialized = .false.

      real(real64) :: gravity(1:3) = [0.0d0, 0.0d0, -9.810d0]

      real(real64) :: penalty = 100000.0d0
   contains
      procedure :: Init => InitializeContactDiffusion
      procedure :: setup => runContactDiffusion
      procedure :: fix => fixContactDiffusion
      procedure :: solve => solveContactDiffusion
   end type
contains

! ###############################################################
   subroutine InitializeContactDiffusion(obj)
      class(ContactDiffusion_), intent(inout) :: obj

   end subroutine
! ###############################################################

! ###############################################################
   subroutine runContactDiffusion(obj)
      class(ContactDiffusion_), intent(inout) :: obj

   end subroutine
! ###############################################################

! ###############################################################
   subroutine fixContactDiffusion(obj)
      class(ContactDiffusion_), intent(inout) :: obj

   end subroutine
! ###############################################################

! ###############################################################
   subroutine solveContactDiffusion(obj)
      class(ContactDiffusion_), intent(inout) :: obj

   end subroutine
! ###############################################################

end module ContactDiffusionClass