summaryrefslogtreecommitdiff
path: root/Donjon/data/SCWR64Core.x2m
diff options
context:
space:
mode:
authorstainer_t <thomas.stainer@oecd-nea.org>2025-09-08 13:48:49 +0200
committerstainer_t <thomas.stainer@oecd-nea.org>2025-09-08 13:48:49 +0200
commit7dfcc480ba1e19bd3232349fc733caef94034292 (patch)
tree03ee104eb8846d5cc1a981d267687a729185d3f3 /Donjon/data/SCWR64Core.x2m
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Donjon/data/SCWR64Core.x2m')
-rw-r--r--Donjon/data/SCWR64Core.x2m552
1 files changed, 552 insertions, 0 deletions
diff --git a/Donjon/data/SCWR64Core.x2m b/Donjon/data/SCWR64Core.x2m
new file mode 100644
index 0000000..bc049ae
--- /dev/null
+++ b/Donjon/data/SCWR64Core.x2m
@@ -0,0 +1,552 @@
+*--------------------
+* Nom : SCWR64Core.x2m
+* Utilisation : Calcul coeur pour CANDU-SCWR 64
+* Auteur : U. Le Tennier
+* Date : 03/06/2019
+*
+*---------------------------
+* Calcul coeur CANDU-SCWR 64
+* 3 ou 4 burnups par rechargement
+*
+*-------------------------------------------------------------------------
+* Definition des structures de donnees
+*-------------------------------------------------------------------------
+MODULE TRIVAT: GREP: DELETE: END: UTL: SIM: FLPOW:
+ FLUD: CRE: NCR: RESINI:
+ TRIVAA: MACINI: USPLIT: GEO: ;
+
+LINKED_LIST GeoCore Matex Track MacroRfl ;
+LINKED_LIST FuelMap System Flux ;
+LINKED_LIST DbRef_03 DbRefl MacroFl ;
+LINKED_LIST Puissance Macro2 ;
+SEQ_ASCII DBREF_03 :: FILE 'DBREF_03.txt' ; ! Copie en entree de DBREF_03
+SEQ_ASCII DBREFL :: FILE 'DBREFL.txt' ; ! Copie en entree de DBREFL
+PROCEDURE assertS ;
+
+*-------------------------------------------------------------------------
+* Definition des indices et variables
+*-------------------------------------------------------------------------
+
+REAL Keff Pui ;
+REAL PuiCore := 2032.0 ; !MW
+
+INTEGER MaxReg := 17248 ;
+
+INTEGER CycleIndex := 1 ;
+INTEGER CycleRef := 1 ;
+INTEGER Step StepCycle := 0 0 ;
+REAL TimeIni := 0. ;
+REAL Delt := 0. ;
+
+STRING NameCycl := "Cycle" CycleIndex I_TO_S + ;
+STRING NamePreCycl ;
+
+REAL TempMod := 342.16 ;
+REAL DensMod := 1.0851 ;
+
+* Pour l enrichissement 03
+
+REAL DensCU1 := 0.2624 ;
+REAL DensCD1 := 0.584373 ;
+REAL TempF1 := 1056.26 ;
+REAL TempCU1 := 671.1 ;
+REAL TempCD1 := 634.62625 ;
+REAL FuB1 := 0. ;
+REAL ppmB := 1.E-4 ;
+
+EVALUATE Pui := 57.61 ; !kW/kg
+
+GeoCore := GEO: ::
+ CAR3D 28 28 22
+ EDIT 0
+ X- VOID X+ VOID
+ Y- VOID Y+ VOID
+ Z- VOID Z+ VOID
+ MIX
+ PLANE 1
+
+ * - - - - A B C D E F G H I J K L M N O P Q R S T - - - -
+
+ 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 ! -
+ 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 ! -
+ 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 ! -
+ 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 ! -
+ 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 ! 1
+ 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 ! 2
+ 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 ! 3
+ 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 ! 4
+ 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 ! 5
+ 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 ! 6
+ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 7
+ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 8
+ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 9
+ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 0
+
+ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 1
+ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 2
+ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 3
+ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 4
+ 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 ! 5
+ 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 ! 6
+ 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 ! 7
+ 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 ! 8
+ 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 ! 9
+ 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 ! 0
+ 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 ! -
+ 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 ! -
+ 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 ! -
+ 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 ! -
+
+ PLANE 2
+
+ 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 ! -
+ 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 ! -
+ 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 ! -
+ 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 ! -
+ 0 0 0 0 1 1 1 1 1 1 2 2 2 2 2 2 2 2 1 1 1 1 1 1 0 0 0 0 ! 1
+ 0 0 0 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 0 0 0 ! 2
+ 0 0 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 0 0 ! 3
+ 0 0 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 0 0 ! 4
+ 0 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 0 ! 5
+ 0 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 0 ! 6
+ 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 ! 7
+ 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 ! 8
+ 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 ! 9
+ 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 ! 0
+
+ 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 ! 1
+ 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 ! 2
+ 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 ! 3
+ 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 ! 4
+ 0 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 0 ! 5
+ 0 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 0 ! 6
+ 0 0 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 0 0 ! 7
+ 0 0 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 0 0 ! 8
+ 0 0 0 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 0 0 0 ! 9
+ 0 0 0 0 1 1 1 1 1 1 2 2 2 2 2 2 2 2 1 1 1 1 1 1 0 0 0 0 ! 0
+ 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 ! -
+ 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 ! -
+ 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 ! -
+ 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 ! -
+
+ PLANE 3 SAME 2
+ PLANE 4 SAME 2
+ PLANE 5 SAME 2
+ PLANE 6 SAME 2
+ PLANE 7 SAME 2
+ PLANE 8 SAME 2
+ PLANE 9 SAME 2
+ PLANE 10 SAME 2
+ PLANE 11 SAME 2
+ PLANE 12 SAME 2
+ PLANE 13 SAME 2
+ PLANE 14 SAME 2
+ PLANE 15 SAME 2
+ PLANE 16 SAME 2
+ PLANE 17 SAME 2
+ PLANE 18 SAME 2
+ PLANE 19 SAME 2
+ PLANE 20 SAME 2
+ PLANE 21 SAME 2
+
+ PLANE 22 SAME 1
+
+ MESHX 0.0 25.0 50.0 75.0 100.0 125.0 150.0 175.0
+ 200.0 225.0 250.0 275.0 300.0 325.0 350.0 375.0
+ 400.0 425.0 450.0 475.0 500.0 525.0 550.0 575.0
+ 600.0 625.0 650.0 675.0 700.0
+
+ MESHY 0.0 25.0 50.0 75.0 100.0 125.0 150.0 175.0
+ 200.0 225.0 250.0 275.0 300.0 325.0 350.0 375.0
+ 400.0 425.0 450.0 475.0 500.0 525.0 550.0 575.0
+ 600.0 625.0 650.0 675.0 700.0
+
+ MESHZ 0.0 75.0 100.0 125.0 150.0 175.0 200.0 225.0 250.0
+ 275.0 300.0 325.0 350.0 375.0 400.0 425.0 450.0 475.0
+ 500.0 525.0 550.0 575.0 650.0 ;
+
+GeoCore Matex := USPLIT: GeoCore ::
+ NGRP 3
+ MAXR <<MaxReg>>
+ NMIX 2
+ NREFL 1 RMIX 1
+ NFUEL 1 FMIX 2 ;
+
+Track := TRIVAT: GeoCore :: EDIT 5
+ MAXR <<MaxReg>> MCFD 1 ;
+
+FuelMap Matex := RESINI: Matex ::
+ ::: GEO:
+ CAR3D 28 28 22
+ EDIT 0
+
+ X- VOID X+ VOID
+ Y- VOID Y+ VOID
+ Z- VOID Z+ VOID
+
+ MIX
+ PLANE 1
+
+ * - - - - A B C D E F G H I J K L M N O P Q R S T - - - -
+
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 1
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 2
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 3
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 4
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 5
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 6
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 7
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 8
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 9
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 0
+
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 1
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 2
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 3
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 4
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 5
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 6
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 7
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 8
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 9
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! 0
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
+
+ PLANE 2
+
+ * - - - - A B C D E F G H I J K L M N O P Q R S T - - - -
+
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
+ 0 0 0 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 ! 1
+ 0 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 ! 2
+ 0 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 ! 3
+ 0 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 ! 4
+ 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 ! 5
+ 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 ! 6
+ 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 ! 7
+ 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 ! 8
+ 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 ! 9
+ 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 ! 0
+
+ 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 ! 1
+ 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 ! 2
+ 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 ! 3
+ 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 ! 4
+ 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 ! 5
+ 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 ! 6
+ 0 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 ! 7
+ 0 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 ! 8
+ 0 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 ! 9
+ 0 0 0 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 ! 0
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! -
+
+ PLANE 3 SAME 2
+ PLANE 4 SAME 2
+ PLANE 5 SAME 2
+ PLANE 6 SAME 2
+ PLANE 7 SAME 2
+ PLANE 8 SAME 2
+ PLANE 9 SAME 2
+ PLANE 10 SAME 2
+ PLANE 11 SAME 2
+ PLANE 12 SAME 2
+ PLANE 13 SAME 2
+ PLANE 14 SAME 2
+ PLANE 15 SAME 2
+ PLANE 16 SAME 2
+ PLANE 17 SAME 2
+ PLANE 18 SAME 2
+ PLANE 19 SAME 2
+ PLANE 20 SAME 2
+ PLANE 21 SAME 2
+ PLANE 22 SAME 1
+
+ MESHX 0.0 25.0 50.0 75.0 100.0 125.0 150.0 175.0
+ 200.0 225.0 250.0 275.0 300.0 325.0 350.0 375.0
+ 400.0 425.0 450.0 475.0 500.0 525.0 550.0 575.0
+ 600.0 625.0 650.0 675.0 700.0
+
+ MESHY 0.0 25.0 50.0 75.0 100.0 125.0 150.0 175.0
+ 200.0 225.0 250.0 275.0 300.0 325.0 350.0 375.0
+ 400.0 425.0 450.0 475.0 500.0 525.0 550.0 575.0
+ 600.0 625.0 650.0 675.0 700.0
+
+ MESHZ 0.0 75.0 100.0 125.0 150.0 175.0 200.0 225.0 250.0
+ 275.0 300.0 325.0 350.0 375.0 400.0 425.0 450.0 475.0
+ 500.0 525.0 550.0 575.0 650.0 ;
+
+ NYNAME '--' '--' '-' '-'
+ 'A' 'B' 'C' 'D' 'E' 'F' 'G' 'H' 'I' 'J'
+ 'K' 'L' 'M' 'N' 'O' 'P' 'Q' 'R' 'S' 'T'
+ '-' '-' '--' '--'
+
+ NXNAME '--' '--' '-' '-'
+ '01' '02' '03' '04' '05' '06' '07' '08' '09' '10'
+ '11' '12' '13' '14' '15' '16' '17' '18' '19' '20'
+ '-' '-' '--' '--'
+
+ SIM 20 20
+ G01 H01 I01 J01
+ K01 L01 M01 N01
+ E02 F02 G02 H02 I02 J02
+ K02 L02 M02 N02 O02 P02
+ C03 D03 E03 F03 G03 H03 I03 J03
+ K03 L03 M03 N03 O03 P03 Q03 R03
+ C04 D04 E04 F04 G04 H04 I04 J04
+ K04 L04 M04 N04 O04 P04 Q04 R04
+ B05 C05 D05 E05 F05 G05 H05 I05 J05
+ K05 L05 M05 N05 O05 P05 Q05 R05 S05
+ B06 C06 D06 E06 F06 G06 H06 I06 J06
+ K06 L06 M06 N06 O06 P06 Q06 R06 S06
+A07 B07 C07 D07 E07 F07 G07 H07 I07 J07
+K07 L07 M07 N07 O07 P07 Q07 R07 S07 T07
+A08 B08 C08 D08 E08 F08 G08 H08 I08 J08
+K08 L08 M08 N08 O08 P08 Q08 R08 S08 T08
+A09 B09 C09 D09 E09 F09 G09 H09 I09 J09
+K09 L09 M09 N09 O09 P09 Q09 R09 S09 T09
+A10 B10 C10 D10 E10 F10 G10 H10 I10 J10
+K10 L10 M10 N10 O10 P10 Q10 R10 S10 T10
+
+A11 B11 C11 D11 E11 F11 G11 H11 I11 J11
+K11 L11 M11 N11 O11 P11 Q11 R11 S11 T11
+A12 B12 C12 D12 E12 F12 G12 H12 I12 J12
+K12 L12 M12 N12 O12 P12 Q12 R12 S12 T12
+A13 B13 C13 D13 E13 F13 G13 H13 I13 J13
+K13 L13 M13 N13 O13 P13 Q13 R13 S13 T13
+A14 B14 C14 D14 E14 F14 G14 H14 I14 J14
+K14 L14 M14 N14 O14 P14 Q14 R14 S14 T14
+ B15 C15 D15 E15 F15 G15 H15 I15 J15
+ K15 L15 M15 N15 O15 P15 Q15 R15 S15
+ B16 C16 D16 E16 F16 G16 H16 I16 J16
+ K16 L16 M16 N16 O16 P16 Q16 R16 S16
+ C17 D17 E17 F17 G17 H17 I17 J17
+ K17 L17 M17 N17 O17 P17 Q17 R17
+ C18 D18 E18 F18 G18 H18 I18 J18
+ K18 L18 M18 N18 O18 P18 Q18 R18
+ E19 F19 G19 H19 I19 J19
+ K19 L19 M19 N19 O19 P19
+ G20 H20 I20 J20
+ K20 L20 M20 N20
+
+ NCOMB 84
+ B-ZONE
+
+ 1 2 3 4 4 3 2 1
+ 5 6 7 8 9 10 10 9 8 7 6 5
+ 11 12 13 14 15 16 17 18 18 17 16 15 14 13 12 11
+ 19 20 21 22 23 24 25 26 26 25 24 23 22 21 20 19
+ 27 28 29 30 31 32 33 34 35 35 34 33 32 31 30 29 28 27
+ 36 37 38 39 40 41 42 43 44 44 43 42 41 40 39 38 37 36
+45 46 47 48 49 50 51 52 53 54 54 53 52 51 50 49 48 47 46 45
+55 56 57 58 59 60 61 62 63 64 64 63 62 61 60 59 58 57 56 55
+65 66 67 68 69 70 71 72 73 74 74 73 72 71 70 69 68 67 66 65
+75 76 77 78 79 80 81 82 83 84 84 83 82 81 80 79 78 77 76 75
+
+75 76 77 78 79 80 81 82 83 84 84 83 82 81 80 79 78 77 76 75
+65 66 67 68 69 70 71 72 73 74 74 73 72 71 70 69 68 67 66 65
+55 56 57 58 59 60 61 62 63 64 64 63 62 61 60 59 58 57 56 55
+45 46 47 48 49 50 51 52 53 54 54 53 52 51 50 49 48 47 46 45
+ 36 37 38 39 40 41 42 43 44 44 43 42 41 40 39 38 37 36
+ 27 28 29 30 31 32 33 34 35 35 34 33 32 31 30 29 28 27
+ 19 20 21 22 23 24 25 26 26 25 24 23 22 21 20 19
+ 11 12 13 14 15 16 17 18 18 17 16 15 14 13 12 11
+ 5 6 7 8 9 10 10 9 8 7 6 5
+ 1 2 3 4 4 3 2 1
+
+ BTYPE INST-BURN
+ ADD-PARAM PNAME 'Mod Dens ' PARKEY 'Mod Dens ' GLOBAL
+ ADD-PARAM PNAME 'Bore ppm ' PARKEY 'Bore ppm ' GLOBAL
+ ADD-PARAM PNAME 'Mod Temp ' PARKEY 'Mod Temp ' GLOBAL
+ ADD-PARAM PNAME 'Puissance ' PARKEY 'Puissance ' GLOBAL
+ ADD-PARAM PNAME 'CaloUp Dens ' PARKEY 'CaloUp Dens ' GLOBAL
+ ADD-PARAM PNAME 'CaloDw Dens ' PARKEY 'CaloDw Dens ' GLOBAL
+ ADD-PARAM PNAME 'Fuel Temp ' PARKEY 'Fuel Temp ' GLOBAL
+ ADD-PARAM PNAME 'CaloUp Temp ' PARKEY 'CaloUp Temp ' GLOBAL
+ ADD-PARAM PNAME 'CaloDw Temp ' PARKEY 'CaloDw Temp ' GLOBAL
+
+ FUEL WEIGHT 10.498 ;
+
+DbRef_03 := DBREF_03 ;
+DbRefl := DBREFL ;
+
+FuelMap := SIM: FuelMap ::
+ EDIT 0
+ CYCLE <<NameCycl>>
+ MAP
+ A B C D E F G H I J
+ K L M N O P Q R S T
+01 | | | | | | SPC NEW SPC NEW
+NEW SPC NEW SPC | | | | | |
+02 | | | | NEW SPC NEW SPC NEW SPC
+SPC NEW SPC NEW SPC NEW | | | |
+03 | | NEW SPC SPC NEW SPC NEW SPC NEW
+NEW SPC NEW SPC NEW SPC SPC NEW | |
+04 | | SPC NEW SPC SPC SPC SPC SPC SPC
+SPC SPC SPC SPC SPC SPC NEW SPC | |
+05 | NEW SPC SPC SPC NEW SPC NEW SPC SPC
+SPC SPC NEW SPC NEW SPC SPC SPC NEW |
+06 | SPC NEW SPC NEW SPC NEW SPC SPC NEW
+NEW SPC SPC NEW SPC NEW SPC NEW SPC |
+07 SPC NEW SPC SPC SPC NEW SPC SPC NEW SPC
+SPC NEW SPC SPC NEW SPC SPC SPC NEW SPC
+08 NEW SPC NEW SPC NEW SPC SPC SPC SPC SPC
+SPC SPC SPC SPC SPC NEW SPC NEW SPC NEW
+09 SPC NEW SPC SPC SPC SPC NEW SPC SPC SPC
+SPC SPC SPC NEW SPC SPC SPC SPC NEW SPC
+10 NEW SPC NEW SPC SPC NEW SPC SPC SPC SPC
+SPC SPC SPC SPC NEW SPC SPC NEW SPC NEW
+* //
+11 NEW SPC NEW SPC SPC NEW SPC SPC SPC SPC
+SPC SPC SPC SPC NEW SPC SPC NEW SPC NEW
+12 SPC NEW SPC SPC SPC SPC NEW SPC SPC SPC
+SPC SPC SPC NEW SPC SPC SPC SPC NEW SPC
+13 NEW SPC NEW SPC NEW SPC SPC SPC SPC SPC
+SPC SPC SPC SPC SPC NEW SPC NEW SPC NEW
+14 SPC NEW SPC SPC SPC NEW SPC SPC NEW SPC
+SPC NEW SPC SPC NEW SPC SPC SPC NEW SPC
+15 | SPC NEW SPC NEW SPC NEW SPC SPC NEW
+NEW SPC SPC NEW SPC NEW SPC NEW SPC |
+16 | NEW SPC SPC SPC NEW SPC NEW SPC SPC
+SPC SPC NEW SPC NEW SPC SPC SPC NEW |
+17 | | SPC NEW SPC SPC SPC SPC SPC SPC
+SPC SPC SPC SPC SPC SPC NEW SPC | |
+18 | | NEW SPC SPC NEW SPC NEW SPC NEW
+NEW SPC NEW SPC NEW SPC SPC NEW | |
+19 | | | | NEW SPC NEW SPC NEW SPC
+SPC NEW SPC NEW SPC NEW | | | |
+20 | | | | | | SPC NEW SPC NEW
+NEW SPC NEW SPC | | | | | |
+
+SPEC
+ G01 G20 N01 N20
+ F02 F19 O02 O19
+ E04 E17 P04 P17
+ F04 F17 O04 O17
+ G04 G17 N04 N17
+ I04 I17 L04 L17
+ J04 J17 K04 K17 SET AVGB <<FuB1>>
+ D05 D16 Q05 Q16
+ G05 G16 N05 N16
+ I05 I16 L05 L16
+ B06 B15 S06 S15
+ D06 D15 Q06 Q15
+ A07 A14 T07 T14
+ D07 D14 Q07 Q14 SET AVGB <<FuB1>>
+ E07 E14 P07 P14
+ H07 H14 M07 M14
+ G08 G13 N08 N13
+ H08 H13 M08 M13
+ I08 I13 L08 L13
+ J08 J13 K08 K13
+ D09 D12 Q09 Q12 SET AVGB <<FuB1>>
+ E09 E12 P09 P12
+ H09 H12 M09 M12
+ J09 J12 K09 K12
+ D10 D11 Q10 Q11
+ H10 H11 M10 M11
+ I10 I11 L10 L11
+ J10 J11 K10 K11 SET AVGB <<FuB1>>
+
+ I01 I20 L01 L20
+ H02 H19 M02 M19
+ J02 J19 K02 K19
+ D03 D18 Q03 Q18
+ E03 E18 P03 P18
+ G03 G18 N03 N18
+ I03 I18 L03 L18 SET AVGB <<FuB1>>
+ C04 C17 R04 R17
+ H04 H17 M04 M17
+ C05 C16 R05 R16
+ E05 E16 P05 P16
+ J05 J16 K05 K16
+ F06 F15 O06 O15
+ H06 H15 M06 M15 SET AVGB <<FuB1>>
+ I06 I15 L06 L15
+ C07 C14 R07 R14
+ G07 G14 N07 N14
+ J07 J14 K07 K14
+ B08 B13 S08 S13
+ D08 D13 Q08 Q13
+ F08 F13 O08 O13 SET AVGB <<FuB1>>
+ A09 A12 T09 T12
+ C09 C12 R09 R12
+ F09 F12 O09 O12
+ I09 I12 L09 L12
+ B10 B11 S10 S11
+ E10 E11 P10 P11
+ G10 G11 N10 N11 SET AVGB <<FuB1>>
+ ENDCYCLE
+
+ SET-PARAM 'Mod Dens ' <<DensMod>>
+ SET-PARAM 'Bore ppm ' <<ppmB>>
+ SET-PARAM 'Mod Temp ' <<TempMod>>
+ SET-PARAM 'Puissance ' <<Pui>>
+ SET-PARAM 'CaloUp Dens ' <<DensCU1>>
+ SET-PARAM 'CaloDw Dens ' <<DensCD1>>
+ SET-PARAM 'Fuel Temp ' <<TempF1>>
+ SET-PARAM 'CaloUp Temp ' <<TempCU1>>
+ SET-PARAM 'CaloDw Temp ' <<TempCD1>> ;
+
+MacroRfl := CRE: DbRefl ::
+ EDIT 0 NMIX 1
+ READ COMPO DbRefl
+ MIX 1 'REP_BOTT 1'
+ ENDMIX ;
+
+MacroFl := NCR: DbRef_03 FuelMap ::
+ EDIT 0
+ MACRO
+
+ TABLE DbRef_03 'Rep_03' 'burnup'
+ MIX 2
+ SET CUBIC 'Puissance ' MAP
+ SET CUBIC 'Mod Dens ' MAP
+ SET LINEAR 'Bore ppm ' MAP
+ SET LINEAR 'Mod Temp ' MAP
+ SET CUBIC 'CaloUp Dens ' MAP
+ SET CUBIC 'CaloDw Dens ' MAP
+ SET CUBIC 'Fuel Temp ' MAP
+ SET CUBIC 'CaloUp Temp ' MAP
+ SET CUBIC 'CaloDw Temp ' MAP
+ ENDMIX ;
+
+ Macro2 Matex := MACINI: Matex MacroRfl MacroFl ;
+
+ System := TRIVAA: Macro2 Track ;
+
+ Flux := FLUD: System Track ::
+ EDIT 0 ADI 4
+ EXTE 1000 1.0E-6
+ THER 1.0E-6 ;
+
+ Puissance := FLPOW: FuelMap Flux Track Matex ::
+ EDIT 0 PTOT <<PuiCore>> ;
+
+ EVALUATE NameCycl := "Cycle" CycleIndex I_TO_S + ;
+
+ FuelMap := SIM: FuelMap Puissance ::
+ EDIT 0
+ CYCLE <<NameCycl>>
+ TIME <<Delt>> DAY
+ ENDCYCLE ;
+
+ Puissance := DELETE: Puissance ;
+
+ assertS Flux :: 'K-EFFECTIVE' 1 1.033056 ;
+ Flux := DELETE: Flux ;
+
+END: ;
+QUIT "LIST" .
generated by cgit v1.2.3 (git 2.46.0) at 2026-02-16 20:31:24 +0000