[cig-commits] [commit] QA: Remove unused variables. (39d0c71)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/specfem2d

On branch  : QA
Link       : https://github.com/geodynamics/specfem2d/compare/28743f19b9f9fdb75d359c135053825c0ffd05b3...5e8aa55e68fd17b6f475fb65531b84195e497aa1

>---------------------------------------------------------------

commit 39d0c7100e375e5f5d8ed62724b920ae642a9910
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date:   Mon Jan 6 02:14:55 2014 -0500

    Remove unused variables.


>---------------------------------------------------------------

39d0c7100e375e5f5d8ed62724b920ae642a9910
 src/shared/param_reader.c                 | 1 -
 src/specfem2D/attenuation_compute_param.c | 9 ++-------
 2 files changed, 2 insertions(+), 8 deletions(-)

diff --git a/src/shared/param_reader.c b/src/shared/param_reader.c
index ecb0c68..4230088 100644
--- a/src/shared/param_reader.c
+++ b/src/shared/param_reader.c
@@ -355,7 +355,6 @@ FC_FUNC_(param_read_nextline,PARAM_READ_NEXTLINE)(char * string_read, int * stri
   char line[LINE_MAX];
   int regret;
   regmatch_t parameter[1];
-  char * value;
 
   // Regular expression to skip any comment lines.
   char pattern[] = "^[ \t]*[^#]";
diff --git a/src/specfem2D/attenuation_compute_param.c b/src/specfem2D/attenuation_compute_param.c
index 9e9b4cd..f5148d0 100644
--- a/src/specfem2D/attenuation_compute_param.c
+++ b/src/specfem2D/attenuation_compute_param.c
@@ -34,10 +34,9 @@ FC_FUNC_(attenuation_compute_param,ATTENUATION_COMPUTE_PARAM)(int *nmech_in,
              double *tau_epsilon_nu1, double *tau_epsilon_nu2
              )
 {
-  int             n, i, j, plot, nu;
+  int             n, i, nu;
   double          Q_value, target_Q1, target_Q2;
-  double          f1, f2, Q, om0, Omega;
-  double          a, b;
+  double          f1, f2;
   double         *tau_s, *tau_e;
 
   /* We get the arguments passed in fortran by adress. */
@@ -67,10 +66,6 @@ FC_FUNC_(attenuation_compute_param,ATTENUATION_COMPUTE_PARAM)(int *nmech_in,
     exit(1);
   }
 
-  om0 = PI2 * pow(10.0, 0.5 * (log10(f1) + log10(f2)));
-
-  plot = 0;
-
 /* loop on the Q1 dilatation mode (nu = 1) and Q2 shear mode (nu = 2) defined in Carcione's papers */
   for (nu = 1; nu <= 2; nu++) {