Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
flexpart
flexpart
Commits
df967a99
Commit
df967a99
authored
Nov 20, 2015
by
Espen Sollum
Browse files
Parallel version exits with error message if trying to run backwards
parent
b255cd09
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/FLEXPART_MPI.f90
View file @
df967a99
...
...
@@ -157,9 +157,20 @@ program flexpart
if
(
verbosity
.gt.
1
)
then
CALL
SYSTEM_CLOCK
(
count_clock
,
count_rate
,
count_max
)
write
(
*
,
*
)
'SYSTEM_CLOCK'
,(
count_clock
-
count_clock0
)/
real
(
count_rate
)
!, count_rate, count_max
endif
endif
endif
! Exit if trying to run backwards
if
(
ldirect
.le.
0
)
then
write
(
*
,
FMT
=
'(80("#"))'
)
write
(
*
,
*
)
'#### FLEXPART_MPI> ERROR: '
,
&
&
'MPI version not (yet) working with backward runs. '
,&
&
'Use the serial version instead.'
write
(
*
,
FMT
=
'(80("#"))'
)
stop
end
if
! Read the age classes to be used
!********************************
...
...
@@ -416,12 +427,15 @@ program flexpart
CALL
SYSTEM_CLOCK
(
count_clock
,
count_rate
,
count_max
)
WRITE
(
*
,
*
)
'SYSTEM_CLOCK'
,(
count_clock
-
count_clock0
)/
real
(
count_rate
)
!, count_rate, count_max
endif
if
(
info_flag
.eq.
1
)
then
print
*
,
'info only mode (stop)'
stop
endif
print
*
,
'call timemanager'
endif
if
(
info_flag
.eq.
1
)
then
print
*
,
'info only mode (stop)'
call
mpif_finalize
stop
endif
call
timemanager
...
...
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