only local variable are good variables

src/grid/DAMASK_grid.f90

@@ -43,6 +43,15 @@ program DAMASK_grid
     logical ::                  estimate_rate                                                       !< follow trajectory of former loadcase
   end type tLoadCase
 
+!--------------------------------------------------------------------------------------------------
+! field labels information
+  enum, bind(c); enumerator :: &
+    FIELD_UNDEFINED_ID, &
+    FIELD_MECH_ID, &
+    FIELD_THERMAL_ID, &
+    FIELD_DAMAGE_ID
+  end enum
+
   integer(kind(FIELD_UNDEFINED_ID)), allocatable :: ID(:)
 
 !--------------------------------------------------------------------------------------------------

src/grid/spectral_utilities.f90

@@ -28,15 +28,6 @@ module spectral_utilities
 
   include 'fftw3-mpi.f03'
 
-!--------------------------------------------------------------------------------------------------
-! field labels information
-  enum, bind(c); enumerator :: &
-    FIELD_UNDEFINED_ID, &
-    FIELD_MECH_ID, &
-    FIELD_THERMAL_ID, &
-    FIELD_DAMAGE_ID
-  end enum
-
 !--------------------------------------------------------------------------------------------------
 ! grid related information information
   real(pReal), protected,  public                :: wgt                                             !< weighting factor 1/Nelems
@@ -139,11 +130,7 @@ module spectral_utilities
     utilities_calculateRate, &
     utilities_forwardField, &
     utilities_updateCoords, &
-    utilities_saveReferenceStiffness, &
+    utilities_saveReferenceStiffness
-    FIELD_UNDEFINED_ID, &
-    FIELD_MECH_ID, &
-    FIELD_THERMAL_ID, &
-    FIELD_DAMAGE_ID
 
 contains