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
6a713e87
Commit
6a713e87
authored
Jan 24, 2019
by
Sabine
Browse files
bugfix in readspecies, DOW* were unitialized
parent
7123c700
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/readspecies.f90
View file @
6a713e87
...
...
@@ -100,10 +100,14 @@ subroutine readspecies(id_spec,pos_spec)
pweightmolar
=
-999.9
do
j
=
1
,
24
! initialize everything to no variation
parea_hour
(
j
)
=
1.
ppoint_hour
(
j
)
=
1.
area_hour
(
pos_spec
,
j
)
=
1.
point_hour
(
pos_spec
,
j
)
=
1.
end
do
do
j
=
1
,
7
parea_dow
(
j
)
=
1.
ppoint_dow
(
j
)
=
1.
area_dow
(
pos_spec
,
j
)
=
1.
point_dow
(
pos_spec
,
j
)
=
1.
end
do
...
...
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