Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
IPSL
LMD
InTro
RoutingPP
Commits
8882b49b
Commit
8882b49b
authored
Jan 06, 2021
by
POLCHER Jan
🚴🏾
Browse files
Condition was too strict for Fekete & Vorosmarty. So it is a warning now.
parent
9f401a70
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
0 additions
and
1 deletion
+0
-1
F90subroutines/routing_reg.f90
F90subroutines/routing_reg.f90
+0
-1
No files found.
F90subroutines/routing_reg.f90
View file @
8882b49b
...
...
@@ -216,7 +216,6 @@ CONTAINS
IF
(
topoindex
(
ib
,
ip
)
<
0
.OR.
topoindex
(
ib
,
ip
)
>
10000
)
THEN
WRITE
(
numout
,
*
)
"There is an issue with Topoindex : "
,
topoindex
(
ib
,
ip
),
min_topoind
WRITE
(
numout
,
*
)
"Check other variables : "
,
trip
(
ib
,
ip
),
basins
(
ib
,
ip
),
sub_area
(
ib
,
ip
)
STOP
ENDIF
trip_bx
(
iloc
,
jloc
)
=
NINT
(
trip
(
ib
,
ip
))
basin_bx
(
iloc
,
jloc
)
=
NINT
(
basins
(
ib
,
ip
))
...
...
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