showmdl - Shows the content of a disper input file converted back to velocity and density
showmdl [ infile ]
Compatible with Basic Seismic Utilities (BSU). Program gendis creates an input file with namelist data for program disper. While gendis requires a layered earth model specified in terms of velocities, densities, and control depths, the namelist produced is expressed in terms of shear modulus mu and Lame’s constant lame. Program showmdl reads an input file (typically called disper.d ) and recomputes the elastic constants in terms of velocity and densities for a human readable format. Fortran 77 Version.
Example
Output
pm@penguin:~$ showmdl disper.d
show.tmp
&disper
nlay= 3,
rho=
0.1600E+04, 0.1600E+04, 0.2000E+04,
mu=
0.6400E+08, 0.6400E+08, 0.5000E+09,
lame=
0.8960E+09, 0.8960E+09, 0.2800E+09,
zi=
0.0000E+00, 0.2000E+01, 0.2010E+01,
iskip=1,
deltz= 2.0000,
modemx=9,
nfreq=101, flo= 0.1000000E+01, delf= 0.97656244E+00,
jsmax=300, ksw=0,
pvlcty=0.0, pfreq=0.0, zend=100.0,
ofile=’disper.tmp’,
scilb1=’phase.sci’,
scilb2=’mat2.sci’,
curve=’earth.crv’, /
1 0.00 200.00 800.00 1600.0
2 2.00 200.00 800.00 1600.0
3 2.01 500.00 800.00 2000.0
The last lines of output are the control points for the 1-D earth model, given as control number, depth, S-wave velocity, P-wave velocity, and mass density.
|
stdout |
Output is simultaneously generated to stdout and a text file. |
show.tmp
File which saves the text output.
gendis(1), genwave(1), waves(1), disper(1), halfsp(1)
no known bugs
Copyright © 2009 by Paul Michaels
This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
P. Michaels, PE. <pm@cgiss.boisestate.edu>