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
7952ca45
Commit
7952ca45
authored
Aug 23, 2019
by
Ignacio Pisso
Browse files
fix verbose mode inline flag read
parent
e0489996
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/FLEXPART.f90
View file @
7952ca45
...
...
@@ -119,32 +119,15 @@ program flexpart
verbosity
=
1
!print*, iopt, inline_options(iopt+1:iopt+1)
if
(
trim
(
inline_options
(
iopt
+1
:
iopt
+1
))
.eq.
'2'
)
then
!print*, 'verbosity=2'
print
*
,
'Verbose mode 2: display more detailed information during run'
verbosity
=
2
endif
endif
!debug mode
iopt
=
index
(
inline_options
,
'd'
)
if
(
iopt
.gt.
0
)
then
debug_mode
=
.true.
endif
endif
! stop
! if (trim(inline_options).eq.'-v'.or.trim(inline_options).eq.'-v1') then
! print*, 'Verbose mode 1: display detailed information during run'
! verbosity=1
! endif
! if (trim(inline_options).eq.'-v2') then
! print*, 'Verbose mode 2: display more detailed information during run'
! verbosity=2
! endif
if
(
trim
(
inline_options
)
.eq.
'-i'
)
then
print
*
,
'Info mode: provide detailed run specific information and stop'
verbosity
=
1
...
...
Write
Preview
Supports
Markdown
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