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

corrected debugging output of node twins

This commit is contained in:
Christoph Kords 2013-03-27 10:25:37 +00:00
parent e25af5db04
commit b6aecdac17
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
code/mesh.f90
View File

@ -3938,11 +3938,8 @@ enddo
write(6,*)
write(6,'(a6,3(3x,a6))') ' node','twin_x','twin_y','twin_z'
do n = 1_pInt,mesh_Nnodes ! loop over cpNodes
if (debug_e <= mesh_NcpElems) then
if (any(mesh_element(5:,debug_e) == n)) then
write(6,'(i6,3(3x,i6))') n, mesh_nodeTwins(1:3,n)
endif
endif
if (iand(myDebug,debug_levelSelective) /= 0_pInt .and. .not. any(mesh_element(5:,debug_e) == n)) cycle
write(6,'(i6,3(3x,i6))') n, mesh_nodeTwins(1:3,n)
enddo
write(6,*)
write(6,*) 'Input Parser: IP NEIGHBORHOOD'