diff --git a/src/discretization.f90 b/src/discretization.f90
index 5f9d3f521..ff0f59ef9 100644
--- a/src/discretization.f90
+++ b/src/discretization.f90
@@ -48,10 +48,10 @@ subroutine discretization_init(homogenizationAt,microstructureAt,&
   real(pReal), dimension(:,:), intent(in) :: &
     IPcoords0, &
     NodeCoords0
-  integer, optional, intent(in) :: &
+  integer, optional,           intent(in) :: &
     sharedNodesBeginn
 
-  write(6,'(/,a)')   ' <<<+-  discretization init  -+>>>'
+  write(6,'(/,a)') ' <<<+-  discretization init  -+>>>'; flush(6)
 
   discretization_nElem = size(microstructureAt,1)
   discretization_nIP   = size(IPcoords0,2)/discretization_nElem
@@ -81,15 +81,15 @@ subroutine discretization_results
 
   real(pReal), dimension(:,:), allocatable :: u
   
-  call results_closeGroup(results_addGroup(trim('current/geometry')))
+  call results_closeGroup(results_addGroup('current/geometry'))
   
   u = discretization_NodeCoords (1:3,:discretization_sharedNodesBeginn) &
     - discretization_NodeCoords0(1:3,:discretization_sharedNodesBeginn)
-  call results_writeDataset('current/geometry',u,'u_n','nodal displacements','m')
+  call results_writeDataset('current/geometry',u,'u_n','displacements of the nodes','m')
   
   u = discretization_IPcoords &
     - discretization_IPcoords0
-  call results_writeDataset('current/geometry',u,'u_c','cell center displacements','m')
+  call results_writeDataset('current/geometry',u,'u_p','displacements of the materialpoints','m')
 
 end subroutine discretization_results
 
diff --git a/src/mesh_grid.f90 b/src/mesh_grid.f90
index a24fee9bc..2fd4ee85c 100644
--- a/src/mesh_grid.f90
+++ b/src/mesh_grid.f90
@@ -61,7 +61,7 @@ subroutine mesh_init(ip,el)
   integer(C_INTPTR_T) :: &
     devNull, z, z_offset
 
-  write(6,'(/,a)')   ' <<<+-  mesh_grid init  -+>>>'; flush(6)
+  write(6,'(/,a)') ' <<<+-  mesh_grid init  -+>>>'; flush(6)
 
   call readGeom(grid,geomSize,origin,microstructureAt,homogenizationAt)
 
diff --git a/src/mesh_marc.f90 b/src/mesh_marc.f90
index 0d082a0f1..dc8b9cf5e 100644
--- a/src/mesh_marc.f90
+++ b/src/mesh_marc.f90
@@ -102,7 +102,7 @@ subroutine mesh_init(ip,el)
 
   call discretization_init(microstructureAt,homogenizationAt,&
                            ip_reshaped,&
-                           node0_elem)
+                           node0_cell)
                            
   call writeGeometry(0,connectivity_elem,&
                      reshape(connectivity_cell,[elem%NcellNodesPerCell,elem%nIPs*nElems]),&
@@ -152,11 +152,11 @@ subroutine writeGeometry(elemType, &
                             
   coordinates_temp = coordinates_nodes
   call results_writeDataset('geometry',coordinates_temp,'x_n', &
-                            'coordinates of the nodes','m')
+                            'initial coordinates of the nodes','m')
                             
   coordinates_temp = coordinates_points
   call results_writeDataset('geometry',coordinates_temp,'x_p', &
-                            'coordinates of the material points','m')
+                            'initial coordinates of the materialpoints','m')
                       
   call results_closeJobFile