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

geometry folder needs to be created earlier

This commit is contained in:
Martin Diehl 2019-10-12 16:39:44 +02:00
parent fabab08936
commit d8d99f3694
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mesh_marc.f90
View File

@ -206,7 +206,6 @@ subroutine mesh_init(ip,el)
mesh_node0) mesh_node0)
#if defined(DAMASK_HDF5) #if defined(DAMASK_HDF5)
call results_openJobFile call results_openJobFile
call HDF5_closeGroup(results_addGroup('geometry'))
call results_writeDataset('geometry',ip_reshaped,'x_c', & call results_writeDataset('geometry',ip_reshaped,'x_c', &
'cell center coordinates','m') 'cell center coordinates','m')
call results_writeDataset('geometry',mesh_node0,'x_n', & call results_writeDataset('geometry',mesh_node0,'x_n', &
@ -679,6 +678,7 @@ subroutine mesh_marc_buildElements(microstructureAt,homogenizationAt, &
#if defined(DAMASK_HDF5) #if defined(DAMASK_HDF5)
call results_openJobFile call results_openJobFile
call HDF5_closeGroup(results_addGroup('geometry'))
call results_writeDataset('geometry',mesh_FEnodes,'C',& call results_writeDataset('geometry',mesh_FEnodes,'C',&
'connectivity of the elements','-') 'connectivity of the elements','-')
call results_closeJobFile call results_closeJobFile