diff options
Diffstat (limited to 'Donjon/data/candu6_iram_proc/Pinires.c2m')
| -rw-r--r-- | Donjon/data/candu6_iram_proc/Pinires.c2m | 135 |
1 files changed, 135 insertions, 0 deletions
diff --git a/Donjon/data/candu6_iram_proc/Pinires.c2m b/Donjon/data/candu6_iram_proc/Pinires.c2m new file mode 100644 index 0000000..172f2e3 --- /dev/null +++ b/Donjon/data/candu6_iram_proc/Pinires.c2m @@ -0,0 +1,135 @@ +!*********************************************************************** +!* ** +!* 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) ** +!* CALL: ** +!* ** +!* RESEAU INDEX := Pinires INDEX :: B1 B2 B3 ; ** +!* ** +!* NOTES: ** +!* Bi = average exit burnup for zone # i ** +!* ** +!*********************************************************************** + PARAMETER RESEAU INDEX :: + ::: LINKED_LIST RESEAU INDEX ; + ; + + MODULE END: RESINI: ; + +!* Declaration des variables +!*************************** + REAL B1 B2 B3 ; + +!* Lecture des arguments de la procedure +!*************************************** + :: >>B1<< >>B2<< >>B3<< ; + +!* 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 3 B-ZONE + 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 2 2 2 2 2 2 2 2 3 3 3 3 3 + 3 3 3 2 2 2 1 1 1 1 1 1 2 2 2 3 3 3 + 3 3 3 3 2 1 1 1 1 1 1 1 1 1 1 2 3 3 3 3 + 3 3 3 2 2 1 1 1 1 1 1 1 1 1 1 2 2 3 3 3 + 3 3 3 3 2 1 1 1 1 1 1 1 1 1 1 1 1 2 3 3 3 3 + 3 3 3 3 2 1 1 1 1 1 1 1 1 1 1 1 1 2 3 3 3 3 + 3 3 3 3 2 1 1 1 1 1 1 1 1 1 1 1 1 2 3 3 3 3 + + 3 3 3 3 2 1 1 1 1 1 1 1 1 1 1 1 1 2 3 3 3 3 + 3 3 3 3 2 1 1 1 1 1 1 1 1 1 1 1 1 2 3 3 3 3 + 3 3 3 3 2 1 1 1 1 1 1 1 1 1 1 1 1 2 3 3 3 3 + 3 3 3 2 2 1 1 1 1 1 1 1 1 1 1 2 2 3 3 3 + 3 3 3 3 2 1 1 1 1 1 1 1 1 1 1 2 3 3 3 3 + 3 3 3 2 2 2 1 1 1 1 1 1 2 2 2 3 3 3 + 3 3 3 3 3 2 2 2 2 2 2 2 2 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 3 3 3 3 3 3 + 3 3 3 3 3 3 + + BTYPE TIMAV-BURN + REF-SHIFT 8 + TIMAV-BVAL <<B1>> <<B2>> <<B3>> + +! ENRICH 0.714 + ; + + END: ; + +QUIT . |