From 7dfcc480ba1e19bd3232349fc733caef94034292 Mon Sep 17 00:00:00 2001
From: stainer_t <thomas.stainer@oecd-nea.org>
Date: Mon, 8 Sep 2025 13:48:49 +0200
Subject: Initial commit from Polytechnique Montreal

---
 Dragon/data/C2D20.x2m | 117 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 117 insertions(+)
 create mode 100644 Dragon/data/C2D20.x2m

(limited to 'Dragon/data/C2D20.x2m')

diff --git a/Dragon/data/C2D20.x2m b/Dragon/data/C2D20.x2m
new file mode 100644
index 0000000..134cc20
--- /dev/null
+++ b/Dragon/data/C2D20.x2m
@@ -0,0 +1,117 @@
+*----
+*  TEST CASE C2D20
+*  ACR ANNULAR CELL WITH NXT
+*----
+MODULE      SHI: ASM: FLU: DELETE: END:                   ;
+PROCEDURE   GeoACRC2DN                                    ;
+PROCEDURE   MicACRE620  MicACRE6UH MicACRE6UW             ;
+LINKED_LIST CFLXS.tds CFLXF.tds Flux Compo1               ;
+SEQ_BINARY  CFLXS.trk CFLXF.trk                           ;
+XSM_FILE    MicLib ConcIso EditDS Pij                     ;
+STRING      Modele Option Etat BCtrk DiscrOpt TypeMRG     ;
+REAL        FuelSplit CoolSplit PTSplit CTSplit ModeSplit ;
+PROCEDURE assertS ;
+*----
+*  Get cross sections
+*----
+MicLib := MicACRE620 ;
+MicLib := MicACRE6UH MicLib ;
+MicLib := MicACRE6UW MicLib ;
+*----
+*  Initialyze geometry options
+*----
+INTEGER   NbAngles :=  10                 ;
+REAL      TrkDens  :=  20.0               ;
+EVALUATE  Etat BCtrk DiscrOpt := "Present" "TISO" "Thickness" ;
+*----------
+*  Get geometry for resonance self shielding
+*----------
+EVALUATE Modele   := "C2D6" ;
+EVALUATE TypeMRG := "Supercell" ;  ! "Supercell"  OR  "Reactor"
+EVALUATE FuelSplit CoolSplit PTSplit CTSplit ModeSplit :=
+         0.0       0.0       0.0     0.0     0.0       ;         
+EVALUATE Option  := "Shield" ;
+CFLXS.tds CFLXS.trk := GeoACRC2DN ::
+  <<Modele>> <<Option>> <<Etat>> <<BCtrk>> 
+  <<NbAngles>> <<TrkDens>>
+  ;
+*----------
+*  Get coarse geometry for flux calculations
+*  Uncomment EVALUATE command for fine mesh.
+*----------
+EVALUATE FuelSplit CoolSplit PTSplit CTSplit ModeSplit :=
+         -0.25       0.1       0.0    0.0    0.3       ;              
+EVALUATE Option := "Flux" ;
+CFLXF.tds CFLXF.trk := GeoACRC2DN ::
+  <<Modele>> <<Option>> <<Etat>> <<BCtrk>> <<DiscrOpt>>
+  <<FuelSplit>> <<CoolSplit>> <<PTSplit>> <<CTSplit>> <<ModeSplit>>
+  <<NbAngles>> <<TrkDens>>
+  ;
+*----
+* Self-shielding Calculation
+*----
+MicLib := SHI: MicLib CFLXS.tds CFLXS.trk   :: 
+       EDIT 0 LJ ;
+*----
+* Flux Calculation with SKIP
+*----
+Pij    := ASM: MicLib CFLXF.tds CFLXF.trk   :: 
+       EDIT 0 PIJK SKIP PNOR HELI ;
+Flux   := FLU: Pij MicLib CFLXF.tds         :: 
+       EDIT 1 TYPE B B1 SIGS ;
+assertS Flux :: 'K-INFINITY' 1 1.165185 ;
+Flux   := DELETE: Flux ;
+Flux   := FLU: Pij MicLib CFLXF.tds         :: 
+       EDIT 1 TYPE B B1 PNL ;
+*assertS Flux :: 'K-INFINITY' 1 1.165915 1.165582 ;
+Flux   := DELETE: Flux ;
+Flux   := FLU: Pij MicLib CFLXF.tds         :: 
+       EDIT 1 TYPE B B1 PNLR ;
+*assertS Flux :: 'K-INFINITY' 1 1.165098 1.165501 ;
+Flux   := DELETE: Flux ;
+Flux   := FLU: Pij MicLib CFLXF.tds         :: 
+       EDIT 1 TYPE B B1 TIBERE ;
+assertS Flux :: 'K-INFINITY' 1 1.164401 ;
+Pij Flux   := DELETE: Pij Flux ;
+Pij    := ASM: MicLib CFLXF.tds CFLXF.trk   :: 
+       EDIT 0 PIJ SKIP PNOR HELI ECCO ;
+Flux   := FLU: Pij MicLib CFLXF.tds         :: 
+       EDIT 1 TYPE B B1 ECCO ;
+assertS Flux :: 'K-INFINITY' 1 1.164370 ;
+Pij Flux   := DELETE: Pij Flux ;
+*----
+* Flux Calculation without SKIP
+*----
+Pij    := ASM: MicLib CFLXF.tds CFLXF.trk   :: 
+       EDIT 0 PIJK PNOR HELI ;
+Flux   := FLU: Pij MicLib CFLXF.tds         :: 
+       EDIT 1 TYPE B B1 SIGS ;
+assertS Flux :: 'K-INFINITY' 1 1.165184 ;
+Flux   := DELETE: Flux ;
+Flux   := FLU: Pij MicLib CFLXF.tds         :: 
+       EDIT 1 TYPE B B1 PNL ;
+assertS Flux :: 'K-INFINITY' 1 1.165599 ;
+Flux   := DELETE: Flux ;
+Flux   := FLU: Pij MicLib CFLXF.tds         :: 
+       EDIT 1 TYPE B B1 PNLR ;
+assertS Flux :: 'K-INFINITY' 1 1.165524 ;
+Flux   := DELETE: Flux ;
+Flux   := FLU: Pij MicLib CFLXF.tds         :: 
+       EDIT 1 TYPE B B1 TIBERE ;
+assertS Flux :: 'K-INFINITY' 1 1.164400 ;
+Pij Flux   := DELETE: Pij Flux ;
+Pij    := ASM: MicLib CFLXF.tds CFLXF.trk   :: 
+       EDIT 0 PIJ PNOR HELI ECCO ;
+Flux   := FLU: Pij MicLib CFLXF.tds         :: 
+       EDIT 1 TYPE B B1 ECCO ;
+assertS Flux :: 'K-INFINITY' 1 1.164370 ;
+*----
+*  Cleanup 
+*----
+Pij Flux := DELETE: Pij Flux ;
+CFLXS.tds CFLXF.tds CFLXS.trk CFLXF.trk  := DELETE: 
+CFLXS.tds CFLXF.tds CFLXS.trk CFLXF.trk  ;
+MicLib := DELETE: MicLib ;
+ECHO "test C2D20 completed" ;
+END: ;
+QUIT "LIST" .
-- 
cgit v1.2.3