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
18c1336f
Commit
18c1336f
authored
Mar 01, 2015
by
Ignacio Pisso
Browse files
correct missing trailing slash (/) in readpaths.f90. issue a warning.
parent
242571dd
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/readpaths.f90
View file @
18c1336f
...
...
@@ -62,20 +62,32 @@ subroutine readpaths !(pathfile)
read
(
unitpath
,
'(a)'
,
err
=
998
)
path
(
i
)
length
(
i
)
=
index
(
path
(
i
),
' '
)
-1
if
(
verbosity
.gt.
0
)
then
print
*
,
'path read'
,
i
,
'='
,
path
(
i
)
end
if
end
do
do
i
=
1
,
numpath
string_test
=
path
(
i
)
character_test
=
string_test
(
length
(
i
):
length
(
i
))
!print*, 'character_test, string_test ', character_test, string_test
if
((
character_test
.NE.
'/'
)
.AND.
(
i
.LT.
4
))
then
print
*
,
'WARNING: path not ending in /'
print
*
,
'
readpaths>
WARNING: path not ending in /'
print
*
,
path
(
i
)
path
(
i
)
=
string_test
(
1
:
length
(
i
))
//
'/'
length
(
i
)
=
length
(
i
)
+1
print
*
,
'fix: padded with /'
print
*
,
path
(
i
)
print
*
,
'length(i) increased 1'
print
*
,
'length(i) increased 1'
,
length
(
i
)
endif
end
do
end
do
! Check whether any nested subdomains are to be used
!***************************************************
...
...
@@ -94,9 +106,18 @@ subroutine readpaths !(pathfile)
30
numbnests
=
i
-1
if
(
verbosity
.gt.
0
)
then
do
i
=
1
,
numpath
print
*
,
'path tested'
,
i
,
'='
,
path
(
i
)
end
do
end
if
close
(
unitpath
)
return
998
write
(
*
,
*
)
' #### TRAJECTORY MODEL ERROR! ERROR WHILE #### '
write
(
*
,
*
)
' #### READING FILE PATHNAMES. #### '
stop
...
...
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