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

better name

This commit is contained in:
Martin Diehl 2018-09-23 19:58:43 +02:00
parent ebef12e446
commit 72b87b0a9b
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mesh.f90
View File

@ -34,7 +34,8 @@ module mesh
mesh_microstructure !< homogenization ID of each element mesh_microstructure !< homogenization ID of each element
integer(pInt), dimension(:,:), allocatable, public, protected :: & integer(pInt), dimension(:,:), allocatable, public, protected :: &
mesh_element, & !< FEid, type(internal representation), material, texture, node indices as CP IDs mesh_CPnodeID, &
mesh_element, & !DEPRECATED
mesh_sharedElem, & !< entryCount and list of elements containing node mesh_sharedElem, & !< entryCount and list of elements containing node
mesh_nodeTwins !< node twins are surface nodes that lie exactly on opposite sides of the mesh (surfaces nodes with equal coordinate values in two dimensions) mesh_nodeTwins !< node twins are surface nodes that lie exactly on opposite sides of the mesh (surfaces nodes with equal coordinate values in two dimensions)
@ -647,6 +648,7 @@ subroutine mesh_init(ip,el)
! better name ! better name
mesh_homogenization = mesh_element(3,:) mesh_homogenization = mesh_element(3,:)
mesh_microstructure = mesh_element(4,:) mesh_microstructure = mesh_element(4,:)
mesh_CPnodeID = mesh_element(5:4+mesh_NipsPerElem,:)
!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!
end subroutine mesh_init end subroutine mesh_init

4
src/meshFEM.f90
View File

@ -39,7 +39,8 @@ use PETScis
real(pReal), public, protected :: charLength real(pReal), public, protected :: charLength
integer(pInt), dimension(:,:), allocatable, public, protected :: & integer(pInt), dimension(:,:), allocatable, public, protected :: &
mesh_element !< FEid, type(internal representation), material, texture, node indices as CP IDs mesh_CPnodeID, &
mesh_element !DEPRECATED
real(pReal), dimension(:,:), allocatable, public :: & real(pReal), dimension(:,:), allocatable, public :: &
mesh_node !< node x,y,z coordinates (after deformation! ONLY FOR MARC!!!) mesh_node !< node x,y,z coordinates (after deformation! ONLY FOR MARC!!!)
@ -245,6 +246,7 @@ subroutine mesh_init(ip,el)
! better name ! better name
mesh_homogenization = mesh_element(3,:) mesh_homogenization = mesh_element(3,:)
mesh_microstructure = mesh_element(4,:) mesh_microstructure = mesh_element(4,:)
mesh_CPnodeID = mesh_element(5:4+mesh_NipsPerElem,:)
!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!
end subroutine mesh_init end subroutine mesh_init