Skip to content

Commit cbc40ea

Browse files
author
Simon Stähler
committed
Pulled new version of post_processing.F90 from master
- Removed debugging output
1 parent 17c8c64 commit cbc40ea

File tree

1 file changed

+5
-3
lines changed

1 file changed

+5
-3
lines changed

SOLVER/UTILS/post_processing.F90

Lines changed: 5 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -56,7 +56,7 @@ module data_all
5656
logical :: detailed_output
5757
character(len=16) :: simtype
5858
logical :: use_netcdf
59-
character(len=4), parameter :: seistype = 'disp'
59+
character(len=4), parameter :: seistype = 'disp'
6060

6161
! discrete dirac sources
6262
real :: shift_fact
@@ -305,8 +305,8 @@ program post_processing_seis
305305
//trim(recname(i))//'_'//seistype//'_post_'&
306306
//trim(src_type(isim,2))
307307

308-
write(6,*) 'outname: ', i, trim(outname(i,isim))
309-
write(6,*) 'outname2: ', isim, trim(outname2(i,isim))
308+
!write(6,*) 'outname: ', i, trim(outname(i,isim))
309+
!write(6,*) 'outname2: ', isim, trim(outname2(i,isim))
310310
enddo
311311
enddo
312312

@@ -580,6 +580,8 @@ subroutine read_input
580580
read(keyvalue, *) conv_period
581581
case('CONV_STF')
582582
read(keyvalue, *) conv_stf
583+
! Removing this option since velocity seismograms
584+
! are not produced in the solver
583585
!case('SEISTYPE')
584586
! seistype = keyvalue
585587
case('LOAD_SNAPS')

0 commit comments

Comments
 (0)