Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Paulo V C Medeiros
carra_obsoul
Commits
54075f55
Commit
54075f55
authored
May 07, 2020
by
Paulo V C Medeiros
Browse files
Fix for FI station numbers for the set "70*"
parent
bf655b9c
Changes
1
Hide whitespace changes
Inline
Side-by-side
carra_obsoul.main.f90
View file @
54075f55
...
...
@@ -183,18 +183,21 @@
CASE
(
'FI'
)
if
(
rval_station
.lt.
1000.
)
then
write
(
indic
(
1
:
2
),
'(i2.2)'
)
INT
(
rval_block
)
write
(
indic
(
3
:
5
),
'(i3.3)'
)
INT
(
rval_station
)
write
(
indic
(
1
:
2
),
'(i2.2)'
)
INT
(
rval_block
)
write
(
indic
(
3
:
5
),
'(i3.3)'
)
INT
(
rval_station
)
else
if
((
rval_station
.ge.
1000.
)
.and.
(
rval_station
.lt.
2000.
))
then
write
(
indic
(
1
:
2
),
'(i2.2)'
)
INT
(
rval_block
)
write
(
indic
(
3
:
6
),
'(i4.4)'
)
INT
(
rval_station
)
else
if
((
rval_station
.ge.
2000.
)
.and.
(
rval_station
.lt.
3000.
))
then
i_stn
=
INT
(
rval_station
)
i_stn
=
i_stn
-2000
write
(
indic
(
1
:
2
),
'(i2.2)'
)
INT
(
rval_block
)
write
(
indic
(
3
:
5
),
'(i3.3)'
)
i_stn
i_stn
=
INT
(
rval_station
)
i_stn
=
i_stn
-2000
write
(
indic
(
1
:
2
),
'(i2.2)'
)
INT
(
rval_block
)
write
(
indic
(
3
:
5
),
'(i3.3)'
)
i_stn
else
if
(
rval_station
.ge.
700000.
)
then
indic
=
'2 '
write
(
indic
(
2
:
7
),
'(i6.6)'
)
INT
(
rval_station
)
indic
=
'2 '
write
(
indic
(
2
:
7
),
'(i6.6)'
)
INT
(
rval_station
)
else
write
(
*
,
*
)
'ERROR : Something wrong with FI stn nr = '
,
INT
(
rval_station
)
write
(
*
,
*
)
'ERROR : Something wrong with FI stn nr = '
,
INT
(
rval_station
)
endif
CASE
(
'IS'
)
...
...
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