diff options
| author | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
|---|---|---|
| committer | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
| commit | 7dfcc480ba1e19bd3232349fc733caef94034292 (patch) | |
| tree | 03ee104eb8846d5cc1a981d267687a729185d3f3 /Donjon/data/Test4x4coupl_nompi_proc/PgeoCell.c2m | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Donjon/data/Test4x4coupl_nompi_proc/PgeoCell.c2m')
| -rwxr-xr-x | Donjon/data/Test4x4coupl_nompi_proc/PgeoCell.c2m | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/Donjon/data/Test4x4coupl_nompi_proc/PgeoCell.c2m b/Donjon/data/Test4x4coupl_nompi_proc/PgeoCell.c2m new file mode 100755 index 0000000..849ef80 --- /dev/null +++ b/Donjon/data/Test4x4coupl_nompi_proc/PgeoCell.c2m @@ -0,0 +1,47 @@ +! +! PROCEDURE: PgeoCell +! USAGE: Geometry construction for Cell 6*6 +! AUTHOR: E.Varin (97/08/11) +! CALL: +! +! GEOM2 INDEX := PgeoCell ; +! +! NOTES: +! Cell 6*6 is a CAR3D geometry of 6*6*12 cells +! used to reproduce CANDU-6 behavior in a smaller +! number of regions +! +! The boundary conditions are VOID and REFL +! It is an infinite reflective cell +! Mix # 1 for the fuel +! + PARAMETER GEOM2 INDEX :: + ::: LINKED_LIST GEOM2 INDEX ; ; + LINKED_LIST GEOM ; + MODULE END: GEO: USPLIT: READ: ; +! BASIC GEOMETRY DESCRIPTION +* + GEOM := GEO: :: CAR3D 4 4 4 + EDIT 1 + X- REFL X+ REFL + Y- REFL Y+ REFL + Z- VOID Z+ VOID + MIX + PLANE 1 + + 1 1 1 1 + 1 1 1 1 + 1 1 1 1 + 1 1 1 1 + + PLANE 2 SAME 1 + PLANE 3 SAME 1 + PLANE 4 SAME 1 + + MESHX 0.0 28.575 57.15 85.725 114.3 + MESHY 0.0 28.575 57.15 85.725 114.3 + MESHZ 0.0 49.53 99.06 148.59 198.12 ; + + GEOM2 INDEX := USPLIT: GEOM :: NGRP 2 MAXR 64 + NFUEL 1 FMIX 1 ; +END: ; |