Commit e8810ece authored by POLCHER Jan's avatar POLCHER Jan 🚴🏾
Browse files

Added the function to dump the graph of HydroSuper, that is before the truncation.

parent b299412d
......@@ -154,7 +154,7 @@ SUBROUTINE findbasins(nbpt, nbvmax_in, nbxmax_in, nbi, nbj, trip_bx, basin_bx, f
!
INTEGER :: ib
!
diaglalo(1,:) = (/ 38.25, -7.25 /)
diaglalo(1,:) = (/ 39.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)
......
This diff is collapsed.
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment