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

it's a property of the element, not of the mesh

This commit is contained in:
Martin Diehl 2019-02-03 14:21:42 +01:00
parent 2d0c74d7d9
commit ec23fca057
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/plastic_nonlocal.f90
View File

@ -234,8 +234,7 @@ use IO, only: IO_read, &
use debug, only: debug_level, &
debug_constitutive, &
debug_levelBasic
use mesh, only: theMesh, &
mesh_maxNipNeighbors
use mesh, only: theMesh
use material, only: phase_plasticity, &
homogenization_maxNgrains, &
phase_plasticityInstance, &
@ -829,7 +828,7 @@ allocate(rhoDotThermalAnnihilationOutput(maxTotalNslip,2,homogenization_maxNgrai
allocate(rhoDotEdgeJogsOutput(maxTotalNslip,homogenization_maxNgrains,theMesh%elem%nIPs,theMesh%nElems), &
source=0.0_pReal)
allocate(compatibility(2,maxTotalNslip,maxTotalNslip,mesh_maxNipNeighbors,theMesh%elem%nIPs,theMesh%nElems), &
allocate(compatibility(2,maxTotalNslip,maxTotalNslip,theMesh%elem%nIPneighbors,theMesh%elem%nIPs,theMesh%nElems), &
source=0.0_pReal)
allocate(peierlsStress(maxTotalNslip,2,maxNinstances), source=0.0_pReal)
allocate(colinearSystem(maxTotalNslip,maxNinstances), source=0_pInt)