Skip to content

Commit

Permalink
changed a file name in EXAMPLES/attenuation/viscoelastic/analytical_s…
Browse files Browse the repository at this point in the history
…olution_viscoelastic_3D_Carcione_and_Komatitsch_correct_with_1_over_L.f90
  • Loading branch information
komatits committed May 10, 2018
1 parent 86c1d1a commit 3ee5bee
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 7 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -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)

Expand Down
4 changes: 0 additions & 4 deletions run_this_example.sh
Original file line number Diff line number Diff line change
Expand Up @@ -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..."
Expand Down

0 comments on commit 3ee5bee

Please sign in to comment.