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

not needed for spectral

This commit is contained in:
Martin Diehl 2018-09-23 15:57:21 +02:00
parent c1b8854132
commit bd60018513
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/mesh.f90
View File

@ -19,7 +19,6 @@ module mesh
mesh_Nnodes, & !< total number of nodes in mesh mesh_Nnodes, & !< total number of nodes in mesh
mesh_Ncellnodes, & !< total number of cell nodes in mesh (including duplicates) mesh_Ncellnodes, & !< total number of cell nodes in mesh (including duplicates)
mesh_Ncells, & !< total number of cells in mesh mesh_Ncells, & !< total number of cells in mesh
mesh_maxNnodes, & !< max number of nodes in any CP element
mesh_maxNips, & !< max number of IPs in any CP element mesh_maxNips, & !< max number of IPs in any CP element
mesh_maxNipNeighbors, & !< max number of IP neighbors in any CP element mesh_maxNipNeighbors, & !< max number of IP neighbors in any CP element
mesh_maxNsharedElems, & !< max number of CP elements sharing a node mesh_maxNsharedElems, & !< max number of CP elements sharing a node
@ -348,6 +347,7 @@ integer(pInt), dimension(:,:), allocatable, private :: &
#if defined(Marc4DAMASK) || defined(Abaqus) #if defined(Marc4DAMASK) || defined(Abaqus)
integer(pInt), private :: & integer(pInt), private :: &
mesh_maxNnodes, & !< max number of nodes in any CP element
mesh_NelemSets mesh_NelemSets
character(len=64), dimension(:), allocatable, private :: & character(len=64), dimension(:), allocatable, private :: &
mesh_nameElemSet, & !< names of elementSet mesh_nameElemSet, & !< names of elementSet
@ -1166,7 +1166,7 @@ end subroutine mesh_spectral_count
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief Gets maximum count of nodes, IPs, IP neighbors, and subNodes among cpElements. !> @brief Gets maximum count of nodes, IPs, IP neighbors, and subNodes among cpElements.
!! Sets global values 'mesh_maxNnodes', 'mesh_maxNips', 'mesh_maxNipNeighbors', !! Sets global values 'mesh_maxNips', 'mesh_maxNipNeighbors',
!! and 'mesh_maxNcellnodes' !! and 'mesh_maxNcellnodes'
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine mesh_spectral_count_cpSizes subroutine mesh_spectral_count_cpSizes
@ -1178,7 +1178,6 @@ subroutine mesh_spectral_count_cpSizes
g = FE_geomtype(t) g = FE_geomtype(t)
c = FE_celltype(g) c = FE_celltype(g)
mesh_maxNnodes = FE_Nnodes(t)
mesh_maxNips = FE_Nips(g) mesh_maxNips = FE_Nips(g)
mesh_maxNipNeighbors = FE_NipNeighbors(c) mesh_maxNipNeighbors = FE_NipNeighbors(c)
mesh_maxNcellnodes = FE_Ncellnodes(g) mesh_maxNcellnodes = FE_Ncellnodes(g)
@ -1282,7 +1281,7 @@ subroutine mesh_spectral_build_elements(fileUnit)
i = IO_countContinuousIntValues(fileUnit) i = IO_countContinuousIntValues(fileUnit)
maxIntCount = max(maxIntCount, i) maxIntCount = max(maxIntCount, i)
enddo enddo
allocate (mesh_element (4_pInt+mesh_maxNnodes,mesh_NcpElems), source = 0_pInt) allocate (mesh_element (4_pInt+8_pInt,mesh_NcpElems), source = 0_pInt)
allocate (microstructures (1_pInt+maxIntCount), source = 1_pInt) allocate (microstructures (1_pInt+maxIntCount), source = 1_pInt)
allocate (mesh_microGlobal(mesh_NcpElemsGlobal), source = 1_pInt) allocate (mesh_microGlobal(mesh_NcpElemsGlobal), source = 1_pInt)