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
77783e3d
Commit
77783e3d
authored
Jan 24, 2019
by
Sabine
Browse files
Merge branch 'release-10.3beta' into dev
parents
a816416e
cc6abaac
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/readspecies.f90
View file @
77783e3d
...
...
@@ -100,15 +100,18 @@ 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
if
(
readerror
.ne.
0
)
then
! text format input
! Open the SPECIES file and read species names and properties
!************************************************************
specnum
(
pos_spec
)
=
id_spec
...
...
@@ -347,8 +350,6 @@ subroutine readspecies(id_spec,pos_spec)
20
continue
endif
22
close
(
unitspecies
)
! namelist output if requested
...
...
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