From 68c03c65cfcfd66a3b7c324cfa8770133538f5b0 Mon Sep 17 00:00:00 2001 From: Alain Hebert Date: Tue, 23 Sep 2025 11:38:23 -0400 Subject: #5: Corrections and improvements to the Baff-Refl reflector model in Donjon --- Donjon/data/Reflector_beavrs_DF-NEM_proc/CreaDilut.c2m | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'Donjon/data/Reflector_beavrs_DF-NEM_proc/CreaDilut.c2m') 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 <> MIXS LIB: <> FIL: <> * Milieu generique issu de la dilution de tous les constituants MIX 1 <> @@ -465,7 +467,7 @@ IF iMil 1 = THEN ; ELSE LibDilut := LIB: LibDilut :: - MXIS 300 NMIX 8 + MXIS 300 NMIX <> MIXS LIB: <> FIL: <> * Milieu generique issu de la dilution de tous les constituants MIX <> <> -- cgit v1.2.3