223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

not needed

This commit is contained in:
Martin Diehl 2019-10-08 17:37:30 +02:00
parent 040cd3e35d
commit 7d438d3868
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/mesh_base.f90
View File

@ -1,4 +1,3 @@
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH !> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH !> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
@ -8,14 +7,13 @@
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
module mesh_base module mesh_base
use, intrinsic :: iso_c_binding
use prec use prec
use element use element
implicit none implicit none
!--------------------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------------------
!> Properties of a the whole mesh (consisting of one type of elements) !> Properties of a whole mesh (consisting of one type of elements)
!--------------------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------------------
type, public :: tMesh type, public :: tMesh
type(tElement) :: & type(tElement) :: &
@ -33,11 +31,7 @@ module mesh_base
elemType, & elemType, &
Ncells, & Ncells, &
nIPneighbors, & nIPneighbors, &
NcellNodes, & NcellNodes
maxElemsPerNode
integer(pInt), dimension(:), allocatable, public :: &
homogenizationAt, &
microstructureAt
integer(pInt), dimension(:,:), allocatable, public :: & integer(pInt), dimension(:,:), allocatable, public :: &
connectivity connectivity
contains contains
@ -47,6 +41,7 @@ module mesh_base
end type tMesh end type tMesh
contains contains
subroutine tMesh_base_init(self,meshType,elemType,nodes) subroutine tMesh_base_init(self,meshType,elemType,nodes)
class(tMesh) :: self class(tMesh) :: self