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

F90subroutines/routing_interface.f90

@@ -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)

RoutingPreProc.py

@@ -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)