diff options
Diffstat (limited to 'Dragon/data/tmacro_proc/TCM54.c2m')
| -rw-r--r-- | Dragon/data/tmacro_proc/TCM54.c2m | 130 |
1 files changed, 130 insertions, 0 deletions
diff --git a/Dragon/data/tmacro_proc/TCM54.c2m b/Dragon/data/tmacro_proc/TCM54.c2m new file mode 100644 index 0000000..58ad387 --- /dev/null +++ b/Dragon/data/tmacro_proc/TCM54.c2m @@ -0,0 +1,130 @@ +*---- +* TEST CASE TCM54 +* HEXAGONAL CASES IN EXCELT +* ONE-GROUP MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST ASSMBH TRACK MACRO FLUX SYS EDIT MACRO2 ASSMB2 + TRACK2 ; +MODULE GEO: EXCELT: BIVACT: MAC: ASM: FLU: EDI: SPH: DELETE: + END: ; +SEQ_BINARY TRK_FIL ; +PROCEDURE assertS ; +* +MACRO := MAC: :: + EDIT 2 NGRO 1 NMIX 4 NIFI 1 + READ INPUT + MIX 1 (*VIDE*) + TOTAL 0.0 SCAT 1 1 0.0 + MIX 2 (*MIDI*) + TOTAL 1.0 SCAT 1 1 0.9 + MIX 3 (*CREU*) + TOTAL 1.0E-4 SCAT 1 1 0.0 + MIX 4 (*MIFI*) + TOTAL 1.0 SCAT 1 1 0.8 + NUSIGF 1.1 CHI 1.0 +; +* +ASSMBH := GEO: :: HEX 1 + EDIT 2 + HBC COMPLETE REFL + MIX HEXFGM + ::: HEXFGM := GEO: HEXCEL 1 + SIDE 1.12045 + RADIUS 0.0 0.4 + MIX 4 + 2 + ; + ; +TRACK TRK_FIL := EXCELT: ASSMBH :: + TITLE 'SIMPLE HEXAGONAL CASE' + MAXR 2000 + EDIT 2 ANIS 2 GAUS 4 TRAK TISO 12 10.0 ; +* +SYS := ASM: MACRO TRACK TRK_FIL :: EDIT 1 PIJ ; +FLUX := FLU: SYS MACRO TRACK :: TYPE K ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.779603 ; +* +ASSMBH TRACK TRK_FIL SYS FLUX := DELETE: ASSMBH TRACK TRK_FIL SYS FLUX ; +ASSMBH := GEO: :: HEX 1 + EDIT 2 + HBC COMPLETE REFL + MIX HEXFGM + ::: HEXFGM := GEO: HEXCEL 1 + SIDE 1.12045 + RADIUS 0.0 0.4 + SECT -1 + MIX 4 4 4 4 4 4 + 2 2 2 2 2 2 + ; + ; +TRACK TRK_FIL := EXCELT: ASSMBH :: + TITLE 'SIMPLE HEXAGONAL CASE' + MAXR 2000 + EDIT 2 ANIS 2 GAUS 4 TRAK TISO 12 10.0 ; +SYS := ASM: MACRO TRACK TRK_FIL :: EDIT 1 PIJ ; +FLUX := FLU: SYS MACRO TRACK :: TYPE K ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.791653 ; +* +ASSMBH TRACK TRK_FIL SYS FLUX := DELETE: ASSMBH TRACK TRK_FIL SYS FLUX ; +ASSMBH := GEO: :: HEX 7 + EDIT 2 + HBC COMPLETE REFL + MIX HEXVGV HEXVGV HEXFGM HEXCREU HEXCREU HEXVGV HEXNOIR + MERGE 1 2 3 4 4 5 6 + ::: HEXFGM := GEO: HEXCEL 2 + SIDE 1.12045 + RADIUS 0.0 0.2 1.01946 + SECT -1 + MIX 4 4 4 4 4 4 + 2 2 2 2 2 2 + 2 2 2 2 2 2 + ; + ::: HEXVGV := GEO: HEXCEL 2 + SIDE 1.12045 + RADIUS 0.0 0.2 0.4 + SECT -1 + MIX 1 1 1 1 1 1 + 2 2 2 2 2 2 + 2 2 2 2 2 2 + ; + ::: HEXCREU := GEO: HEXCEL 0 + SIDE 1.12045 + MIX 3 + ; + ::: HEXNOIR := GEO: HEXCEL 1 + SIDE 1.12045 + RADIUS 0.0 0.4 + SECT -1 + MIX 4 4 4 4 4 4 + 2 2 2 2 2 2 + ; + ; +TRACK TRK_FIL := EXCELT: ASSMBH :: + TITLE 'SIMPLE HEXAGONAL CASE' + MAXR 2000 + EDIT 2 ANIS 2 GAUS 4 TRAK TISO 12 10.0 ; +* +SYS := ASM: MACRO TRACK TRK_FIL :: EDIT 1 PIJ ; +FLUX := FLU: SYS MACRO TRACK :: TYPE K B0 SIGS BUCK 0.0 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.000711 ; +*---- +* TRANSPORT-DIFFUSION EQUIVALENCE +*---- +* EDITION FOR HETEROGENEOUS DIFFUSION CALCULATIONS +* CELL-BY-CELL SPH HOMOGENIZATION OF THE ASSEMBLY +EDIT := EDI: FLUX MACRO TRACK ASSMBH :: + EDIT 3 SAVE MERG CELL ; +ASSMB2 := EDIT :: STEP UP 'MACRO-GEOM' ; +ASSMB2 := GEO: ASSMB2 :: SPLITL 2 ; +TRACK2 := BIVACT: ASSMB2 :: MAXR 100 DUAL (*IELEM=*) 2 (*ICOL=*) 2 ; +EDIT := SPH: EDIT TRACK2 :: ITER 1.0E-5 ; +ASSMB2 TRACK2 := DELETE: ASSMB2 TRACK2 ; +MACRO2 := EDIT :: STEP UP 'REF-CASE0001' STEP UP MACROLIB + STEP UP GROUP STEP AT 1 ; +assertS MACRO2 :: 'NSPH' 3 0.8897515 ; +* +ECHO "test TCM54 completed" ; +END: ; +QUIT "LIST" . |