Commit 69616c37 authored by Dorchies David's avatar Dorchies David
Browse files

Merge branch '7-split-vgest-into-several-elementary-tools' into 'master'

Resolve "Split VGEST into several elementary tools"

Closes #7

See merge request !3
parents 5d5f1a64 aec28418
......@@ -9,6 +9,7 @@ BATCH
1
4
1
0
......@@ -30,4 +31,7 @@ ligne 10 : code indiquant le mode de r
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 :
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)
\ No newline at end of file
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
......@@ -853,6 +853,7 @@ procedure C3_CalculChroniquesVolume;
gotoxy(Ax-36,Ay);
clreol;
writeln(' : termin ');
if YChoixSubProg=1 then exit;
write(' calcul de Vges en sens chrono (iter. en cours sur Vges initial : ');
A_lecture_xy;
......
......@@ -182,6 +182,7 @@ VAR {entiers}
YAnFinV : integer;
YAnPremier : integer;
YChoix : integer; {0 pour saisie clavier et autre pour lecture sur fichier (options de calcul)}
YChoixSubProg : integer; {0 pour tout le programme, 1 pour backward simulation uniquement}
YCode : integer; {code de bonne traduction de chaŒne en num‚rique}
YComplet : integer; {1 si d‚bit aval et d‚bits d‚cal‚s aux prises et restit. existent, 0 sinon}
YCompteur : integer; {rang du calcul}
......
......@@ -102,6 +102,7 @@ procedure P_ChoixEntreeOptions;
else
YCodeTpot:=false;
end;
readln(YFitext,YChoixSubProg);
close(YFitext);
end
else
......
This diff is collapsed.
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