From 001c6e595168fc12ffa86a55de43cede59a980aa Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Fri, 24 Jun 2016 10:59:04 +0200 Subject: [PATCH] unneded variables --- code/spectral_damage.f90 | 4 ---- code/spectral_thermal.f90 | 4 ---- 2 files changed, 8 deletions(-) diff --git a/code/spectral_damage.f90 b/code/spectral_damage.f90 index e2bb80b31..27d513175 100644 --- a/code/spectral_damage.f90 +++ b/code/spectral_damage.f90 @@ -176,10 +176,6 @@ type(tSolutionState) function spectral_damage_solution(guess,timeinc,timeinc_old itmax, & err_damage_tolAbs, & err_damage_tolRel - use spectral_utilities, only: & - tBoundaryCondition, & - Utilities_maskedCompliance, & - Utilities_updateGamma use mesh, only: & grid, & grid3 diff --git a/code/spectral_thermal.f90 b/code/spectral_thermal.f90 index 83e290a4c..985bdf0c6 100644 --- a/code/spectral_thermal.f90 +++ b/code/spectral_thermal.f90 @@ -178,10 +178,6 @@ type(tSolutionState) function spectral_thermal_solution(guess,timeinc,timeinc_ol itmax, & err_thermal_tolAbs, & err_thermal_tolRel - use spectral_utilities, only: & - tBoundaryCondition, & - Utilities_maskedCompliance, & - Utilities_updateGamma use mesh, only: & grid, & grid3