From 7dfcc480ba1e19bd3232349fc733caef94034292 Mon Sep 17 00:00:00 2001 From: stainer_t Date: Mon, 8 Sep 2025 13:48:49 +0200 Subject: Initial commit from Polytechnique Montreal --- Donjon/data/Test4x4coupl_nompi_proc/PgeoCell.c2m | 47 ++++++++++++++++++++++++ 1 file changed, 47 insertions(+) create mode 100755 Donjon/data/Test4x4coupl_nompi_proc/PgeoCell.c2m (limited to 'Donjon/data/Test4x4coupl_nompi_proc/PgeoCell.c2m') 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: ; -- cgit v1.2.3