diff --git a/examples/SpectralMethod/Polycrystal/shearXY.yaml b/examples/SpectralMethod/Polycrystal/shearXY.yaml
index ec714f971..39966d181 100644
--- a/examples/SpectralMethod/Polycrystal/shearXY.yaml
+++ b/examples/SpectralMethod/Polycrystal/shearXY.yaml
@@ -1,7 +1,8 @@
 step:
   - mech:
-      dot_F: [0, 0, 0,  1e-3, 0, 0,  0, 0, 0]
-      P:     [x, x, x,     x, x, x,  x, x, x]
+      dot_F: [0,    0, 0,
+              1e-3, 0, 0,
+              0,    0, 0]
     discretization:
       t: 60
       N: 120
diff --git a/src/grid/DAMASK_grid.f90 b/src/grid/DAMASK_grid.f90
index 7adfadd34..4b8302def 100644
--- a/src/grid/DAMASK_grid.f90
+++ b/src/grid/DAMASK_grid.f90
@@ -53,20 +53,19 @@ program DAMASK_grid
     i, j, m, field, &
     errorID = 0, &
     cutBackLevel = 0, &                                                                             !< cut back level \f$ t = \frac{t_{inc}}{2^l} \f$
-    stepFraction = 0                                                                                !< fraction of current time interval
-  integer :: &
+    stepFraction = 0, &                                                                             !< fraction of current time interval
     l = 0, &                                                                                        !< current load case
     inc, &                                                                                          !< current increment in current load case
     totalIncsCounter = 0, &                                                                         !< total # of increments
     statUnit = 0, &                                                                                 !< file unit for statistics output
     stagIter, &
-    nActiveFields = 0
+    nActiveFields = 0, &
+    maxCutBack, &                                                                                   !< max number of cut backs
+    stagItMax                                                                                       !< max number of field level staggered iterations
   character(len=pStringLen) :: &
     incInfo, &
     loadcase_string
-  integer :: &
-    maxCutBack, &                                                                                   !< max number of cut backs
-    stagItMax                                                                                       !< max number of field level staggered iterations
+
   type(tLoadCase), allocatable, dimension(:) :: loadCases                                           !< array of all load cases
   type(tSolutionState), allocatable, dimension(:) :: solres
   procedure(grid_mech_spectral_basic_init), pointer :: &