PoromechanicsClass.f90 Source File


Contents


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