[cig-commits] r22963 - seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D

[elliott.sales.de.andrade at geodynamics.org]

Author: elliott.sales.de.andrade
Date: 2013-10-16 17:08:30 -0700 (Wed, 16 Oct 2013)
New Revision: 22963

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_element_att_memory.F90
Log:
Remove extra variables from module statement.

These variables (ALPHA_LDDRK, BETA_LDDRK) are not in the specfem_par
module, but rather in the constants_solver module. That module *is*
'use'd in specfem_par, and so the variables are accessible. However, the
newest Intel 14.0 compiler doesn't like if you 'only' the variables that
are in a module you haven't *directly* 'use'd.

In any case, this code already 'use's the constants_solver module, so
there's no need to specify these variables in the 'only' list.

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_element_att_memory.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_element_att_memory.F90	2013-10-16 23:51:23 UTC (rev 22962)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_element_att_memory.F90	2013-10-17 00:08:30 UTC (rev 22963)
@@ -161,7 +161,7 @@
 ! we get Q_\alpha = (9 / 4) * Q_\mu = 2.25 * Q_\mu
 
   use constants_solver
-  use specfem_par,only: ALPHA_LDDRK,BETA_LDDRK,tau_sigma_CUSTOM_REAL,istage
+  use specfem_par,only: tau_sigma_CUSTOM_REAL,istage
 
   implicit none
 
@@ -385,7 +385,7 @@
 ! we get Q_\alpha = (9 / 4) * Q_\mu = 2.25 * Q_\mu
 
   use constants_solver
-  use specfem_par,only: ALPHA_LDDRK,BETA_LDDRK,tau_sigma_CUSTOM_REAL,istage
+  use specfem_par,only: tau_sigma_CUSTOM_REAL,istage
 
   implicit none