From 7efa2c8aa67316d37145c890f6812424ba9c85a1 Mon Sep 17 00:00:00 2001
From: Dorchies David <david.dorchies@irstea.fr>
Date: Tue, 3 Nov 2020 17:21:17 +0100
Subject: [PATCH] Fix: erronous QXdef0 > 0
Fix #2
---
src/CALCULS1.PAS | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/src/CALCULS1.PAS b/src/CALCULS1.PAS
index 3c8a1f1..37323cb 100644
--- a/src/CALCULS1.PAS
+++ b/src/CALCULS1.PAS
@@ -1897,15 +1897,16 @@ Procedure
{--absolue, due aux contraintes physiques et consignes locales ; ZQXdef2 : --}
{--ajout‚e … ZQXdef0 du fait des volumes pr‚sents dans les r‚servoirs ; --}
{--ZQXdef1 : due … toutes ces causes (ZQXdef1 = ZQXdef0 + ZQXdef2) --}
+ ZQXdef[0]:=0;
if ZTypeObjectif=0 then
begin
ZQXdef[1]:=B_max(0,XQSTtmin3-ZQXsous);
- ZQXdef[0]:=B_max(0,XQSTtmin1-ZQXsous);
+ if ZQXsous <= 0 then ZQXdef[0]:=B_max(0,XQSTtmin1-ZQXsous);
end
else
begin
ZQXdef[1]:=B_max(0,ZQXsous-XQSTtmax3);
- ZQXdef[0]:=B_max(0,ZQXsous-XQSTtmax1);
+ if ZQXsous >= 0 then ZQXdef[0]:=B_max(0,ZQXsous-XQSTtmax1);
end;
ZQXdef[2]:=ZQXdef[1]-ZQXdef[0];
--
GitLab