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

simple data structure needs explanation

This commit is contained in:
Martin Diehl 2019-06-04 22:38:01 +02:00
parent c045bd6355
commit 9612dd1d82
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/mesh_grid.f90
View File

@ -438,6 +438,7 @@ subroutine mesh_spectral_build_ipNeighborhood
do y = 0,grid(2)-1 do y = 0,grid(2)-1
do x = 0,grid(1)-1 do x = 0,grid(1)-1
e = e + 1 e = e + 1
! neigboring element
mesh_ipNeighborhood(1,1,1,e) = z * grid(1) * grid(2) & mesh_ipNeighborhood(1,1,1,e) = z * grid(1) * grid(2) &
+ y * grid(1) & + y * grid(1) &
+ modulo(x+1,grid(1)) & + modulo(x+1,grid(1)) &
@ -462,7 +463,9 @@ subroutine mesh_spectral_build_ipNeighborhood
+ y * grid(1) & + y * grid(1) &
+ x & + x &
+ 1 + 1
! neigboring IP
mesh_ipNeighborhood(2,1:6,1,e) = 1 mesh_ipNeighborhood(2,1:6,1,e) = 1
! neigboring face
mesh_ipNeighborhood(3,1,1,e) = 2 mesh_ipNeighborhood(3,1,1,e) = 2
mesh_ipNeighborhood(3,2,1,e) = 1 mesh_ipNeighborhood(3,2,1,e) = 1
mesh_ipNeighborhood(3,3,1,e) = 4 mesh_ipNeighborhood(3,3,1,e) = 4