Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Serhiy Mochalskyy
STARWALL
Commits
4c9a20ff
Commit
4c9a20ff
authored
May 24, 2016
by
Serhiy Mochalskyy
Browse files
modified output
parent
602f94d1
Pipeline
#3631
skipped
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
src_3d/resistive_wall_response.f90
View file @
4c9a20ff
...
...
@@ -77,18 +77,24 @@ end do
call
computing_s_ww_inverse
!=================================================
call
MPI_BARRIER
(
MPI_COMM_WORLD
,
ier
)
time2
=
MPI_WTIME
()
if
(
rank
==
0
)
write
(
*
,
*
)
'Total wall clock time before output ='
,
(
time2
-
time1
)/
3600.0
,
' hours'
if
(
rank
==
0
)
write
(
*
,
*
)
'======================================================================='
!=================================================
call
output
!=================================================
if
(
rank
==
0
)
write
(
*
,
*
)
'Program FINISH'
if
(
rank
==
0
)
write
(
*
,
*
)
'==============================================================='
if
(
rank
==
0
)
write
(
*
,
*
)
'===============================================================
========
'
call
MPI_BARRIER
(
MPI_COMM_WORLD
,
ier
)
time
2
=
MPI_WTIME
()
time
3
=
MPI_WTIME
()
if
(
rank
==
0
)
write
(
*
,
*
)
'Total wall clock time ='
,
(
time
2
-
time1
)/
3600.0
,
' hours'
if
(
rank
==
0
)
write
(
*
,
*
)
'==============================================================='
if
(
rank
==
0
)
write
(
*
,
*
)
'Total wall clock time
including output
='
,
(
time
3
-
time1
)/
3600.0
,
' hours'
if
(
rank
==
0
)
write
(
*
,
*
)
'===============================================================
========
'
end
subroutine
resistive_wall_response
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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