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
IFOS3D
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
7
Issues
7
List
Boards
Labels
Service Desk
Milestones
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
IFOS3D
Commits
c32f8569
Commit
c32f8569
authored
Apr 12, 2016
by
Simone Butzer
Browse files
Options
Browse Files
Download
Plain Diff
Merge branch 'master' of git.scc.kit.edu:GPIAG-Software/IFOS3D
parents
bf0e913c
c7906f60
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
4 deletions
+8
-4
src/ifos3d.c
src/ifos3d.c
+8
-4
No files found.
src/ifos3d.c
View file @
c32f8569
...
...
@@ -736,9 +736,11 @@ CPML_coeff(K_x,alpha_prime_x,a_x,b_x,K_x_half,alpha_prime_x_half,a_x_half,b_x_ha
if
(
!
ntast
)
ntast
=
1
;
fprintf
(
FP
,
"ntast=%i, TAST=%i
\n
"
,
ntast
,
TAST
);
}
if
(
MYID
==
0
)
fprintf
(
FP
,
"
\n
****************************************
\n
"
);
for
(
nt
=
1
;
nt
<=
NT
;
nt
++
){
fprintf
(
FP
,
"%d"
,
nt
);
if
(
MYID
==
0
)
if
(
!
(
nt
%
(
NT
/
40
)))
fprintf
(
FP
,
"*"
);
time_v_update
[
nt
]
=
0
.
0
;
time_s_update
[
nt
]
=
0
.
0
;
...
...
@@ -889,9 +891,11 @@ CPML_coeff(K_x,alpha_prime_x,a_x,b_x,K_x_half,alpha_prime_x_half,a_x_half,b_x_ha
/* Initialisieren de Wellenfeldes mit Nullen */
zero_wavefield
(
NX
,
NY
,
NZ
,
vx
,
vy
,
vz
,
sxx
,
syy
,
szz
,
sxy
,
syz
,
sxz
,
rxx
,
ryy
,
rzz
,
rxy
,
ryz
,
rxz
,
psi_sxx_x
,
psi_sxy_x
,
psi_sxz_x
,
psi_sxy_y
,
psi_syy_y
,
psi_syz_y
,
psi_sxz_z
,
psi_syz_z
,
psi_szz_z
,
psi_vxx
,
psi_vyx
,
psi_vzx
,
psi_vxy
,
psi_vyy
,
psi_vzy
,
psi_vxz
,
psi_vyz
,
psi_vzz
);
if
(
MYID
==
0
)
fprintf
(
FP
,
"
\n
****************************************
\n
"
);
for
(
nt
=
1
;
nt
<=
NT
;
nt
++
){
fprintf
(
FP
,
"%d"
,
nt
);
if
(
MYID
==
0
)
if
(
!
(
nt
%
(
NT
/
40
)))
fprintf
(
FP
,
"*"
);
time_v_update
[
nt
]
=
0
.
0
;
time_s_update
[
nt
]
=
0
.
0
;
...
...
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