[cig-commits] [commit] devel, master: Fix spelling of some constants. (38469fd)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem3d_globe

On branches: devel,master
Link       : https://github.com/geodynamics/specfem3d_globe/compare/bc58e579b3b0838a0968725a076f5904845437ca...be63f20cbb6f462104e949894dbe205d2398cd7f

>---------------------------------------------------------------

commit 38469fdf5dd7d43b93fadf9e8a3aa02bceeb73a4
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date:   Sat May 31 18:08:55 2014 -0400

    Fix spelling of some constants.


>---------------------------------------------------------------

38469fdf5dd7d43b93fadf9e8a3aa02bceeb73a4
 setup/constants.h.in                | 8 ++++----
 src/meshfem3D/moho_stretching.f90   | 4 ++--
 src/shared/get_model_parameters.f90 | 4 ++--
 3 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/setup/constants.h.in b/setup/constants.h.in
index 109b8e9..b88fd5a 100644
--- a/setup/constants.h.in
+++ b/setup/constants.h.in
@@ -732,8 +732,8 @@
 ! (values are chosen for 3D models to have RMOHO_FICTICIOUS at 35 km
 !  and RMIDDLE_CRUST to become 15 km with stretching function stretch_tab)
   double precision, parameter :: MAX_RATIO_CRUST_STRETCHING = 0.75d0
-  double precision, parameter :: RMOHO_STRETCH_ADJUSTEMENT = 5000.d0 ! moho up to 35km
-  double precision, parameter :: R80_STRETCH_ADJUSTEMENT = -40000.d0 ! r80 down to 120km
+  double precision, parameter :: RMOHO_STRETCH_ADJUSTMENT = 5000.d0 ! moho up to 35km
+  double precision, parameter :: R80_STRETCH_ADJUSTMENT = -40000.d0 ! r80 down to 120km
 
 ! adapted regional moho stretching
 ! 1 chunk simulations, 3-layer crust
@@ -742,9 +742,9 @@
   logical, parameter :: REGIONAL_MOHO_MESH_ASIA = .false.   ! used only for fixing time step
   logical, parameter :: HONOR_DEEP_MOHO = .false.
 !!-- uncomment for e.g. Europe case, where deep moho is rare
-!  double precision, parameter :: RMOHO_STRETCH_ADJUSTEMENT = -15000.d0  ! moho mesh boundary down to 55km
+!  double precision, parameter :: RMOHO_STRETCH_ADJUSTMENT = -15000.d0  ! moho mesh boundary down to 55km
 !!-- uncomment for deep moho cases, e.g. Asia case (Himalayan moho)
-!  double precision, parameter :: RMOHO_STRETCH_ADJUSTEMENT = -20000.d0  ! moho mesh boundary down to 60km
+!  double precision, parameter :: RMOHO_STRETCH_ADJUSTMENT = -20000.d0  ! moho mesh boundary down to 60km
 
 !!-----------------------------------------------------------
 !!
diff --git a/src/meshfem3D/moho_stretching.f90 b/src/meshfem3D/moho_stretching.f90
index a7ccb1b..aff1d91 100644
--- a/src/meshfem3D/moho_stretching.f90
+++ b/src/meshfem3D/moho_stretching.f90
@@ -377,7 +377,7 @@
   double precision,parameter ::  R60=6311000.d0/R_EARTH
 
   ! checks moho position: supposed to be at 60 km
-  if( RMOHO_STRETCH_ADJUSTEMENT /= -20000.d0 ) &
+  if( RMOHO_STRETCH_ADJUSTMENT /= -20000.d0 ) &
     stop 'wrong moho stretch adjustement for stretch_deep_moho'
   if( RMOHO_FICTITIOUS_IN_MESHER/R_EARTH /= R60 ) &
     stop 'wrong moho depth '
@@ -526,7 +526,7 @@
   double precision,parameter ::  R60=6311000.d0/R_EARTH
 
   ! checks moho position: supposed to be at 55 km
-  if( RMOHO_STRETCH_ADJUSTEMENT /= -15000.d0 ) &
+  if( RMOHO_STRETCH_ADJUSTMENT /= -15000.d0 ) &
     stop 'wrong moho stretch adjustement for stretch_deep_moho'
   if( RMOHO_FICTITIOUS_IN_MESHER/R_EARTH /= R55 ) &
     stop 'wrong moho depth '
diff --git a/src/shared/get_model_parameters.f90 b/src/shared/get_model_parameters.f90
index 3f5c7ce..77c65ca 100644
--- a/src/shared/get_model_parameters.f90
+++ b/src/shared/get_model_parameters.f90
@@ -670,8 +670,8 @@
       ! mesh will honor 3D crustal moho topography
       ! moves MOHO up 5km to honor moho topography deeper than 35 km
       ! moves R80 down to 120km depth in order to have less squeezing for elements below moho
-      RMOHO_FICTITIOUS_IN_MESHER = RMOHO_FICTITIOUS_IN_MESHER + RMOHO_STRETCH_ADJUSTEMENT
-      R80_FICTITIOUS_IN_MESHER = R80_FICTITIOUS_IN_MESHER + R80_STRETCH_ADJUSTEMENT
+      RMOHO_FICTITIOUS_IN_MESHER = RMOHO_FICTITIOUS_IN_MESHER + RMOHO_STRETCH_ADJUSTMENT
+      R80_FICTITIOUS_IN_MESHER = R80_FICTITIOUS_IN_MESHER + R80_STRETCH_ADJUSTMENT
     endif
   endif