diff --git a/src/CALCULS1.PAS b/src/CALCULS1.PAS index 3c8a1f165e3f3b6a26a307d9f4f3f761dbbc9d2b..37323cba28c33470f9fbe55a7def0103f0423bd2 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];