Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
IFOS2D
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
4
Issues
4
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Environments
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
GPIAG-Software
IFOS2D
Commits
b77405bb
Commit
b77405bb
authored
Jun 07, 2018
by
niklas.thiel
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
removed bug: enable writing out vx, vy seismograms during forward modelling only again
parent
15c13ee0
Changes
1
Pipelines
2
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
14 deletions
+5
-14
src/saveseis_glob.c
src/saveseis_glob.c
+5
-14
No files found.
src/saveseis_glob.c
View file @
b77405bb
...
...
@@ -143,17 +143,8 @@ void saveseis_glob(FILE *fp, float **sectionvx, float **sectionvy,float **sectio
}
if
(
FORWARD_ONLY
==
1
){
if
(
ADJOINT_TYPE
==
1
)
{
sprintf
(
vxf
,
"%s_vx.su.shot%d"
,
SEIS_FILE
,
ishot
);
sprintf
(
vyf
,
"%s_vy.su.shot%d"
,
SEIS_FILE
,
ishot
);
}
if
(
ADJOINT_TYPE
==
2
){
sprintf
(
vyf
,
"%s_vy.su.shot%d"
,
SEIS_FILE
,
ishot
);
}
if
(
ADJOINT_TYPE
==
3
){
sprintf
(
vxf
,
"%s_vx.su.shot%d"
,
SEIS_FILE
,
ishot
);
}
sprintf
(
vxf
,
"%s_vx.su.shot%d"
,
SEIS_FILE
,
ishot
);
sprintf
(
vyf
,
"%s_vy.su.shot%d"
,
SEIS_FILE
,
ishot
);
if
(
WAVETYPE
==
2
||
WAVETYPE
==
3
)
{
sprintf
(
vzf
,
"%s_vz.su.shot%d"
,
SEIS_FILE
,
ishot
);
}
...
...
@@ -165,7 +156,7 @@ void saveseis_glob(FILE *fp, float **sectionvx, float **sectionvy,float **sectio
switch
(
SEISMO
){
case
1
:
/* particle velocities only */
if
(
WAVETYPE
==
1
||
WAVETYPE
==
3
)
{
if
(
ADJOINT_TYPE
==
1
)
{
if
(
ADJOINT_TYPE
==
1
||
ADJOINT_TYPE
==
0
)
{
if
(
VERBOSE
==
1
)
fprintf
(
fp
,
" PE %d is writing %d seismograms (vx) to
\n\t
%s
\n
"
,
0
,
ntr
,
vxf
);
outseis_glob
(
fp
,
fopen
(
vxf
,
"w"
),
1
,
sectionvx
,
recpos
,
recpos_loc
,
ntr
,
srcpos
,
nsrc
,
ns
,
SEIS_FORMAT
,
ishot
,
1
);
...
...
@@ -201,7 +192,7 @@ void saveseis_glob(FILE *fp, float **sectionvx, float **sectionvy,float **sectio
case
4
:
/* everything */
if
(
WAVETYPE
==
1
||
WAVETYPE
==
3
)
{
if
(
ADJOINT_TYPE
==
1
)
{
if
(
ADJOINT_TYPE
==
1
||
ADJOINT_TYPE
==
0
)
{
if
(
VERBOSE
==
1
)
fprintf
(
fp
,
" PE %d is writing %d seismograms (vx) to
\n\t
%s
\n
"
,
0
,
ntr
,
vxf
);
outseis_glob
(
fp
,
fopen
(
vxf
,
"w"
),
1
,
sectionvx
,
recpos
,
recpos_loc
,
ntr
,
srcpos
,
nsrc
,
ns
,
SEIS_FORMAT
,
ishot
,
1
);
if
(
VERBOSE
==
1
)
fprintf
(
fp
,
" PE %d is writing %d seismograms (vy) to
\n\t
%s
\n
"
,
0
,
ntr
,
vyf
);
...
...
@@ -232,7 +223,7 @@ void saveseis_glob(FILE *fp, float **sectionvx, float **sectionvy,float **sectio
case
5
:
/* everything except curl and div */
if
(
WAVETYPE
==
1
||
WAVETYPE
==
3
)
{
if
(
ADJOINT_TYPE
==
1
)
{
if
(
ADJOINT_TYPE
==
1
||
ADJOINT_TYPE
==
0
)
{
if
(
VERBOSE
==
1
)
fprintf
(
fp
,
" PE %d is writing %d seismograms (vx) to
\n\t
%s
\n
"
,
0
,
ntr
,
vxf
);
outseis_glob
(
fp
,
fopen
(
vxf
,
"w"
),
1
,
sectionvx
,
recpos
,
recpos_loc
,
ntr
,
srcpos
,
nsrc
,
ns
,
SEIS_FORMAT
,
ishot
,
1
);
if
(
VERBOSE
==
1
)
fprintf
(
fp
,
" PE %d is writing %d seismograms (vy) to
\n\t
%s
\n
"
,
0
,
ntr
,
vyf
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment