Buildbot ran the code beautifier.

SPECFEM · Mar 7, 2023 · 4511264 · 4511264
1 parent 65cb2a4
commit 4511264
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 7 deletions.
diff --git a/run_this_example.sh b/run_this_example.sh
@@ -1,14 +1,14 @@
 #!/bin/bash
 #
-# This script runs the main directory SPECFEM2D example problem, which is shown 
+# This script runs the main directory SPECFEM2D example problem, which is shown
 # on the cover of the User Manual (https://specfem2d.readthedocs.io/en/latest/)
 #
 # Under the hood it runs the mesher and the solver (in serial or parallel) for
-# a multi-layered 2D domain with topography and a cavity. 
+# a multi-layered 2D domain with topography and a cavity.
 #
 # To create a movie of the results, have a look at the script:
 # ./utils/create_main_repo_example_movie.sh
-# 
+#
 
 echo "running example: `date`"
 currentdir=`pwd`

diff --git a/src/specfem2D/define_external_model_from_tomo_file.f90 b/src/specfem2D/define_external_model_from_tomo_file.f90
@@ -430,7 +430,7 @@ subroutine define_external_model_from_tomo_file(rhoext,vpext,vsext, &
           QKappa_attenuationcoef(kmato(ispec)) = QKappa_attenuationext(i,j,ispec)
           Qmu_attenuationcoef(kmato(ispec)) = Qmu_attenuationext(i,j,ispec)
 
-          ! counting gll points with tomography model values assigned
+          ! counting GLL points with tomography model values assigned
           npoint_tomo = npoint_tomo + 1
 
         else
@@ -453,7 +453,7 @@ subroutine define_external_model_from_tomo_file(rhoext,vpext,vsext, &
           c25ext(i,j,ispec) = anisotropycoef(9,kmato(ispec))
           c22ext(i,j,ispec) = anisotropycoef(10,kmato(ispec)) ! for AXISYM
 
-          ! counting gll points with internal model values assigned
+          ! counting GLL points with internal model values assigned
           npoint_tomo = npoint_tomo + 1
         endif
       enddo

diff --git a/src/specfem2D/noise_tomography.f90 b/src/specfem2D/noise_tomography.f90
@@ -529,7 +529,7 @@ subroutine add_point_source_noise()
   integer :: i,j,iglob
 
   ! only add source in the slice where the main receiver is located
-  if (myrank .ne. islice_selected_rec(irec_main_noise)) then
+  if (myrank /= islice_selected_rec(irec_main_noise)) then
     return
   endif
 
@@ -633,7 +633,7 @@ subroutine add_surface_movie_noise(accel_elastic)
 ! read in and inject the "source" that drives the "ensemble forward wavefield"
 ! (recall that the ensemble forward wavefield has a spatially distributed source)
 
-  use constants, only: CUSTOM_REAL,NGLLX,NGLLZ,NDIM,NOISE_SAVE_EVERYWHERE,&
+  use constants, only: CUSTOM_REAL,NGLLX,NGLLZ,NDIM,NOISE_SAVE_EVERYWHERE, &
     OUTPUT_FILES,MAX_STRING_LEN
 
   use specfem_par, only: P_SV,it,NSTEP,nspec,nglob,ibool,jacobian,wxgll,wzgll,myrank,NOISE_TOMOGRAPHY