From 3ee5bee924a2e0bbc7959252ec56d0c11abcf31f Mon Sep 17 00:00:00 2001 From: Dimitri Komatitsch Date: Thu, 10 May 2018 18:26:56 +0200 Subject: [PATCH] changed a file name in EXAMPLES/attenuation/viscoelastic/analytical_solution_viscoelastic_3D_Carcione_and_Komatitsch_correct_with_1_over_L.f90 --- ...tic_3D_Carcione_and_Komatitsch_correct_with_1_over_L.f90 | 6 +++--- run_this_example.sh | 4 ---- 2 files changed, 3 insertions(+), 7 deletions(-) diff --git a/EXAMPLES/attenuation/viscoelastic/analytical_solution_viscoelastic_3D_Carcione_and_Komatitsch_correct_with_1_over_L.f90 b/EXAMPLES/attenuation/viscoelastic/analytical_solution_viscoelastic_3D_Carcione_and_Komatitsch_correct_with_1_over_L.f90 index 1f87dcafa..bf1dcd7fb 100644 --- a/EXAMPLES/attenuation/viscoelastic/analytical_solution_viscoelastic_3D_Carcione_and_Komatitsch_correct_with_1_over_L.f90 +++ b/EXAMPLES/attenuation/viscoelastic/analytical_solution_viscoelastic_3D_Carcione_and_Komatitsch_correct_with_1_over_L.f90 @@ -175,10 +175,10 @@ program analytical_solution enddo ! sauvegarde du spectre d'amplitude de la source en Hz au format Gnuplot - open(unit=10,file='spectrum.gnu',status='unknown') + open(unit=10,file='spectrum_of_the_source_used.gnu',status='unknown') do ifreq = 0,nfreq - freq = deltafreq * dble(ifreq) - write(10,*) sngl(freq),sngl(ampli(ifreq)) + freq = deltafreq * dble(ifreq) + write(10,*) sngl(freq),sngl(ampli(ifreq)) enddo close(10) diff --git a/run_this_example.sh b/run_this_example.sh index 6a263a0f5..cfdde0849 100755 --- a/run_this_example.sh +++ b/run_this_example.sh @@ -3,10 +3,6 @@ echo "running example: `date`" currentdir=`pwd` -echo -echo "(will take about 15 minutes)" -echo - # sets up directory structure in current example directory echo echo " setting up example..."