diff options
Diffstat (limited to 'Dragon/data/tmacro_proc/TCM15.c2m')
| -rw-r--r-- | Dragon/data/tmacro_proc/TCM15.c2m | 72 |
1 files changed, 72 insertions, 0 deletions
diff --git a/Dragon/data/tmacro_proc/TCM15.c2m b/Dragon/data/tmacro_proc/TCM15.c2m new file mode 100644 index 0000000..d146115 --- /dev/null +++ b/Dragon/data/tmacro_proc/TCM15.c2m @@ -0,0 +1,72 @@ +*---- +* TEST CASE TCM15 +* VVER Assembly of central water hole with 6 identical fuel cells +* NXT flux +* Coarse mesh +*---- +MODULE + MAC: GEO: NXT: ASM: FLU: DELETE: END: ; +LINKED_LIST + MACRO GEOMF TRACK PIJMAT FLUX ; +SEQ_BINARY + TRACK_LGT ; +PROCEDURE assertS ; +*---- +* Macroscopic XS +*---- +MACRO := MAC: :: + NGRO 2 NMIX 4 NIFI 1 + READ INPUT + MIX 1 TOTAL 2.60458171E-1 3.77224326E-1 + SCAT 2 2 5.98954648E-5 2.49342978E-1 + 2 2 3.77127469E-1 1.11155845E-2 + MIX 2 TOTAL 1.49818063E-1 1.59792125E-1 + SCAT 2 2 7.40572286E-5 1.47693634E-1 + 2 2 1.57371104E-1 1.30506000E-3 + MIX 3 TOTAL 3.22798014E-1 3.81341100E-1 + NUSIGF 5.46564534E-3 7.17375278E-2 + CHI 1.0 0.0 + SCAT 2 2 3.13575147E-4 3.11233580E-1 + 2 2 3.24143648E-1 2.19577667E-3 + MIX 4 TOTAL 2.60458171E-1 3.77224326E-1 + SCAT 2 2 5.98954648E-5 2.49342978E-1 + 2 2 3.77127469E-1 1.11155845E-2 + ; +*---- +* Geometries NXT +*---- +GEOMF := GEO: :: HEX 7 + EDIT 2 + HBC COMPLETE REFL + CELL CT CFI CFI CFI CFI CFI CFI + ::: CT := GEO: HEXTCEL 2 1 + SIDE 0.736121593 + SPLITR 3 1 + MIX 1 2 1 + RADIUS 0.0 0.386 0.445 + ; + ::: CFI := GEO: HEXTCEL 2 1 + SIDE 0.736121593 + SPLITR 3 1 + MIX 3 2 1 + RADIUS 0.0 0.386 0.445 + ; + ; +*---- +* Transport calculation +* Flux calculation +*---- +TRACK TRACK_LGT := NXT: GEOMF :: + EDIT 3 TITL 'VVER-NXT: Flux' + TISO 50 100.0 ; +PIJMAT := ASM: MACRO TRACK TRACK_LGT :: + EDIT 1 ; +FLUX := FLU: PIJMAT MACRO TRACK :: + EDIT 1 TYPE K ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.055674 ; +TRACK TRACK_LGT GEOMF := DELETE: TRACK TRACK_LGT GEOMF ; +PIJMAT FLUX := DELETE: PIJMAT FLUX ; +MACRO := DELETE: MACRO ; +ECHO "test TCM15 completed" ; +END: ; +QUIT "LIST" . |