From 4511264077b06167c3d1424e98abfd7fab194de6 Mon Sep 17 00:00:00 2001 From: buildbot Date: Tue, 7 Mar 2023 08:15:02 -0500 Subject: [PATCH] Buildbot ran the code beautifier. --- run_this_example.sh | 6 +++--- src/specfem2D/define_external_model_from_tomo_file.f90 | 4 ++-- src/specfem2D/noise_tomography.f90 | 4 ++-- 3 files changed, 7 insertions(+), 7 deletions(-) diff --git a/run_this_example.sh b/run_this_example.sh index 637dce66b..f3a01f567 100755 --- 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 index 870d73651..8bb0e5ea1 100644 --- 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 index 86847903d..420020737 100644 --- 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