Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
GPIAG-Software
IFOS3D
Commits
7bdc5fd9
Commit
7bdc5fd9
authored
Apr 08, 2016
by
Tilman Steinweg
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
renamed german variables
parent
6f519221
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
6 additions
and
6 deletions
+6
-6
par/in_and_out/ifos3d.inp
par/in_and_out/ifos3d.inp
+1
-1
par/in_and_out/ifos3d_toy.inp
par/in_and_out/ifos3d_toy.inp
+1
-1
src/wavelet.c
src/wavelet.c
+4
-4
No files found.
par/in_and_out/ifos3d.inp
View file @
7bdc5fd9
...
...
@@ -40,7 +40,7 @@ point_source_(explosive=1;force_in_x=2;in_y=3;in_z=4;custom=5)_(SOURCE_TYPE) = 4
force_angle_between_x_y_(in_degree)_(ALPHA) = 45.0
force_angle_between_x_z_(in_degree)_(BETA) = 45.0
# Plane wave (PW) excitation,if PLANE_WAVE_DEPTH>0, SRCREC is treated as 0
depth_of_PW_excitation_(no<=0)_(in_meter)_(PLANE_WAVE_DEPTH) = 0.0
direct.com/
depth_of_PW_excitation_(no<=0)_(in_meter)_(PLANE_WAVE_DEPTH) = 0.0
dip_of_PW_from_vertical_(in_degrees)_(PHI) =0.0
duration_of_source-signal_PW_(in_seconds)_(TS) = 0.0033
# External signal input instead of SOURCE_SHAPE
...
...
par/in_and_out/ifos3d_toy.inp
View file @
7bdc5fd9
...
...
@@ -40,7 +40,7 @@ point_source_(explosive=1;force_in_x=2;in_y=3;in_z=4;custom=5)_(SOURCE_TYPE) = 4
force_angle_between_x_y_(in_degree)_(ALPHA) = 45.0
force_angle_between_x_z_(in_degree)_(BETA) = 45.0
# Plane wave (PW) excitation,if PLANE_WAVE_DEPTH>0, SRCREC is treated as 0
depth_of_PW_excitation_(no<=0)_(in_meter)_(PLANE_WAVE_DEPTH) = 0.0
direct.com/
depth_of_PW_excitation_(no<=0)_(in_meter)_(PLANE_WAVE_DEPTH) = 0.0
dip_of_PW_from_vertical_(in_degrees)_(PHI) =0.0
duration_of_source-signal_PW_(in_seconds)_(TS) = 0.0033
# External signal input instead of SOURCE_SHAPE
...
...
src/wavelet.c
View file @
7bdc5fd9
...
...
@@ -26,7 +26,7 @@
#include "fd.h"
void
wavelet
(
float
**
srcpos_loc
,
int
nsrc
,
int
quellty
pe
,
float
**
signals
){
void
wavelet
(
float
**
srcpos_loc
,
int
nsrc
,
int
sourcesha
pe
,
float
**
signals
){
/* extern variables */
...
...
@@ -40,7 +40,7 @@ void wavelet(float ** srcpos_loc, int nsrc, int quelltype, float **signals){
float
*
psource
=
NULL
,
tshift
,
amp
=
0
.
0
,
a
,
fc
,
tau
,
t
,
ts
;
if
(
quellty
pe
==
3
)
psource
=
rd_sour
(
&
nts
,
fopen
(
SIGNAL_FILE
,
"r"
));
if
(
sourcesha
pe
==
3
)
psource
=
rd_sour
(
&
nts
,
fopen
(
SIGNAL_FILE
,
"r"
));
/*signals=fmatrix(1,nsrc,1,NT);*/
...
...
@@ -53,7 +53,7 @@ void wavelet(float ** srcpos_loc, int nsrc, int quelltype, float **signals){
a
=
srcpos_loc
[
6
][
k
];
ts
=
1
.
0
/
fc
;
switch
(
quellty
pe
){
switch
(
sourcesha
pe
){
case
1
:
tau
=
PI
*
(
t
-
1
.
5
*
ts
-
tshift
)
/
(
ts
);
/* Ricker */
amp
=
(((
1
.
0
-
2
.
0
*
tau
*
tau
)
*
exp
(
-
tau
*
tau
)));
...
...
@@ -89,7 +89,7 @@ void wavelet(float ** srcpos_loc, int nsrc, int quelltype, float **signals){
}
}
fprintf
(
FP
,
" Message from function wavelet written by PE %d,
quellty
pe %d
\n
"
,
MYID
,
quellty
pe
);
fprintf
(
FP
,
" Message from function wavelet written by PE %d,
sourcesha
pe %d
\n
"
,
MYID
,
sourcesha
pe
);
fprintf
(
FP
,
" %d source positions located in subdomain of PE %d
\n
"
,
nsrc
,
MYID
);
fprintf
(
FP
,
" have been assigned with a source signal.
\n
"
);
...
...
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