From 28021b024ed8403786bc4c93cc951870a8e234c8 Mon Sep 17 00:00:00 2001
From: Dorchies David <david.dorchies@inrae.fr>
Date: Wed, 24 Mar 2021 16:21:36 +0100
Subject: [PATCH] feat: add option to run only backward simulation

- Put option before optional options (line 9)

Refs #7
---
 example/PARAMETR/CHOIX.TXT | 13 +++++++------
 src/PARAM.PAS              |  2 +-
 2 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/example/PARAMETR/CHOIX.TXT b/example/PARAMETR/CHOIX.TXT
index 7f82718..069087f 100644
--- a/example/PARAMETR/CHOIX.TXT
+++ b/example/PARAMETR/CHOIX.TXT
@@ -22,16 +22,17 @@ ligne 5 : nom du fichier d
 ligne 6 : type d'objectif : 0 pour soutien de débit, 1 pour laminage de débit
 ligne 7 : début de période de calcul
 ligne 8 : fin de période de calcul
-ligne 9 : code pour format d'édition des résultats de volume : 1 pour valeurs absolues en m3, 2 pour valeurs relatives par rapport à Vtot ou somme(Vtot)
-ligne 10 : code indiquant le mode de répartition du débit à stocker entre les réservoirs:
+ligne 9 : code indiquant les sous-programmes à lancer:
+                0 : tous les sous-programmes
+                1 : uniquement la simulation en chronologie inverse
+ligne 10 : code pour format d'édition des résultats de volume : 1 pour valeurs absolues en m3, 2 pour valeurs relatives par rapport à Vtot ou somme(Vtot)
+ligne 11 : code indiquant le mode de répartition du débit à stocker entre les réservoirs:
 		1=figée;
                 2=fonction des volumes présents et des temps de reconstitution de volume utilisable maximal à partir du début de pas de temps;
                 3=visant à équilibrer en fin de pas de temps les taux de remplissage;
                 4=visant à équilibrer en fin de pas de temps les durées Tpot d'évolution de réservoir vers état extrême (voir ligne 11) avec apports moyens
                 5=visant à équilibrer en fin de pas de temps les durées Tpot d'évolution de réservoir vers état extrême (voir ligne 11) avec quantile donné des apports de chaque quantième
-ligne 11 (utilisée seulement si 4 ou 5 en ligne 10) : code indiquant la nature de Tpot :
+ligne 12 (utilisée seulement si 4 ou 5 en ligne 11) : code indiquant la nature de Tpot :
 		1 : Tpot est la durée potentielle minimale Tpot1 de reconstitution du volume utilisable maximal (obtention de V=Vtot ou V=0, selon la nature de l'objectif (soutien ou laminage) et le sens des calculs)
 		2 : Tpot est la durée potentielle minimale Tpot2 d'épuisement du volume utilisable (obtention de V=Vtot ou V=0, selon la nature de l'objectif (soutien ou laminage) et le sens des calculs)
-ligne 12 : code indiquant les sous-programmes à lancer:
-                0 : tous les sous-programmes
-                1 : uniquement la simulation en chronologie inverse
+
diff --git a/src/PARAM.PAS b/src/PARAM.PAS
index 67df900..8c1fffd 100644
--- a/src/PARAM.PAS
+++ b/src/PARAM.PAS
@@ -90,6 +90,7 @@ procedure P_ChoixEntreeOptions;
        YTypeObjectif:=1;
       readln(YFiText,YDat1);
       readln(YFitext,YDat2);
+      readln(YFitext,YChoixSubProg);
       readln(YFitext,YAbsRel);
       if YAbsRel<>1 then
        YAbsRel:=2;
@@ -102,7 +103,6 @@ procedure P_ChoixEntreeOptions;
         else
          YCodeTpot:=false;
        end;
-      readln(YFitext,YChoixSubProg);
       close(YFitext);
      end
     else
-- 
GitLab