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
f484dce0
Commit
f484dce0
authored
Jan 24, 2021
by
POLCHER Jan
🚴🏾
Browse files
Improvement which supresses the singularity in the FV case
parent
089021e5
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
1 addition
and
1 deletion
+1
-1
F90subroutines/routing_reg.f90
F90subroutines/routing_reg.f90
+1
-1
No files found.
F90subroutines/routing_reg.f90
View file @
f484dce0
...
...
@@ -2805,7 +2805,7 @@ SUBROUTINE routing_reg_end_truncate(nbpt, nbasmax, gridarea, contfrac, gridcente
basin_cg
(
ib
,
1
,
2
)
=
gridcenters
(
ib
,
2
)
! To define in function of the minimum topoindex on the map
! (to revise)
basin_topoind
(
ib
,
1
)
=
topoindexmin
basin_topoind
(
ib
,
1
)
=
SQRT
(
hydro_meanlen
**
3.
/(
hydro_meandz
*
1.0e6
))
basin_rlen
(
ib
,
1
)
=
hydro_meanlen
basin_rdz
(
ib
,
1
)
=
hydro_meandz
basin_id
(
ib
,
1
)
=
0
...
...
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