Skip to content

Commit

Permalink
Pulled new version of post_processing.F90 from master
Browse files Browse the repository at this point in the history
 - Removed debugging output
  • Loading branch information
sstaehler committed Jul 9, 2014
1 parent 17c8c64 commit cbc40ea
Showing 1 changed file with 5 additions and 3 deletions.
8 changes: 5 additions & 3 deletions SOLVER/UTILS/post_processing.F90
Original file line number Diff line number Diff line change
Expand Up @@ -56,7 +56,7 @@ module data_all
logical :: detailed_output
character(len=16) :: simtype
logical :: use_netcdf
character(len=4), parameter :: seistype = 'disp'
character(len=4), parameter :: seistype = 'disp'

! discrete dirac sources
real :: shift_fact
Expand Down Expand Up @@ -305,8 +305,8 @@ program post_processing_seis
//trim(recname(i))//'_'//seistype//'_post_'&
//trim(src_type(isim,2))

write(6,*) 'outname: ', i, trim(outname(i,isim))
write(6,*) 'outname2: ', isim, trim(outname2(i,isim))
!write(6,*) 'outname: ', i, trim(outname(i,isim))
!write(6,*) 'outname2: ', isim, trim(outname2(i,isim))
enddo
enddo

Expand Down Expand Up @@ -580,6 +580,8 @@ subroutine read_input
read(keyvalue, *) conv_period
case('CONV_STF')
read(keyvalue, *) conv_stf
! Removing this option since velocity seismograms
! are not produced in the solver
!case('SEISTYPE')
! seistype = keyvalue
case('LOAD_SNAPS')
Expand Down

0 comments on commit cbc40ea

Please sign in to comment.