[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