Docker-in-Docker (DinD) capabilities of public runners deactivated. More info

Commit dce5b1b2 authored by Anthony's avatar Anthony
Browse files

Correction in topoindex_stream

parent 814d9f7c
...@@ -2062,16 +2062,13 @@ SUBROUTINE routing_reg_divbas_divide(nb_htu, nbv,nbi,nbj, ijdimmax, tbname, tsz, ...@@ -2062,16 +2062,13 @@ SUBROUTINE routing_reg_divbas_divide(nb_htu, nbv,nbi,nbj, ijdimmax, tbname, tsz,
IF (cnt .GT. 1) THEN IF (cnt .GT. 1) THEN
dorog = MAXVAL(main_orog(:cnt)) - MINVAL(main_orog(:cnt)) dorog = MAXVAL(main_orog(:cnt)) - MINVAL(main_orog(:cnt))
dorog = MAX(0.1, dorog) dorog = MAX(0.1, dorog)
distance = SUM(main_len(:cnt))
ELSE ELSE
! if the main river has only one pixel we use directly rdz ! if the main river has only one pixel we use directly rdz
dorog = MAX(0.1, rdz(il,jl)) dorog = MAX(0.1, rdz(il,jl))
distance = main_len(1)
END IF END IF
! For the distance : sum rlen along the main river
DO l = 1,cnt
distance = SUM(main_len(:cnt))
END DO
topoindex_stream = SQRT(distance **3 / dorog) topoindex_stream = SQRT(distance **3 / dorog)
! !
END SUBROUTINE mainstream_topoindex END SUBROUTINE mainstream_topoindex
......
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