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/AFMtest_proc/PgeoG2.c2m | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Donjon/data/AFMtest_proc/PgeoG2.c2m')
| -rwxr-xr-x | Donjon/data/AFMtest_proc/PgeoG2.c2m | 138 |
1 files changed, 138 insertions, 0 deletions
diff --git a/Donjon/data/AFMtest_proc/PgeoG2.c2m b/Donjon/data/AFMtest_proc/PgeoG2.c2m new file mode 100755 index 0000000..2fc13d6 --- /dev/null +++ b/Donjon/data/AFMtest_proc/PgeoG2.c2m @@ -0,0 +1,138 @@ +!*********************************************************************** +!* ** +!* PROCEDURE: PgeoG2 ** +!* USAGE: Geometry construction for Gentilly2 reactor ** +!* AUTHOR: E. Varin (96/02/01) ** +!* B. Dionne (01/03/04) (pour cours ENE6209) ** +!* CALL: ** +!* ** +!* GEOM2 INDEX := PgeoG2 ; ** +!* ** +!* NOTES: ** +!* G2 reactor is a CAR3D geometry of 26*26*12 cells ** +!* It is the Coarse definition, for fine geometry, ** +!* There are mesh-splitting in X direction only ** +!* ** +!* The boundary conditions are VOID or CYLI, for cylindric ** +!* correction. By default, Only TWO mixture numbers are ** +!* defined : # 1 for the fuel and # 2 for the reflector ** +!* ** +!* For any modification, you have to copy the file ** +!* and modify it manually ** +!* ** +!*********************************************************************** + PARAMETER GEOM2 INDEX :: + ::: LINKED_LIST GEOM2 INDEX ; + ; + + MODULE END: GEO: USPLIT: DELETE: ; + + LINKED_LIST GEOM ; + +!* Declaration des variables +!*************************** + INTEGER Maxreg ; + +!* Lecture des arguments de la procedure +!*************************************** + :: >>Maxreg<< ; + +!* Definition de la gemometrie a 2 zones +!*************************************** + GEOM := GEO: :: CAR3D 26 26 12 + EDIT 0 + + X- ZERO X+ ZERO + Y- ZERO Y+ ZERO + Z- ZERO Z+ ZERO + + MIX + + PLANE 1 + + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 2 2 2 1 1 1 1 1 1 2 2 2 0 0 0 0 0 0 0 + 0 0 0 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0 0 0 0 0 + 0 0 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0 0 0 0 + 0 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0 0 0 + 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0 0 + 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0 0 + 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0 + 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0 + 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 + 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 + 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 + 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 + 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 + 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 + 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0 + 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0 + 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0 0 + 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0 0 + 0 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0 0 0 + 0 0 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0 0 0 0 + 0 0 0 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0 0 0 0 0 + 0 0 0 0 0 0 0 2 2 2 1 1 1 1 1 1 2 2 2 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 + + PLANE 3 + + 0 0 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 + 0 0 0 0 0 2 2 2 2 2 1 1 1 1 1 1 2 2 2 2 2 0 0 0 0 0 + 0 0 0 0 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 0 0 0 0 + 0 0 0 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 0 0 0 + 0 0 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 0 0 + 0 0 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 0 0 + 0 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 0 + 0 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 0 + 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 + 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 + 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 + 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 + 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 + 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 + 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 + 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 + 0 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 0 + 0 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 0 + 0 0 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 0 0 + 0 0 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 0 0 + 0 0 0 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 0 0 0 + 0 0 0 0 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 0 0 0 0 + 0 0 0 0 0 2 2 2 2 2 1 1 1 1 1 1 2 2 2 2 2 0 0 0 0 0 + 0 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 + + PLANE 2 SAME 1 + PLANE 4 SAME 3 + PLANE 5 SAME 3 + PLANE 6 SAME 3 + PLANE 7 SAME 3 + PLANE 8 SAME 3 + PLANE 9 SAME 3 + PLANE 10 SAME 3 + PLANE 11 SAME 1 + PLANE 12 SAME 1 + + MESHX 3.150 45.050 68.525 97.100 125.675 154.250 182.825 211.400 + 239.975 268.550 297.125 325.700 354.275 382.850 411.425 + 440.000 468.575 497.150 525.725 554.300 582.875 611.450 + 640.025 668.600 697.175 720.650 762.550 + MESHY 3.150 45.050 68.525 97.100 125.675 154.250 182.825 211.400 + 239.975 268.550 297.125 325.700 354.275 382.850 411.425 + 440.000 468.575 497.150 525.725 554.300 582.875 611.450 + 640.025 668.600 697.175 720.650 762.550 + MESHZ 3.940 53.470 103.000 152.530 202.060 251.590 301.120 350.650 + 400.180 449.710 499.240 548.770 598.30 + ; + + GEOM2 INDEX := USPLIT: GEOM :: NGRP 2 MAXR <<Maxreg>> + NREFL 1 RMIX 2 + NFUEL 1 FMIX 1 ; + + END: ; + +QUIT . |