*-------------------- * 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 <> NMIX 2 NREFL 1 RMIX 1 NFUEL 1 FMIX 2 ; Track := TRIVAT: GeoCore :: EDIT 5 MAXR <> 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 <> 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 <> 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 <> 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 <> 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 <> 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 <> 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 <> 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 <> 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 <> ENDCYCLE SET-PARAM 'Mod Dens ' <> SET-PARAM 'Bore ppm ' <> SET-PARAM 'Mod Temp ' <> SET-PARAM 'Puissance ' <> SET-PARAM 'CaloUp Dens ' <> SET-PARAM 'CaloDw Dens ' <> SET-PARAM 'Fuel Temp ' <> SET-PARAM 'CaloUp Temp ' <> SET-PARAM 'CaloDw Temp ' <> ; 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 <> ; EVALUATE NameCycl := "Cycle" CycleIndex I_TO_S + ; FuelMap := SIM: FuelMap Puissance :: EDIT 0 CYCLE <> TIME <> DAY ENDCYCLE ; Puissance := DELETE: Puissance ; assertS Flux :: 'K-EFFECTIVE' 1 1.033056 ; Flux := DELETE: Flux ; END: ; QUIT "LIST" .