less public/unneeded variables

src/mesh/DAMASK_mesh.f90

@@ -21,6 +21,7 @@ program DAMASK_mesh
   use mesh_mechanical_FEM
 
   implicit none
+  integer :: nActiveFields = 0
 
 !--------------------------------------------------------------------------------------------------
 ! variables related to information from load case and geom file

src/mesh/FEM_utilities.f90

@@ -23,14 +23,8 @@ module FEM_utilities
   implicit none
   private
 
-!--------------------------------------------------------------------------------------------------
+  logical,     public             :: cutBack = .false.                                              !< cut back of BVP solver in case convergence is not achieved or a material point is terminally ill
-  logical, public             :: cutBack = .false.                                                  !< cut back of BVP solver in case convergence is not achieved or a material point is terminally ill
+  real(pReal), public, protected  :: wgt                                                            !< weighting factor 1/Nelems
-  integer, public, parameter  :: maxFields = 6
-  integer, public             :: nActiveFields = 0
-
-!--------------------------------------------------------------------------------------------------
-! grid related information information
-  real(pReal),   public       :: wgt                                                                !< weighting factor 1/Nelems
 
 
 !--------------------------------------------------------------------------------------------------
@@ -49,10 +43,6 @@ module FEM_utilities
     COMPONENT_MECH_Z_ID
   end enum
 
-!--------------------------------------------------------------------------------------------------
-! variables controlling debugging
- logical :: &
-   debugPETSc                                                                                       !< use some in debug defined options for more verbose PETSc solution
 
 !--------------------------------------------------------------------------------------------------
 ! derived types
@@ -109,8 +99,9 @@ subroutine FEM_utilities_init
   integer :: structOrder                                                                            !< order of displacement shape functions
   character(len=*), parameter :: &
     PETSCDEBUG = ' -snes_view -snes_monitor '
-
   PetscErrorCode            :: ierr
+  logical :: debugPETSc                                                                             !< use some in debug defined options for more verbose PETSc solution
+
 
   print'(/,a)',   ' <<<+-  FEM_utilities init  -+>>>'
 

src/mesh/discretization_mesh.f90

@@ -40,6 +40,11 @@ module discretization_mesh
     mesh_maxNips                                                                                    !< max number of IPs in any CP element
 !!!! BEGIN DEPRECATED !!!!!
 
+  DM, public :: geomMesh
+
+  PetscInt, dimension(:), allocatable, public, protected :: &
+    mesh_boundaries
+
   real(pReal), dimension(:,:), allocatable :: &
     mesh_ipVolume, &                                                                                !< volume associated with IP (initially!)
     mesh_node0                                                                                      !< node x,y,z coordinates (initially!)
@@ -50,11 +55,6 @@ module discretization_mesh
   real(pReal), dimension(:,:,:), allocatable :: &
     mesh_ipCoordinates                                                                              !< IP x,y,z coordinates (after deformation!)
 
-  DM, public :: geomMesh
-
-  PetscInt, dimension(:), allocatable, public, protected :: &
-    mesh_boundaries
-
   public :: &
     discretization_mesh_init, &
     mesh_FEM_build_ipVolumes, &