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

did not run without HDF5 support

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

3
src/mesh_marc.f90
View File

@ -204,7 +204,7 @@ subroutine mesh_init(ip,el)
call discretization_init(microstructureAt,homogenizationAt,& call discretization_init(microstructureAt,homogenizationAt,&
ip_reshaped,& ip_reshaped,&
mesh_node0) mesh_node0)
#if defined(DAMASK_HDF5)
call results_openJobFile call results_openJobFile
call HDF5_closeGroup(results_addGroup('geometry')) call HDF5_closeGroup(results_addGroup('geometry'))
call results_writeDataset('geometry',ip_reshaped,'x_c', & call results_writeDataset('geometry',ip_reshaped,'x_c', &
@ -212,6 +212,7 @@ subroutine mesh_init(ip,el)
call results_writeDataset('geometry',mesh_node0,'x_n', & call results_writeDataset('geometry',mesh_node0,'x_n', &
'nodal coordinates','m') 'nodal coordinates','m')
call results_closeJobFile() call results_closeJobFile()
#endif
call geometry_plastic_nonlocal_setIPvolume(IPvolume()) call geometry_plastic_nonlocal_setIPvolume(IPvolume())
call geometry_plastic_nonlocal_setIPneighborhood(mesh_ipNeighborhood2) call geometry_plastic_nonlocal_setIPneighborhood(mesh_ipNeighborhood2)
call geometry_plastic_nonlocal_setIParea(mesh_ipArea) call geometry_plastic_nonlocal_setIParea(mesh_ipArea)