diff options
Diffstat (limited to 'Donjon/data/Fessenheim_proc/InterpCP0.c2m')
| -rwxr-xr-x | Donjon/data/Fessenheim_proc/InterpCP0.c2m | 248 |
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" . |