PoromechanicsClass.f90 Source File


Source Code

module PoromechanicsClass
   use fem
   implicit none

   ! This scheme is based on ZIenkiewicz and Pande, 1982

   type:: Poromechanics_
      type(FEMDomain_), pointer :: FEMDomain
   contains
      procedure, public :: run => runPoromechanics
   end type

contains

! ################################################
   subroutine runPoromechanics(obj)
      class(Poromechanics_), intent(inout) :: obj

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

end module PoromechanicsClass