75 lines
2.9 KiB
Fortran
75 lines
2.9 KiB
Fortran
!--------------------------------------------------------------------------------------------------
|
|
!> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
|
|
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
|
|
!> @author Christoph Koords, Max-Planck-Institut für Eisenforschung GmbH
|
|
!> @author Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH
|
|
!> @brief Sets up the mesh for the solvers MSC.Marc,FEM, Abaqus and the spectral solver
|
|
!--------------------------------------------------------------------------------------------------
|
|
module mesh_base
|
|
|
|
use prec
|
|
use element
|
|
|
|
implicit none
|
|
|
|
!---------------------------------------------------------------------------------------------------
|
|
!> Properties of a whole mesh (consisting of one type of elements)
|
|
!---------------------------------------------------------------------------------------------------
|
|
type, public :: tMesh
|
|
type(tElement) :: &
|
|
elem
|
|
real(pReal), dimension(:,:), allocatable, public :: &
|
|
ipVolume, & !< volume associated with each IP (initially!)
|
|
node_0, & !< node x,y,z coordinates (initially)
|
|
node !< node x,y,z coordinates (deformed)
|
|
integer(pInt), dimension(:,:), allocatable, public :: &
|
|
cellnodeParent !< cellnode's parent element ID, cellnode's intra-element ID
|
|
character(pStringLen) :: type = "n/a"
|
|
integer(pInt) :: &
|
|
Nnodes, & !< total number of nodes in mesh
|
|
Nelems = -1_pInt, &
|
|
elemType, &
|
|
Ncells, &
|
|
nIPneighbors, &
|
|
NcellNodes
|
|
integer(pInt), dimension(:,:), allocatable, public :: &
|
|
connectivity
|
|
contains
|
|
procedure, pass(self) :: tMesh_base_init
|
|
procedure :: setNelems => tMesh_base_setNelems ! not needed once we compute the cells from the connectivity
|
|
generic, public :: init => tMesh_base_init
|
|
end type tMesh
|
|
|
|
contains
|
|
|
|
subroutine tMesh_base_init(self,meshType,elemType,nodes)
|
|
|
|
class(tMesh) :: self
|
|
character(len=*), intent(in) :: meshType
|
|
integer(pInt), intent(in) :: elemType
|
|
real(pReal), dimension(:,:), intent(in) :: nodes
|
|
|
|
write(6,'(/,a)') ' <<<+- mesh_base_init -+>>>'
|
|
|
|
write(6,*)' mesh type ',meshType
|
|
write(6,*)' # node ',size(nodes,2)
|
|
|
|
self%type = meshType
|
|
call self%elem%init(elemType)
|
|
self%node_0 = nodes
|
|
self%nNodes = size(nodes,2)
|
|
|
|
end subroutine tMesh_base_init
|
|
|
|
|
|
subroutine tMesh_base_setNelems(self,Nelems)
|
|
|
|
class(tMesh) :: self
|
|
integer(pInt), intent(in) :: Nelems
|
|
|
|
self%Nelems = Nelems
|
|
|
|
end subroutine tMesh_base_setNelems
|
|
|
|
end module mesh_base
|