Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
GPIAG-Software
IFOS2D
Commits
750e8ee1
Commit
750e8ee1
authored
Apr 25, 2017
by
nikolaos.athanasopoulos
Browse files
Fix error for velocity updates in elastic SH-waves
parent
6d2fbf22
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
src/update_s_elastic_PML_SH.c
View file @
750e8ee1
...
...
@@ -103,8 +103,8 @@ void update_s_elastic_PML_SH(int nx1, int nx2, int ny1, int ny2, float ** vz, f
sxz
[
j
][
i
]
+=
(
fipjp
*
vzx
);
syz
[
j
][
i
]
+=
(
f
*
vzy
);
uxz
[
j
][
i
]
+
=
(
fipjp
*
vzx
)
/
DT
;
uyz
[
j
][
i
]
+
=
(
f
*
vzy
)
/
DT
;
uxz
[
j
][
i
]
=
(
fipjp
*
vzx
)
/
DT
;
uyz
[
j
][
i
]
=
(
f
*
vzy
)
/
DT
;
}
}
...
...
@@ -159,8 +159,8 @@ void update_s_elastic_PML_SH(int nx1, int nx2, int ny1, int ny2, float ** vz, f
sxz
[
j
][
i
]
+=
(
fipjp
*
vzx
);
syz
[
j
][
i
]
+=
(
f
*
vzy
);
uxz
[
j
][
i
]
+
=
(
fipjp
*
vzx
)
/
DT
;
uyz
[
j
][
i
]
+
=
(
f
*
vzy
)
/
DT
;
uxz
[
j
][
i
]
=
(
fipjp
*
vzx
)
/
DT
;
uyz
[
j
][
i
]
=
(
f
*
vzy
)
/
DT
;
}
}
...
...
@@ -216,8 +216,8 @@ void update_s_elastic_PML_SH(int nx1, int nx2, int ny1, int ny2, float ** vz, f
sxz
[
j
][
i
]
+=
(
fipjp
*
vzx
);
syz
[
j
][
i
]
+=
(
f
*
vzy
);
uxz
[
j
][
i
]
+
=
(
fipjp
*
vzx
)
/
DT
;
uyz
[
j
][
i
]
+
=
(
f
*
vzy
)
/
DT
;
uxz
[
j
][
i
]
=
(
fipjp
*
vzx
)
/
DT
;
uyz
[
j
][
i
]
=
(
f
*
vzy
)
/
DT
;
}
}
...
...
@@ -275,8 +275,8 @@ void update_s_elastic_PML_SH(int nx1, int nx2, int ny1, int ny2, float ** vz, f
sxz
[
j
][
i
]
+=
(
fipjp
*
vzx
);
syz
[
j
][
i
]
+=
(
f
*
vzy
);
uxz
[
j
][
i
]
+
=
(
fipjp
*
vzx
)
/
DT
;
uyz
[
j
][
i
]
+
=
(
f
*
vzy
)
/
DT
;
uxz
[
j
][
i
]
=
(
fipjp
*
vzx
)
/
DT
;
uyz
[
j
][
i
]
=
(
f
*
vzy
)
/
DT
;
}
}
...
...
@@ -336,8 +336,8 @@ void update_s_elastic_PML_SH(int nx1, int nx2, int ny1, int ny2, float ** vz, f
sxz
[
j
][
i
]
+=
(
fipjp
*
vzx
);
syz
[
j
][
i
]
+=
(
f
*
vzy
);
uxz
[
j
][
i
]
+
=
(
fipjp
*
vzx
)
/
DT
;
uyz
[
j
][
i
]
+
=
(
f
*
vzy
)
/
DT
;
uxz
[
j
][
i
]
=
(
fipjp
*
vzx
)
/
DT
;
uyz
[
j
][
i
]
=
(
f
*
vzy
)
/
DT
;
}
}
...
...
@@ -399,8 +399,8 @@ void update_s_elastic_PML_SH(int nx1, int nx2, int ny1, int ny2, float ** vz, f
sxz
[
j
][
i
]
+=
(
fipjp
*
vzx
);
syz
[
j
][
i
]
+=
(
f
*
vzy
);
uxz
[
j
][
i
]
+
=
(
fipjp
*
vzx
)
/
DT
;
uyz
[
j
][
i
]
+
=
(
f
*
vzy
)
/
DT
;
uxz
[
j
][
i
]
=
(
fipjp
*
vzx
)
/
DT
;
uyz
[
j
][
i
]
=
(
f
*
vzy
)
/
DT
;
}
}
...
...
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
