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
e8810ece
Commit
e8810ece
authored
Jan 10, 2020
by
POLCHER Jan
🚴🏾
Browse files
Added the function to dump the graph of HydroSuper, that is before the truncation.
parent
b299412d
Changes
3
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
225 additions
and
126 deletions
+225
-126
F90subroutines/routing_interface.f90
F90subroutines/routing_interface.f90
+2
-1
Interface.py
Interface.py
+222
-125
RoutingPreProc.py
RoutingPreProc.py
+1
-0
No files found.
F90subroutines/routing_interface.f90
View file @
e8810ece
...
...
@@ -154,7 +154,7 @@ SUBROUTINE findbasins(nbpt, nbvmax_in, nbxmax_in, nbi, nbj, trip_bx, basin_bx, f
!
INTEGER
::
ib
!
diaglalo
(
1
,:)
=
(/
3
8.25
,
-7.25
/)
diaglalo
(
1
,:)
=
(/
3
9.6791
,
2.6687
/)
!
IF
(
nbvmax_in
.NE.
nbvmax
.OR.
nbxmax_in
.NE.
nbxmax
)
THEN
WRITE
(
*
,
*
)
"nbvmax or nbxmax have changed !!"
...
...
@@ -508,6 +508,7 @@ SUBROUTINE finalfetch(nbpt, nbasmax, nbcore, corepts, routing_area, basin_count,
!
USE
defprec
USE
ioipsl
USE
constantes_var
!
!! INPUT VARIABLES
INTEGER
(
i_std
),
INTENT
(
in
)
::
nbpt
!! Domain size (unitless)
...
...
Interface.py
View file @
e8810ece
This diff is collapsed.
Click to expand it.
RoutingPreProc.py
View file @
e8810ece
...
...
@@ -175,6 +175,7 @@ gc.collect()
print
(
"=================== Compute fetch ===================="
)
hsuper
.
fetch
(
part
)
hsuper
.
dumpnetcdf
(
OutGraphFile
.
replace
(
".nc"
,
"_HydroSuper.nc"
),
gg
,
modelgrid
,
part
)
hgraph
=
IF
.
HydroGraph
(
nbasmax
,
hsuper
,
part
)
...
...
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