@@ -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