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/Pinires.c2m | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Donjon/data/AFMtest_proc/Pinires.c2m')
| -rwxr-xr-x | Donjon/data/AFMtest_proc/Pinires.c2m | 137 |
1 files changed, 137 insertions, 0 deletions
diff --git a/Donjon/data/AFMtest_proc/Pinires.c2m b/Donjon/data/AFMtest_proc/Pinires.c2m new file mode 100755 index 0000000..723e623 --- /dev/null +++ b/Donjon/data/AFMtest_proc/Pinires.c2m @@ -0,0 +1,137 @@ +!*********************************************************************** +!* ** +!* PROCEDURE: Pinires ** +!* USAGE: Fuel map description for Gentilly2 reactor ** +!* AUTHOR: E. Varin (96/02/12) ** +!* REVISED: W. Shen (98/11/19) ** +!* B. Dionne (01/03/04) (pour cours ENE6209) ** +!* A. Hebert (11/11/11) (pour DONJON4) ** +!* CALL: ** +!* ** +!* RESEAU INDEX := Pinires INDEX :: B1 B2 ; ** +!* ** +!* NOTES: ** +!* B1 = average exit burnup for zone # 1 ** +!* B2 = average exit burnup for zone # 2 ** +!* ** +!*********************************************************************** + PARAMETER RESEAU INDEX :: + ::: LINKED_LIST RESEAU INDEX ; + ; + + MODULE END: RESINI: ; + +!* Declaration des variables +!*************************** + REAL B1 B2 ; + +!* Lecture des arguments de la procedure +!*************************************** + :: >>B1<< >>B2<< ; + +!* Creation et initialisation de RESEAU +!************************************** + RESEAU INDEX := RESINI: INDEX :: + + ::: GEO: CAR3D 26 26 12 + EDIT 0 + + X- VOID X+ VOID + Y- VOID Y+ VOID + Z- VOID Z+ VOID + + 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 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 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 + 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 + 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 + 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 + 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 + 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 + 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 + 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 + 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 + 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 + + 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 + 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 + 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 + 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 + 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 + 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 + 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 + 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 + 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 + 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 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 + 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 2 SAME 1 + PLANE 3 SAME 1 + PLANE 4 SAME 1 + PLANE 5 SAME 1 + PLANE 6 SAME 1 + PLANE 7 SAME 1 + PLANE 8 SAME 1 + PLANE 9 SAME 1 + PLANE 10 SAME 1 + 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 ; + + NXNAME '-' '-' '1' '2' '3' '4' '5' '6' '7' '8' '9' '10' '11' + '12' '13' '14' '15' '16' '17' '18' '19' '20' '21' '22' + '-' '-' + + NYNAME '-' '-' 'A' 'B' 'C' 'D' 'E' 'F' 'G' 'H' 'J' 'K' 'L' + 'M' 'N' 'O' 'P' 'Q' 'R' 'S' 'T' 'U' 'V' 'W' '-' '-' + + NCOMB 2 + B-ZONE + 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 1 1 1 1 1 1 1 1 2 2 2 2 2 + 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 + 2 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 + 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 + 2 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 + 2 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 + 2 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 + + 2 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 + 2 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 + 2 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 + 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 + 2 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 + 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 + 2 2 2 2 2 1 1 1 1 1 1 1 1 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 + + TIMAV-BVAL <<B1>> <<B2>> + REF-SHIFT 8 + BTYPE TIMAV-BURN + ; + + END: ; + +QUIT . |