From d8d99f3694ba25244875e82297173608897a8f4a Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 12 Oct 2019 16:39:44 +0200 Subject: [PATCH] geometry folder needs to be created earlier --- src/mesh_marc.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/mesh_marc.f90 b/src/mesh_marc.f90 index 1f4738bec..efa4e43d8 100644 --- a/src/mesh_marc.f90 +++ b/src/mesh_marc.f90 @@ -206,7 +206,6 @@ subroutine mesh_init(ip,el) mesh_node0) #if defined(DAMASK_HDF5) call results_openJobFile - call HDF5_closeGroup(results_addGroup('geometry')) call results_writeDataset('geometry',ip_reshaped,'x_c', & 'cell center coordinates','m') call results_writeDataset('geometry',mesh_node0,'x_n', & @@ -679,6 +678,7 @@ subroutine mesh_marc_buildElements(microstructureAt,homogenizationAt, & #if defined(DAMASK_HDF5) call results_openJobFile + call HDF5_closeGroup(results_addGroup('geometry')) call results_writeDataset('geometry',mesh_FEnodes,'C',& 'connectivity of the elements','-') call results_closeJobFile