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

explain data layout

This commit is contained in:
Martin Diehl 2020-01-26 21:56:08 +01:00
parent 0a1bac6787
commit f044b8c42f
2 changed files with 18 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/mesh_grid.f90
View File

@ -395,6 +395,7 @@ pure function IPneighborhood(grid)
e = 0 e = 0
do z = 0,grid(3)-1; do y = 0,grid(2)-1; do x = 0,grid(1)-1 do z = 0,grid(3)-1; do y = 0,grid(2)-1; do x = 0,grid(1)-1
e = e + 1 e = e + 1
! element ID
IPneighborhood(1,1,1,e) = z * grid(1) * grid(2) & 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)) &
@ -419,13 +420,17 @@ pure function IPneighborhood(grid)
+ y * grid(1) & + y * grid(1) &
+ x & + x &
+ 1 + 1
IPneighborhood(2,1:6,1,e) = 1 ! IP ID
IPneighborhood(2,:,1,e) = 1
! face ID
IPneighborhood(3,1,1,e) = 2 IPneighborhood(3,1,1,e) = 2
IPneighborhood(3,2,1,e) = 1 IPneighborhood(3,2,1,e) = 1
IPneighborhood(3,3,1,e) = 4 IPneighborhood(3,3,1,e) = 4
IPneighborhood(3,4,1,e) = 3 IPneighborhood(3,4,1,e) = 3
IPneighborhood(3,5,1,e) = 6 IPneighborhood(3,5,1,e) = 6
IPneighborhood(3,6,1,e) = 5 IPneighborhood(3,6,1,e) = 5
enddo; enddo; enddo enddo; enddo; enddo
end function IPneighborhood end function IPneighborhood