[cig-commits] [commit] devel, master: Remove explicitly imported but unused module vars. (180110a)

cig_noreply at geodynamics.org cig_noreply at geodynamics.org
Thu Nov 6 08:20:01 PST 2014


Repository : https://github.com/geodynamics/specfem3d_globe

On branches: devel,master
Link       : https://github.com/geodynamics/specfem3d_globe/compare/bc58e579b3b0838a0968725a076f5904845437ca...be63f20cbb6f462104e949894dbe205d2398cd7f

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

commit 180110a4b3790cdf725708e1810246d6c314f2ae
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date:   Sat May 31 03:15:13 2014 -0400

    Remove explicitly imported but unused module vars.


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

180110a4b3790cdf725708e1810246d6c314f2ae
 src/meshfem3D/compute_volumes_and_areas.F90 | 4 ++--
 src/specfem3D/write_seismograms.f90         | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/meshfem3D/compute_volumes_and_areas.F90 b/src/meshfem3D/compute_volumes_and_areas.F90
index 7dba8ca..d5eafec 100644
--- a/src/meshfem3D/compute_volumes_and_areas.F90
+++ b/src/meshfem3D/compute_volumes_and_areas.F90
@@ -310,8 +310,8 @@
 
   use constants
 
-  use meshfem3D_par,only: x_observation,y_observation,z_observation,g_x,g_y,g_z,G_xx,G_yy,G_zz,G_xy,G_xz,G_yz, &
-     x_observation1D,y_observation1D,z_observation1D,g_x1D,g_y1D,g_z1D,G_xx1D,G_yy1D,G_zz1D,G_xy1D,G_xz1D,G_yz1D,OUTPUT_FILES
+  use meshfem3D_par,only: x_observation1D,y_observation1D,z_observation1D, &
+     g_x1D,g_y1D,g_z1D,G_xx1D,G_yy1D,G_zz1D,G_xy1D,G_xz1D,G_yz1D,OUTPUT_FILES
 
   implicit none
 
diff --git a/src/specfem3D/write_seismograms.f90 b/src/specfem3D/write_seismograms.f90
index ca3ed87..6d4dbeb 100644
--- a/src/specfem3D/write_seismograms.f90
+++ b/src/specfem3D/write_seismograms.f90
@@ -131,7 +131,7 @@ contains
           islice_selected_rec, &
           seismo_offset,seismo_current, &
           OUTPUT_SEISMOS_ASCII_TEXT, &
-          OUTPUT_SEISMOS_ASDF, DT, &
+          OUTPUT_SEISMOS_ASDF, &
           NTSTEP_BETWEEN_OUTPUT_SEISMOS, &
           SAVE_ALL_SEISMOS_IN_ONE_FILE,USE_BINARY_FOR_LARGE_FILE, &
           OUTPUT_FILES, &



More information about the CIG-COMMITS mailing list