[cig-commits] [commit] devel, master: Fix a couple minor typos. (01e6b37)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Thu Nov 6 08:31:13 PST 2014
Repository : https://github.com/geodynamics/specfem3d_globe
On branches: devel,master
Link : https://github.com/geodynamics/specfem3d_globe/compare/bc58e579b3b0838a0968725a076f5904845437ca...be63f20cbb6f462104e949894dbe205d2398cd7f
>---------------------------------------------------------------
commit 01e6b379c805faf4a12ed52f069b922f5cab65fe
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date: Mon Sep 15 02:40:05 2014 -0400
Fix a couple minor typos.
>---------------------------------------------------------------
01e6b379c805faf4a12ed52f069b922f5cab65fe
src/meshfem3D/moho_stretching.f90 | 4 ++--
src/specfem3D/setup_sources_receivers.f90 | 2 +-
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/meshfem3D/moho_stretching.f90 b/src/meshfem3D/moho_stretching.f90
index bb3cfb2..3c43256 100644
--- a/src/meshfem3D/moho_stretching.f90
+++ b/src/meshfem3D/moho_stretching.f90
@@ -378,7 +378,7 @@
! checks moho position: supposed to be at 60 km
if (RMOHO_STRETCH_ADJUSTMENT /= -20000.d0 ) &
- stop 'wrong moho stretch adjustement for stretch_deep_moho'
+ stop 'wrong moho stretch adjustment for stretch_deep_moho'
if (RMOHO_FICTITIOUS_IN_MESHER/R_EARTH /= R60 ) &
stop 'wrong moho depth '
! checks middle crust position: supposed to be bottom of first layer at 15 km
@@ -527,7 +527,7 @@
! checks moho position: supposed to be at 55 km
if (RMOHO_STRETCH_ADJUSTMENT /= -15000.d0 ) &
- stop 'wrong moho stretch adjustement for stretch_deep_moho'
+ stop 'wrong moho stretch adjustment for stretch_moho'
if (RMOHO_FICTITIOUS_IN_MESHER/R_EARTH /= R55 ) &
stop 'wrong moho depth '
! checks middle crust position: supposed to be bottom of first layer at 15 km
diff --git a/src/specfem3D/setup_sources_receivers.f90 b/src/specfem3D/setup_sources_receivers.f90
index 6188c0a..d3c7f34 100644
--- a/src/specfem3D/setup_sources_receivers.f90
+++ b/src/specfem3D/setup_sources_receivers.f90
@@ -228,7 +228,7 @@
! notifies user
if (myrank == 0) then
write(IMAIN,*) 'Error: USER_T0 is too small'
- write(IMAIN,*) ' must make one of three adjustements:'
+ write(IMAIN,*) ' must make one of three adjustments:'
write(IMAIN,*) ' - increase USER_T0 to be at least: ',t0-min_tshift_cmt_original
write(IMAIN,*) ' - decrease time shift in CMTSOLUTION file'
write(IMAIN,*) ' - decrease hdur in CMTSOLUTION file'
More information about the CIG-COMMITS
mailing list