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
5944d0e4
Commit
5944d0e4
authored
Dec 03, 2015
by
Florian Wittkamp
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Bugfix: Free surface viscoelastic
parent
d4ee553f
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
3 deletions
+2
-3
src/surface_PML.c
src/surface_PML.c
+2
-3
No files found.
src/surface_PML.c
View file @
5944d0e4
...
...
@@ -36,18 +36,17 @@ void surface_PML(int ndepth, float ** vx, float ** vy, float ** sxx, float ** sy
float
vxx
,
vyy
,
sump
=
0
.
0
;
float
dh24
,
dthalbe
;
float
*
pts
,
ws
,
sumu
,
sumpi
,
mu
,
pi
;
extern
float
DT
,
DH
,
*
FL
,
WAVETYPE
;
extern
float
DT
,
DH
,
*
FL
;
extern
int
NX
,
INVMAT1
,
L
;
extern
int
FW
,
BOUNDARY
;
extern
int
NPROCX
,
NPROCY
,
POS
[
3
],
MYID
;
extern
int
FDORDER
;
extern
int
FDORDER
,
WAVETYPE
;
extern
float
F_REF
;
fdoh
=
FDORDER
/
2
;
dthalbe
=
DT
/
2
.
0
;
dh24
=
1
.
0
/
DH
;
if
(
WAVETYPE
==
1
||
WAVETYPE
==
3
){
/* vector for maxwellbodies */
pts
=
vector
(
1
,
L
);
...
...
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