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
SOFI2D
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
1
Issues
1
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
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
SOFI2D
Commits
c1812267
Commit
c1812267
authored
Oct 26, 2015
by
Tilman Steinweg
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Cleanup
parent
3b01f88e
Changes
5
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
12 additions
and
11 deletions
+12
-11
src/exchange_s.c
src/exchange_s.c
+3
-2
src/exchange_v.c
src/exchange_v.c
+2
-1
src/psource.c
src/psource.c
+3
-2
src/surface.c
src/surface.c
+2
-3
src/surface_elastic.c
src/surface_elastic.c
+2
-3
No files found.
src/exchange_s.c
View file @
c1812267
...
...
@@ -31,8 +31,9 @@ void exchange_s(int nd, float ** sxx, float ** syy,
MPI_Request
*
req_send
,
MPI_Request
*
req_rec
){
extern
int
NX
,
NY
,
POS
[
3
],
NPROCX
,
NPROCY
,
BOUNDARY
,
FDORDER
;
extern
int
INDEX
[
5
],
MYID
;
extern
int
NX
,
NY
,
POS
[
3
],
NPROCX
,
NPROCY
,
BOUNDARY
;
// extern int FDORDER;
extern
int
INDEX
[
5
];
extern
const
int
TAG1
,
TAG2
,
TAG5
,
TAG6
;
MPI_Status
status
;
int
i
,
j
,
fdo
,
fdo2
,
n
,
l
;
...
...
src/exchange_v.c
View file @
c1812267
...
...
@@ -31,7 +31,8 @@ void exchange_v(int nd, float ** vx, float ** vy,
MPI_Request
*
req_send
,
MPI_Request
*
req_rec
){
extern
int
NX
,
NY
,
POS
[
3
],
NPROCX
,
NPROCY
,
BOUNDARY
,
FDORDER
;
extern
int
NX
,
NY
,
POS
[
3
],
NPROCX
,
NPROCY
,
BOUNDARY
;
// extern int FDORDER;
extern
int
INDEX
[
5
];
extern
const
int
TAG1
,
TAG2
,
TAG5
,
TAG6
;
MPI_Status
status
;
...
...
src/psource.c
View file @
c1812267
...
...
@@ -26,8 +26,9 @@
void
psource
(
int
nt
,
float
**
sxx
,
float
**
syy
,
float
**
srcpos_loc
,
float
**
signals
,
int
nsrc
){
extern
float
DH
,
DT
;
extern
int
RSG
,
NT
;
extern
float
DH
;
// extern int RSG;
extern
int
NT
;
int
i
,
j
,
l
;
float
amp
=
0
;
...
...
src/surface.c
View file @
c1812267
...
...
@@ -29,14 +29,14 @@ float ** pi, float ** u, float ** taup,
float
**
taus
,
float
*
etajm
,
float
*
peta
,
float
*
hc
,
float
*
K_x
,
float
*
a_x
,
float
*
b_x
,
float
**
psi_vxx
){
int
i
,
j
,
l
,
m
,
h
,
h
1
,
fdoh
;
int
i
,
j
,
l
,
m
,
h1
,
fdoh
;
float
bjm
,
djm
,
e
,
fjm
,
g
,
dhi
;
float
vxx
,
vyy
,
sump
=
0
.
0
;
float
dthalbe
;
extern
float
DT
,
DH
;
extern
int
NX
,
L
,
FDORDER
;
extern
int
FW
,
BOUNDARY
;
extern
int
NPROCX
,
NPROCY
,
POS
[
3
],
MYID
;
extern
int
NPROCX
,
POS
[
3
]
;
extern
int
ABS_TYPE
;
fdoh
=
FDORDER
/
2
;
dhi
=
1
.
0
/
DH
;
...
...
@@ -98,7 +98,6 @@ float ** taus, float * etajm, float * peta, float *hc, float * K_x, float * a_x,
if
((
!
BOUNDARY
)
&&
(
POS
[
1
]
==
NPROCX
-
1
)
&&
(
i
>=
NX
-
FW
+
1
)){
h1
=
(
i
-
NX
+
2
*
FW
);
h
=
i
;
psi_vxx
[
j
][
h1
]
=
b_x
[
h1
]
*
psi_vxx
[
j
][
h1
]
+
a_x
[
h1
]
*
vxx
;
vxx
=
vxx
/
K_x
[
h1
]
+
psi_vxx
[
j
][
h1
];
...
...
src/surface_elastic.c
View file @
c1812267
...
...
@@ -27,13 +27,13 @@ void surface_elastic(int ndepth, int * gx, float ** vx, float ** vy, float ** sx
float
**
sxy
,
float
**
pi
,
float
**
u
,
float
*
hc
,
float
*
K_x
,
float
*
a_x
,
float
*
b_x
,
float
**
psi_vxx
){
int
i
,
j
,
m
,
fdoh
,
h
,
h
1
;
int
i
,
j
,
m
,
fdoh
,
h1
;
float
fjm
,
g
,
dhi
;
float
vxx
,
vyy
;
extern
float
DT
,
DH
;
extern
int
NX
,
FDORDER
;
extern
int
FW
,
BOUNDARY
;
extern
int
NPROCX
,
NPROCY
,
POS
[
3
],
MYID
;
extern
int
NPROCX
,
POS
[
3
]
;
extern
int
ABS_TYPE
;
fdoh
=
FDORDER
/
2
;
dhi
=
1
.
0
/
DH
;
...
...
@@ -77,7 +77,6 @@ float **sxy, float **pi, float **u, float *hc, float * K_x, float * a_x, float
if
((
!
BOUNDARY
)
&&
(
POS
[
1
]
==
NPROCX
-
1
)
&&
(
i
>=
NX
-
FW
+
1
)){
h1
=
(
i
-
NX
+
2
*
FW
);
h
=
i
;
psi_vxx
[
j
][
h1
]
=
b_x
[
h1
]
*
psi_vxx
[
j
][
h1
]
+
a_x
[
h1
]
*
vxx
;
vxx
=
vxx
/
K_x
[
h1
]
+
psi_vxx
[
j
][
h1
];
...
...
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