Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
GPIAG-Software
IFOS2D
Commits
2519bd09
Commit
2519bd09
authored
Jan 15, 2016
by
laura.gassner
Browse files
adaption of seismogram output options, output of adjoint sources only if VERBOSE=1
parent
f6697382
Changes
2
Hide whitespace changes
Inline
Side-by-side
par/in_and_out/toy_example/toy_example_ac_INV.json
View file @
2519bd09
...
...
@@ -56,7 +56,7 @@
"k_max_PML"
:
"8.0"
,
"Receiver"
:
"comment"
,
"SEISMO"
:
"
5
"
,
"SEISMO"
:
"
2
"
,
"READREC"
:
"1"
,
"REC_FILE"
:
"./receiver/rec_toy_example_ac.dat"
,
"REFRECX, REFRECY"
:
"0.0 , 0.0"
,
...
...
src/denise.c
View file @
2519bd09
...
...
@@ -2092,13 +2092,18 @@ int main(int argc, char **argv){
itestshot
+=
TESTSHOT_INCR
;
}
/* Write differences between measured and synthetic seismogramms to disk */
if
(
SEISMO
){
/* Write differences between measured and synthetic seismogramms
(adjoint sources)
to disk */
if
(
SEISMO
&&
VERBOSE
){
if
(
WAVETYPE
==
1
||
WAVETYPE
==
3
){
catseis
(
sectionvxdiff
,
fulldata_vx
,
recswitch
,
ntr_glob
,
MPI_COMM_NTR
);
catseis
(
sectionvydiff
,
fulldata_vy
,
recswitch
,
ntr_glob
,
MPI_COMM_NTR
);
if
(
ACOUSTIC
)
if
((
QUELLTYPB
==
1
)
||
(
QUELLTYPB
==
3
)){
catseis
(
sectionvxdiff
,
fulldata_vx
,
recswitch
,
ntr_glob
,
MPI_COMM_NTR
);
}
if
((
QUELLTYPB
==
1
)
||
(
QUELLTYPB
==
2
)){
catseis
(
sectionvydiff
,
fulldata_vy
,
recswitch
,
ntr_glob
,
MPI_COMM_NTR
);
}
if
(
QUELLTYPB
==
4
){
catseis
(
sectionpdiff
,
fulldata_p
,
recswitch
,
ntr_glob
,
MPI_COMM_NTR
);
}
}
if
(
WAVETYPE
==
2
||
WAVETYPE
==
3
){
catseis
(
sectionvzdiff
,
fulldata_vz
,
recswitch
,
ntr_glob
,
MPI_COMM_NTR
);
...
...
@@ -2111,10 +2116,15 @@ int main(int argc, char **argv){
/* Write measured filtered seismogramms to disk */
if
(
SEISMO
&&
TIME_FILT
&&
WRITE_FILTERED_DATA
){
if
(
WAVETYPE
==
1
||
WAVETYPE
==
3
){
catseis
(
sectionvxdata
,
fulldata_vx
,
recswitch
,
ntr_glob
,
MPI_COMM_NTR
);
catseis
(
sectionvydata
,
fulldata_vy
,
recswitch
,
ntr_glob
,
MPI_COMM_NTR
);
if
(
ACOUSTIC
)
if
((
QUELLTYPB
==
1
)
||
(
QUELLTYPB
==
3
)){
catseis
(
sectionvxdata
,
fulldata_vx
,
recswitch
,
ntr_glob
,
MPI_COMM_NTR
);
}
if
((
QUELLTYPB
==
1
)
||
(
QUELLTYPB
==
2
)){
catseis
(
sectionvydata
,
fulldata_vy
,
recswitch
,
ntr_glob
,
MPI_COMM_NTR
);
}
if
(
QUELLTYPB
==
4
){
catseis
(
sectionpdata
,
fulldata_p
,
recswitch
,
ntr_glob
,
MPI_COMM_NTR
);
}
}
if
(
WAVETYPE
==
2
||
WAVETYPE
==
3
){
catseis
(
sectionvzdata
,
fulldata_vz
,
recswitch
,
ntr_glob
,
MPI_COMM_NTR
);
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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