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
dce5b1b2
Commit
dce5b1b2
authored
Mar 15, 2021
by
Anthony
Browse files
Correction in topoindex_stream
parent
814d9f7c
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
5 deletions
+2
-5
F90subroutines/routing_reg.f90
F90subroutines/routing_reg.f90
+2
-5
No files found.
F90subroutines/routing_reg.f90
View file @
dce5b1b2
...
@@ -2062,16 +2062,13 @@ SUBROUTINE routing_reg_divbas_divide(nb_htu, nbv,nbi,nbj, ijdimmax, tbname, tsz,
...
@@ -2062,16 +2062,13 @@ SUBROUTINE routing_reg_divbas_divide(nb_htu, nbv,nbi,nbj, ijdimmax, tbname, tsz,
IF
(
cnt
.GT.
1
)
THEN
IF
(
cnt
.GT.
1
)
THEN
dorog
=
MAXVAL
(
main_orog
(:
cnt
))
-
MINVAL
(
main_orog
(:
cnt
))
dorog
=
MAXVAL
(
main_orog
(:
cnt
))
-
MINVAL
(
main_orog
(:
cnt
))
dorog
=
MAX
(
0.1
,
dorog
)
dorog
=
MAX
(
0.1
,
dorog
)
distance
=
SUM
(
main_len
(:
cnt
))
ELSE
ELSE
! if the main river has only one pixel we use directly rdz
! if the main river has only one pixel we use directly rdz
dorog
=
MAX
(
0.1
,
rdz
(
il
,
jl
))
dorog
=
MAX
(
0.1
,
rdz
(
il
,
jl
))
distance
=
main_len
(
1
)
END
IF
END
IF
! For the distance : sum rlen along the main river
DO
l
=
1
,
cnt
distance
=
SUM
(
main_len
(:
cnt
))
END
DO
topoindex_stream
=
SQRT
(
distance
**
3
/
dorog
)
topoindex_stream
=
SQRT
(
distance
**
3
/
dorog
)
!
!
END
SUBROUTINE
mainstream_topoindex
END
SUBROUTINE
mainstream_topoindex
...
...
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