error checking, making readable with damask.Result

src/mesh/DAMASK_mesh.f90

@@ -110,6 +110,7 @@ program DAMASK_mesh
     enddo                                                                                           ! count all identifiers to allocate memory and do sanity check
   enddo
 
+  if(N_def < 1) call IO_error(error_ID = 837)
   allocate(loadCases(N_def))
 
   do i = 1, size(loadCases)
@@ -161,7 +162,7 @@ program DAMASK_mesh
           do faceSet = 1, mesh_Nboundaries
             if (mesh_boundaries(faceSet) == currentFace) currentFaceSet = faceSet
           enddo
-          if (currentFaceSet < 0) call IO_error(error_ID = errorID, ext_msg = 'invalid BC')  
+          if (currentFaceSet < 0) call IO_error(error_ID = 837, ext_msg = 'invalid BC')
         case('t','time','delta')                                                                    ! increment time
           loadCases(currentLoadCase)%time = IO_floatValue(line,chunkPos,i+1)
         case('n','incs','increments','steps')                                                       ! number of increments

src/mesh/discretization_mesh.f90

@@ -17,6 +17,7 @@ module discretization_mesh
   use IO
   use config
   use discretization
+  use results
   use FEsolving
   use FEM_quadrature
   use YAML_types
@@ -182,6 +183,10 @@ subroutine discretization_mesh_init(restart)
                            reshape(mesh_ipCoordinates,[3,mesh_maxNips*mesh_NcpElems]), &
                            mesh_node0)
 
+  call results_openJobFile
+  call results_closeGroup(results_addGroup('geometry'))
+  call results_closeJobFile
+
 end subroutine discretization_mesh_init