Initial commit from Polytechnique Montreal

1 files changed, 248 insertions, 0 deletions

diff --git a/Donjon/data/Fessenheim_proc/InterpCP0.c2m b/Donjon/data/Fessenheim_proc/InterpCP0.c2m
new file mode 100755
index 0000000..238e568
--- /dev/null
+++ b/Donjon/data/Fessenheim_proc/InterpCP0.c2m
@@ -0,0 +1,248 @@
+*****************************************************************
+*                                                               *
+* Procedure :  InterpCP0.c2m                                    *
+* Purpose   :  Cross section and diffusion coefficient          *
+*              interpolation according to core properties       *
+*              for the particularized isotopes and the residue  *
+*              for the CP0 cores (Fessenheim, Bugey, Almaraz).  *
+* Author    :  M. Cordiez, V. Salino                            *
+*                                                               *
+* CALL      :                                                   *
+*   MicroFuel  MacroTot Matex Fmap := Steady                    *
+*  [MicroFuel] MacroTot Matex Fmap ::                           *
+*   <<CB>> <<TypeRefl>> <<Palier>> <<MethodRefl>> ;             *
+*                                                               *
+* Parameters: input                                             *
+*  Fmap      fuel map                                           *
+*  MicroFuel object containing interpolated cross sections      *
+*                                                               *
+* Parameters: output                                            *
+*  XeMicroF  object containing interpolated cross sections      *
+*  LibType   type of fuel library (SAPHYB or MULTICOMPO)        *
+*                                                               *
+*****************************************************************
+PROCEDURE MarguetRefl ;
+PARAMETER MicroFuel MacroTot Matex Fmap REFL UOX210 UOX310 UOX260_Py12
+  UOX260_Py16 UOX260_Py20 UOX310_Py12 UOX310_Py16 ::
+  ::: LINKED_LIST Matex Fmap ;
+  ::: XSM_FILE REFL UOX210 UOX310 UOX260_Py12 UOX260_Py16 UOX260_Py20
+  UOX310_Py12 UOX310_Py16 ; ;
+MODULE SCR: NCR: MACINI: MAC: GREP: UTL: DELETE: ABORT: END: ;
+
+*----
+*  Definition STRUCTURES, MODULES et PROCEDURES
+*----
+LINKED_LIST MacroFuel MacroRefl ;
+
+REAL CB ;
+STRING TypeRefl Palier MethodRefl ;
+:: >>CB<< >>TypeRefl<< >>Palier<< >>MethodRefl<< ;
+
+*----
+*  Fuel cross sections
+*----
+MicroFuel := SCR: UOX210 UOX310 UOX260_Py12 UOX260_Py16 UOX260_Py20
+                  UOX310_Py12 UOX310_Py16 Fmap ::
+     EDIT 2
+     MICRO LINEAR EQUI EQVS
+     TABLE UOX210 'BURN'
+     MIX 4
+        INST-BURN
+        SET 'DMOD' MAP
+        SET 'TFUE' MAP
+        SET 'BARR' 1. ! No rods
+        MICRO ALL
+            'B10'      *
+            'B11'      *
+            'Xe135'    0.
+            'I135'     0.
+            'Nd147'    0.
+            'Pm147'    0.
+            'Pm148'    0.
+            'Pm148m'   0.
+            'Pm149'    0.
+            'Sm149'    0.
+            '*MAC*RES' 1.
+     ENDMIX
+
+     TABLE UOX310 'BURN'
+     MIX 5
+        INST-BURN
+        SET 'DMOD' MAP
+        SET 'TFUE' MAP
+        SET 'BARR' 1. ! No rods
+        MICRO ALL
+            'B10'      *
+            'B11'      *
+            'Xe135'    0.
+            'I135'     0.
+            'Nd147'    0.
+            'Pm147'    0.
+            'Pm148'    0.
+            'Pm148m'   0.
+            'Pm149'    0.
+            'Sm149'    0.
+            '*MAC*RES' 1.
+     ENDMIX
+
+     TABLE UOX260_Py12 'BURN'
+     MIX 6
+        INST-BURN
+        SET 'DMOD' MAP
+        SET 'TFUE' MAP
+        SET 'BARR' 4. ! Pyrex
+        MICRO ALL
+            'B10'      *
+            'B11'      *
+            'Xe135'    0.
+            'I135'     0.
+            'Nd147'    0.
+            'Pm147'    0.
+            'Pm148'    0.
+            'Pm148m'   0.
+            'Pm149'    0.
+            'Sm149'    0.
+            '*MAC*RES' 1.
+     ENDMIX
+
+     TABLE UOX260_Py16 'BURN'
+     MIX 7
+        INST-BURN
+        SET 'DMOD' MAP
+        SET 'TFUE' MAP
+        SET 'BARR' 4. ! Pyrex
+        MICRO ALL
+            'B10'      *
+            'B11'      *
+            'Xe135'    0.
+            'I135'     0.
+            'Nd147'    0.
+            'Pm147'    0.
+            'Pm148'    0.
+            'Pm148m'   0.
+            'Pm149'    0.
+            'Sm149'    0.
+            '*MAC*RES' 1.
+     ENDMIX
+
+     TABLE UOX260_Py20 'BURN'
+     MIX 8
+        INST-BURN
+        SET 'DMOD' MAP
+        SET 'TFUE' MAP
+        SET 'BARR' 4. ! Pyrex
+        MICRO ALL
+            'B10'      *
+            'B11'      *
+            'Xe135'    0.
+            'I135'     0.
+            'Nd147'    0.
+            'Pm147'    0.
+            'Pm148'    0.
+            'Pm148m'   0.
+            'Pm149'    0.
+            'Sm149'    0.
+            '*MAC*RES' 1.
+     ENDMIX
+
+     TABLE UOX310_Py12 'BURN'
+     MIX 9
+        INST-BURN
+        SET 'DMOD' MAP
+        SET 'TFUE' MAP
+        SET 'BARR' 4. ! Pyrex
+        MICRO ALL
+            'B10'      *
+            'B11'      *
+            'Xe135'    0.
+            'I135'     0.
+            'Nd147'    0.
+            'Pm147'    0.
+            'Pm148'    0.
+            'Pm148m'   0.
+            'Pm149'    0.
+            'Sm149'    0.
+            '*MAC*RES' 1.
+     ENDMIX
+
+     TABLE UOX310_Py16 'BURN'
+     MIX 10
+        INST-BURN
+        SET 'DMOD' MAP
+        SET 'TFUE' MAP
+        SET 'BARR' 4. ! Pyrex
+        MICRO ALL
+            'B10'      *
+            'B11'      *
+            'Xe135'    0.
+            'I135'     0.
+            'Nd147'    0.
+            'Pm147'    0.
+            'Pm148'    0.
+            'Pm148m'   0.
+            'Pm149'    0.
+            'Sm149'    0.
+            '*MAC*RES' 1.
+     ENDMIX
+
+     TABLE UOX210 'BURN'
+     MIX 11
+        INST-BURN
+        SET 'DMOD' MAP
+        SET 'TFUE' MAP
+        SET 'BARR' 2. ! AIC
+        MICRO ALL
+            'B10'      *
+            'B11'      *
+            'Xe135'    0.
+            'I135'     0.
+            'Nd147'    0.
+            'Pm147'    0.
+            'Pm148'    0.
+            'Pm148m'   0.
+            'Pm149'    0.
+            'Sm149'    0.
+            '*MAC*RES' 1.
+     ENDMIX
+     ;
+
+MacroFuel := MicroFuel :: STEP UP MACROLIB ;
+
+*----
+*  Reflector
+*----
+
+IF TypeRefl "TousPaliers" = THEN
+  MacroRefl := NCR: REFL ::
+    EDIT 1
+    MACRO LINEAR
+    NMIX 3
+    COMPO REFL 'Radial'
+    MIX 1 FROM 1
+        SET 'C-BORE' <<CB>>
+        SET 'Method' <<MethodRefl>>
+        SET 'Palier' <<Palier>>
+        SET 'dBaffleBarrl' 14.4
+    ENDMIX
+    COMPO REFL 'Bottom'
+    MIX 2 FROM 1
+        SET 'C-BORE' <<CB>>
+        SET 'Method' <<MethodRefl>>
+    ENDMIX
+    COMPO REFL 'Top'
+    MIX 3 FROM 1
+        SET 'C-BORE' <<CB>>
+        SET 'Method' <<MethodRefl>>
+    ENDMIX
+    ;
+
+ELSEIF TypeRefl "MargCpy" = TypeRefl "MargCpyAdjus" = + THEN
+  MacroRefl := MarguetRefl :: <<CB>> <<TypeRefl>> ;
+ELSE
+  ECHO "Unknown reflector modelling" ;
+  ABORT: ;
+ENDIF ;
+MacroTot Matex := MACINI: Matex MacroRefl MacroFuel ;
+
+END: ;
+QUIT "LIST" .