diff options
| author | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-09-23 12:29:46 -0400 |
|---|---|---|
| committer | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-09-23 12:29:46 -0400 |
| commit | 3b9fff7b3aecf9d6def9972738aad1d8993da067 (patch) | |
| tree | dac985c0778f4f35acf530c056036e72339ea3bb /Donjon/data/Reflector_beavrs_DF-NEM_proc/CreaDilut.c2m | |
| parent | aa8b25a3e754951be0fbd8fb3c0922bb3464675f (diff) | |
| parent | 68c03c65cfcfd66a3b7c324cfa8770133538f5b0 (diff) | |
Merge branch '5-corrections-and-improvements-to-the-baff-refl-reflector-model-in-donjon' into 'main'
#5: Corrections and improvements to the Baff-Refl reflector model in Donjon
See merge request dragon/5.1!9
Diffstat (limited to 'Donjon/data/Reflector_beavrs_DF-NEM_proc/CreaDilut.c2m')
| -rwxr-xr-x | Donjon/data/Reflector_beavrs_DF-NEM_proc/CreaDilut.c2m | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Donjon/data/Reflector_beavrs_DF-NEM_proc/CreaDilut.c2m b/Donjon/data/Reflector_beavrs_DF-NEM_proc/CreaDilut.c2m index 759916c..e578a12 100755 --- a/Donjon/data/Reflector_beavrs_DF-NEM_proc/CreaDilut.c2m +++ b/Donjon/data/Reflector_beavrs_DF-NEM_proc/CreaDilut.c2m @@ -36,6 +36,7 @@ REAL avo_conc := avogadro 1.E-24 * ; REAL dSS := 7.792815 ; ! Densite de l'acier inoxydable (SS304) REAL dZr4 := 6.49012 ; ! Densite du zircaloy 4 REAL dInc := 8.303 ; ! Densite inconel (a 20 degres C...) +INTEGER nbZones ; ! Nombre de zones dans le reflecteur INTEGER iMil ; ! Numero de la zone reflecteur REAL TMil ; ! Temperature du moderateur en degres C (suppose = T de tout le milieu) REAL dZone ; ! Densite de la zone consideree @@ -49,7 +50,7 @@ INTEGER LibId ; *-------------------------------------------------------------------- * Fractions volumiques des differents milieux presents dans la zone *-------------------------------------------------------------------- -:: >>dMod<< >>iMil<< >>TMil<< >>CB<< >>fvMod<< >>fvZr4<< >>fvInc<< >>fvSS304<< +:: >>dMod<< >>nbZones<< >>iMil<< >>TMil<< >>CB<< >>fvMod<< >>fvZr4<< >>fvInc<< >>fvSS304<< >>NuclData<< >>LibType<< ; *------------------------------------------------------ @@ -423,9 +424,10 @@ ECHO "Nb93 " Nb93 ; * Definition du melange correspondant dans la librairie *-------------------------------------------------------------------- ECHO "CreaDilut: call LIB" ; +INTEGER nmix := nbZones 1 + ; IF iMil 1 = THEN LibDilut := LIB: :: - MXIS 300 NMIX 8 + MXIS 300 NMIX <<nmix>> MIXS LIB: <<LibGenre>> FIL: <<NuclData>> * Milieu generique issu de la dilution de tous les constituants MIX 1 <<TMil>> @@ -465,7 +467,7 @@ IF iMil 1 = THEN ; ELSE LibDilut := LIB: LibDilut :: - MXIS 300 NMIX 8 + MXIS 300 NMIX <<nmix>> MIXS LIB: <<LibGenre>> FIL: <<NuclData>> * Milieu generique issu de la dilution de tous les constituants MIX <<iMil>> <<TMil>> |