Output step and increment for debugging

src/IncrementSimulation.f90

@@ -11,6 +11,9 @@ contains
   subroutine Init_Increment(kstep,kinc)
     integer, intent(in) :: kstep,kinc
     call reset_element_failure_mode()
+    write(*,'(A)') "----------------------"
+    write(*,'("| STEP ", I2, " INCR ", I5, " |")') kstep, kinc
+    write(*,'(A)') "----------------------"
   end subroutine Init_Increment
 
   subroutine Finish_Increment (kstep,kinc)