view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/sunix/NMO_Vel_Stk/sushift.pm  view on Meta::CPAN

 fill=0.0               value to place in padded samples 		



 (defaults for tmin and tmax are calculated from the first trace.	

 verbose=		1 echos parameters to stdout			



 Background :								

 tmin and tmax must be given in seconds				



 In the high resolution single channel seismic profiling the sample 	

 interval is short, the shot rate and the number of samples are high.	

 To reduce the file size the delrt time is changed during a profiling	

 trip. To process and display a seismic section a constant delrt is	

 needed. This program does this job.					



 The SEG-Y header variable delrt (delay in ms) is a short integer.	

 That's why in the example shown below delrt is rounded to 123 !	



   ... | sushift tmin=0.1234 tmax=0.2234 | ...				



 The dt= and fill= options are intended for manipulating velocity	

 volumes in trace format.  In particular models which were hung	

 from the water bottom when created & which then need to have the	

 water layer added.							







 Author:



 Toralf Foerster

 Institut fuer Ostseeforschung Warnemuende

 Sektion Marine Geologie

 Seestrasse 15

 D-18119 Rostock, Germany



 Trace header fields accessed: ns, delrt

 Trace header fields modified: ns, delrt



=head2 User's notes (Juan Lorenzo)
untested

=cut


=head2 CHANGES and their DATES

=cut

use Moose;
our $VERSION = '0.0.1';


=head2 Import packages

=cut

use aliased 'App::SeismicUnixGui::misc::L_SU_global_constants';

use App::SeismicUnixGui::misc::SeismicUnix qw($go $in $off $on $out $ps $to $suffix_ascii $suffix_bin $suffix_ps $suffix_segy $suffix_su);
use aliased 'App::SeismicUnixGui::configs::big_streams::Project_config';


=head2 instantiation of packages

=cut

my $get					= L_SU_global_constants->new();
my $Project				= Project_config->new();
my $DATA_SEISMIC_SU		= $Project->DATA_SEISMIC_SU();
my $DATA_SEISMIC_BIN	= $Project->DATA_SEISMIC_BIN();
my $DATA_SEISMIC_TXT	= $Project->DATA_SEISMIC_TXT();

my $PS_SEISMIC      	= $Project->PS_SEISMIC();

my $var				= $get->var();
my $on				= $var->{_on};
my $off				= $var->{_off};
my $true			= $var->{_true};
my $false			= $var->{_false};
my $empty_string	= $var->{_empty_string};

=head2 Encapsulated
hash of private variables

=cut