[cig-commits] [commit] devel, master: Re-factor band_instrument_code to be clearer. (c53c771)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Thu Nov 6 08:30:47 PST 2014
Repository : https://github.com/geodynamics/specfem3d_globe
On branches: devel,master
Link : https://github.com/geodynamics/specfem3d_globe/compare/bc58e579b3b0838a0968725a076f5904845437ca...be63f20cbb6f462104e949894dbe205d2398cd7f
>---------------------------------------------------------------
commit c53c771cfcfa181d90c13272dc8dae6fdf2778fe
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date: Thu Sep 11 17:32:37 2014 -0400
Re-factor band_instrument_code to be clearer.
>---------------------------------------------------------------
c53c771cfcfa181d90c13272dc8dae6fdf2778fe
src/specfem3D/write_seismograms.f90 | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/src/specfem3D/write_seismograms.f90 b/src/specfem3D/write_seismograms.f90
index bb42779..68e1bbf 100644
--- a/src/specfem3D/write_seismograms.f90
+++ b/src/specfem3D/write_seismograms.f90
@@ -625,11 +625,11 @@ contains
double precision :: DT
character(len=2) :: bic
- if (DT >= 1.0d0) bic = 'LX'
- if (DT < 1.0d0 .and. DT > 0.1d0) bic = 'MX'
- if (DT <= 0.1d0 .and. DT > 0.0125d0) bic = 'BX'
- if (DT <= 0.0125d0 .and. DT > 0.004d0) bic = 'HX'
- if (DT <= 0.004d0 .and. DT > 0.001d0) bic = 'CX'
+ if (1.0d0 <= DT) bic = 'LX'
+ if (0.1d0 < DT .and. DT < 1.0d0) bic = 'MX'
+ if (0.0125d0 < DT .and. DT <= 0.1d0) bic = 'BX'
+ if (0.004d0 < DT .and. DT <= 0.0125d0) bic = 'HX'
+ if (0.001d0 < DT .and. DT <= 0.004d0) bic = 'CX'
if (DT <= 0.001d0) bic = 'FX'
end subroutine band_instrument_code
More information about the CIG-COMMITS
mailing list