blob: 3dad6431d29ef53ac2bad7d825f0c0bb41bfa54c (
plain)
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
|
***********************************************************
* *
* 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 .
|
