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

Stupid mistake !

parent 5026b892
......@@ -2733,7 +2733,7 @@ SUBROUTINE routing_reg_end_truncate(nbpt, nbasmax, gridarea, contfrac, gridcente
origin_nbintobas_glo(ib) = basin_notrun(ib)
! If the land point doesn't overlap with any hydrogrid point
! (cf 0.5° trip on coast or some particular grid points )
IF ( basin_count(ib) .EQ. 1) THEN
IF ( basin_count(ib) .EQ. 0) THEN
basin_area(ib,1) = contfrac(ib)*gridarea(ib)
basin_orog_min(ib,1) = 0
basin_orog_max(ib,1) = 0
......
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