From c6f3597fbb5db08ce06faf10ef84b9dfa0a48216 Mon Sep 17 00:00:00 2001
From: David Dorchies <david.dorchies@irstea.fr>
Date: Fri, 7 Dec 2018 09:50:54 +0100
Subject: [PATCH] #22 Erreur de calcul du Q guide technique

---
 src/macrorugo/macrorugo.ts | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/macrorugo/macrorugo.ts b/src/macrorugo/macrorugo.ts
index e104ce24..30fdf729 100644
--- a/src/macrorugo/macrorugo.ts
+++ b/src/macrorugo/macrorugo.ts
@@ -100,7 +100,7 @@ export class MacroRugo extends Nub {
         }
         r.extraResults.Q_GuideTech = cQ[0] * Math.pow(this.prms.Y.v / hdk, cQ[1]) *
             Math.pow(this.prms.If.v, cQ[2]) * Math.pow(this.prms.C.v, cQ[3]) *
-            Math.sqrt(MacroRugo.g * this.prms.PBD.v) * this.prms.PBD.v * this.prms.B.v;
+            Math.sqrt(MacroRugo.g * hdk) * hdk * this.prms.B.v;
         if (this.prms.Y.v / this.prms.PBH.v <= MacroRugo.limitSubmerg) {
             r.extraResults.V_GuideTech = cV[0] * Math.pow(this.prms.Y.v / this.prms.PBD.v, cV[1]) *
                 Math.pow(this.prms.If.v, cQ[2]) * Math.sqrt(MacroRugo.g * this.prms.PBD.v);
-- 
GitLab