From d0579bb6747e7ec34a6d34e520027b0e8734d4c2 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 19 Sep 2019 12:48:04 -0700 Subject: [PATCH] data layout and names as discussed with Karo and Philip --- src/discretization.f90 | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/src/discretization.f90 b/src/discretization.f90 index 30ae0a6b6..81413e9b8 100644 --- a/src/discretization.f90 +++ b/src/discretization.f90 @@ -6,6 +6,9 @@ module discretization use prec use results +#if defined(PETSc) || defined(DAMASK_HDF5) + use HDF5_utilities +#endif implicit none private @@ -67,11 +70,13 @@ subroutine discretization_results #if defined(PETSc) || defined(DAMASK_HDF5) real(pReal), dimension(:,:), allocatable :: u - u = discretization_NodeCoords -discretization_NodeCoords0 - call results_writeDataset('current',U,'U','nodal displacements','m') + call HDF5_closeGroup(results_addGroup(trim('current/geometry'))) - u = discretization_IPcoords -discretization_IPcoords0 - call results_writeDataset('current',u,'u','IP displacements','m') + u = discretization_NodeCoords - discretization_NodeCoords0 + call results_writeDataset('current/geometry',u,'u_n','nodal displacements','m') + + u = discretization_IPcoords - discretization_IPcoords0 + call results_writeDataset('current/geometry',u,'u_c','cell center displacements','m') #endif end subroutine discretization_results