[skip sc] small polishing to make ifort happy

old ifort on magit1 still has issues

src/phase.f90

@@ -15,7 +15,6 @@ module phase
   use discretization
   use parallelization
   use HDF5_utilities
-  use results
   implicit none
   private
 
@@ -335,9 +334,7 @@ module phase
     results, &
     lattice, &
     discretization, &
-    parallelization, &
-    HDF5_utilities, &
-    results
+    HDF5_utilities
 #endif
 
   public :: &
@@ -576,9 +573,7 @@ subroutine crystallite_init()
   class(tNode), pointer :: &
     num_crystallite, &
     debug_crystallite, &                                                                            ! pointer to debug options for crystallite
-    phases, &
-    phase, &
-    mech
+    phases
 
 
   print'(/,a)', ' <<<+-  crystallite init  -+>>>'

src/phase_mechanics.f90

@@ -1027,7 +1027,6 @@ subroutine crystallite_results(group,ph)
   integer,          intent(in) :: ph
 
   integer :: ou
-  real(pReal), allocatable, dimension(:,:,:) :: selected_tensors
   real(pReal), allocatable, dimension(:,:)   :: selected_rotations
   character(len=:), allocatable              :: structureLabel
 

src/phase_mechanics_eigendeformation_thermalexpansion.f90

@@ -4,9 +4,6 @@
 !> @details to be done
 !--------------------------------------------------------------------------------------------------
 submodule(phase:thermal) thermalexpansion
-  use prec
-  use YAML_types
-  use config
 
   integer, dimension(:), allocatable :: kinematics_thermal_expansion_instance
 
@@ -19,7 +16,6 @@ submodule(phase:thermal) thermalexpansion
 
   type(tParameters), dimension(:), allocatable :: param
 
-
 contains