*********************************************************** * * * 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: ; *---- * Get calculation options *---- REAL dx ; :: >>dx<< ; REAL x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16 x17 := 1. dx * 2. dx * 3. dx * 4. dx * 5. dx * 6. dx * 7. dx * 8. dx * 9. dx * 10. dx * 11. dx * 12. dx * 13. dx * 14. dx * 15. dx * 16. dx * 17. dx * ; REAL dz := dx ; REAL z1 z2 z3 z4 z5 z6 z7 z8 z9 z10 z11 z12 z13 z14 z15 z16 z17 z18 z19 z20 z21 z22 z23 z24 z25 z26 z27 z28 z29 z30 z31 := 1. dz * 2. dz * 3. dz * 4. dz * 5. dz * 6. dz * 7. dz * 8. dz * 9. dz * 10. dz * 11. dz * 12. dz * 13. dz * 14. dz * 15. dz * 16. dz * 17. dz * 18. dz * 19. dz * 20. dz * 21. dz * 22. dz * 23. dz * 24. dz * 25. dz * 26. dz * 27. dz * 28. dz * 29. dz * 30. dz * 31. dz * ; ECHO 'SetFuelMap: elementary length=' dx 'cm' ; FMAP MATEX := RESINI: MATEX :: ::: GEO: CAR3D 17 17 3 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 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 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 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 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 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 0 0 0 0 0 0 0 0 0 0 0 0 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 0 0 0 0 0 0 0 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 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 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 0 0 0 0 0 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 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 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 PLANE 3 SAME 1 ! MESHX 0.0 <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> MESHY 0.0 <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> MESHZ 0.0 <> <> <> ; ! NXNAME '-' '01' '02' '03' '04' '05' '06' '07' '08' '09' '10' '11' '12' '13' '14' '15' '-' ! NYNAME '-' 'A' 'B' 'C' 'D' 'E' 'F' 'G' 'H' 'J' 'K' 'L' 'M' 'N' 'O' 'P' '-' ! NCOMB 157 B-ZONE 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 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 .