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

removed write statements which were introduced for "debuging"

This commit is contained in:
Franz Roters 2012-11-19 15:12:11 +00:00
parent 9fb94cd707
commit d4a59541ad
1 changed files with 0 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
code/mesh.f90
View File

@ -457,25 +457,15 @@ subroutine mesh_init(ip,element)
#endif #endif
#ifdef Marc #ifdef Marc
call IO_open_inputFile(fileUnit,modelName) ! parse info from input file... call IO_open_inputFile(fileUnit,modelName) ! parse info from input file...
write(6,*) '1<<<+- mesh init -+>>>'
call mesh_marc_get_tableStyles(fileUnit) call mesh_marc_get_tableStyles(fileUnit)
write(6,*) '2<<<+- mesh init -+>>>'
call mesh_marc_count_nodesAndElements(fileUnit) call mesh_marc_count_nodesAndElements(fileUnit)
write(6,*) '3<<<+- mesh init -+>>>'
call mesh_marc_count_elementSets(fileUnit) call mesh_marc_count_elementSets(fileUnit)
write(6,*) '4<<<+- mesh init -+>>>'
call mesh_marc_map_elementSets(fileUnit) call mesh_marc_map_elementSets(fileUnit)
write(6,*) '5<<<+- mesh init -+>>>'
call mesh_marc_count_cpElements(fileUnit) call mesh_marc_count_cpElements(fileUnit)
write(6,*) '6<<<+- mesh init -+>>>'
call mesh_marc_map_elements(fileUnit) call mesh_marc_map_elements(fileUnit)
write(6,*) '7<<<+- mesh init -+>>>'
call mesh_marc_map_nodes(fileUnit) call mesh_marc_map_nodes(fileUnit)
write(6,*) '8<<<+- mesh init -+>>>'
call mesh_marc_build_nodes(fileUnit) call mesh_marc_build_nodes(fileUnit)
write(6,*) '9<<<+- mesh init -+>>>'
call mesh_marc_count_cpSizes(fileunit) call mesh_marc_count_cpSizes(fileunit)
write(6,*) '10<<<+- mesh init -+>>>'
call mesh_marc_build_elements(fileUnit) call mesh_marc_build_elements(fileUnit)
#endif #endif
#ifdef Abaqus #ifdef Abaqus
@ -497,21 +487,13 @@ subroutine mesh_init(ip,element)
call mesh_get_damaskOptions(fileUnit) call mesh_get_damaskOptions(fileUnit)
close (fileUnit) close (fileUnit)
write(6,*) '11<<<+- mesh init -+>>>'
call mesh_build_subNodeCoords call mesh_build_subNodeCoords
write(6,*) '12<<<+- mesh init -+>>>'
call mesh_build_ipCoordinates call mesh_build_ipCoordinates
write(6,*) '13<<<+- mesh init -+>>>'
call mesh_build_ipVolumes call mesh_build_ipVolumes
write(6,*) '14<<<+- mesh init -+>>>'
call mesh_build_ipAreas call mesh_build_ipAreas
write(6,*) '15<<<+- mesh init -+>>>'
call mesh_build_nodeTwins call mesh_build_nodeTwins
write(6,*) '16<<<+- mesh init -+>>>'
call mesh_build_sharedElems call mesh_build_sharedElems
write(6,*) '17<<<+- mesh init -+>>>'
call mesh_build_ipNeighborhood call mesh_build_ipNeighborhood
write(6,*) 'stat<<<+- mesh init -+>>>'
call mesh_tell_statistics call mesh_tell_statistics
parallelExecution = (parallelExecution .and. (mesh_Nelems == mesh_NcpElems)) ! plus potential killer from non-local constitutive parallelExecution = (parallelExecution .and. (mesh_Nelems == mesh_NcpElems)) ! plus potential killer from non-local constitutive