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/channel_mphy_proc/SetFuelMap.c2m | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Donjon/data/channel_mphy_proc/SetFuelMap.c2m')
| -rw-r--r-- | Donjon/data/channel_mphy_proc/SetFuelMap.c2m | 82 |
1 files changed, 82 insertions, 0 deletions
diff --git a/Donjon/data/channel_mphy_proc/SetFuelMap.c2m b/Donjon/data/channel_mphy_proc/SetFuelMap.c2m new file mode 100644 index 0000000..3dad643 --- /dev/null +++ b/Donjon/data/channel_mphy_proc/SetFuelMap.c2m @@ -0,0 +1,82 @@ +*********************************************************** +* * +* Procedure : SetFuelMap.c2m * +* Purpose : Fuel-map specifications for REP900 * +* Author(s) : M. Guyot (2010) * +* Modified by : A. Hebert (2011) * +* * +* CALL : FMAP MATEX := SetFuelMap MATEX ; * +* * +*********************************************************** + +PARAMETER FMAP MATEX :: + ::: LINKED_LIST + FMAP MATEX ; ; + +MODULE RESINI: END: ; + +REAL x1 := 21.6 ; + +REAL z1 dz := 20.0 23.0 ; + +REAL z2 z3 z4 z5 z6 z7 z8 z9 z10 z11 z12 z13 z14 + z15 z16 z17 := + z1 dz + z1 2. dz * + z1 3. dz * + z1 4. dz * + + z1 5. dz * + z1 6. dz * + z1 7. dz * + z1 8. dz * + + z1 9. dz * + z1 10. dz * + z1 11. dz * + z1 12. dz * + + z1 13. dz * + z1 14. dz * + z1 15. dz * + z1 16. dz * + ; + +REAL z18 := z17 z1 + ; + +FMAP MATEX := RESINI: MATEX :: + ::: GEO: CAR3D 1 1 18 + EDIT 0 + X- REFL X+ REFL + Y- REFL Y+ REFL + Z- VOID Z+ VOID +MIX +PLANE 1 + 0 +PLANE 2 + 1 +PLANE 3 SAME 2 +PLANE 4 SAME 2 +PLANE 5 SAME 2 +PLANE 6 SAME 2 +PLANE 7 SAME 2 +PLANE 8 SAME 2 +PLANE 9 SAME 2 +PLANE 10 SAME 2 +PLANE 11 SAME 2 +PLANE 12 SAME 2 +PLANE 13 SAME 2 +PLANE 14 SAME 2 +PLANE 15 SAME 2 +PLANE 16 SAME 2 +PLANE 17 SAME 2 +PLANE 18 SAME 1 +! +MESHX 0.0 <<x1>> + +MESHY 0.0 <<x1>> + +MESHZ 0.0 <<z1>> <<z2>> <<z3>> <<z4>> <<z5>> <<z6>> <<z7>> + <<z8>> <<z9>> <<z10>> <<z11>> <<z12>> <<z13>> <<z14>> + <<z15>> <<z16>> <<z17>> <<z18>> +; +! +NXNAME '01' +! +NYNAME 'A' +! +NCOMB 1 +B-ZONE 1 + + ADD-PARAM PNAME 'C-BORE' PARKEY 'ppmBore' GLOBAL + ADD-PARAM PNAME 'T-FUEL' PARKEY 'TF' GLOBAL + ADD-PARAM PNAME 'T-COOL' PARKEY 'TCA' GLOBAL + ADD-PARAM PNAME 'D-COOL' PARKEY 'DCA' GLOBAL +; + +END: ; +QUIT . |