[cig-commits] [commit] devel: Re-factor band_instrument_code to be clearer. (c53c771)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Thu Sep 18 16:18:07 PDT 2014
Repository : https://github.com/geodynamics/specfem3d_globe
On branch : devel
Link : https://github.com/geodynamics/specfem3d_globe/compare/c6e8e9a46f1a4bfcf8b3725426d1dd528b7dabea...44c2c95f23a37e3e2af17b5f784a8521c8197b8b
>---------------------------------------------------------------
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