[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