blob: 8201405df70c0c42501de58d113b33343b236ce9 (
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
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
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
|
*DECK Geo_N2
*----
* Name : Geo_N2.c2m
* Type : DRAGON procedure
* Use : Geometry generation for 2nd Level Flux Calculation
* of the CASEA assembly
* Author : A. Hebert
*
* Procedure called as:
*
*GEON2 := Geo_N2 :: <<Rcomb1>> <<Rcomb2>> <<Rcomb3>> <<Rcomb4>>
* <<R_int_TG>> <<R_ext_TG>> <<R_int_TI>>
* <<R_ext_TI>> <<R_int_G>> <<R_ext_G>> <<Cote>>
* <<Lame>> ;
*
* Input data :
* Rcomb1 : 50/100 of outer radius of fuel (cm)
* Rcomb2 : 80/100 of outer radius of fuel (cm)
* Rcomb3 : 95/100 of outer radius of fuel (cm)
* Rcomb4 : 100/100 of outer radius of fuel (cm)
* R_int_TG : Inner radius of cladding of guide tube (cm)
* R_ext_TG : Outer radius of cladding of guide tube (cm)
* R_int_TI : Inner radius of cladding of guide tube (cm)
* R_ext_TI : Outer radius of cladding of guide tube (cm)
* R_int_G : Inner radius of cladding of fuel tube (cm)
* R_ext_G : Outer radius of cladding of fuel tube (cm)
* Cote : Lattice pitch (cm)
* Lame : Water space (cm)
*
* Output data :
* GEON2 : Geometry for 2nd Level Flux Calculation
PARAMETER GEON2 ::
EDIT 0
::: LINKED_LIST GEON2 ;
;
*----
* Modules used in this procedure
*----
MODULE GEO: END: ;
*----
* Input data recovery
*----
* ;
REAL Rcomb1 Rcomb2 Rcomb3 Rcomb4 ;
:: >>Rcomb1<< >>Rcomb2<< >>Rcomb3<< >>Rcomb4<< ;
REAL R_int_TG R_ext_TG R_int_TI R_ext_TI ;
:: >>R_int_TG<< >>R_ext_TG<< >>R_int_TI<< >>R_ext_TI<< ;
REAL R_int_G R_ext_G Cote Lame ;
:: >>R_int_G<< >>R_ext_G<< >>Cote<< >>Lame<< ;
REAL mesh1 := Cote ;
REAL mesh2 := mesh1 Cote + ;
REAL mesh3 := mesh2 Cote + ;
REAL mesh4 := mesh3 Cote + ;
REAL mesh5 := mesh4 Cote + ;
REAL mesh6 := mesh5 Cote + ;
REAL mesh7 := mesh6 Cote + ;
REAL mesh8 := mesh7 Cote + ;
REAL mesh9 := mesh8 Cote + ;
REAL mesh10 := mesh9 Lame + ;
REAL Rtub1_TG := R_int_TG 3.0 / ;
REAL Rtub2_TG := R_int_TG 1.5 / ;
REAL Rtub1_TI := R_int_TI 3.0 / ;
REAL Rtub2_TI := R_int_TI 1.5 / ;
*
GEON2 := GEO: :: CAR2D 10 10
EDIT 0
X- DIAG X+ REFL
Y- SYME Y+ DIAG
CELL
TI C0201 C0301 TG C0501 C0601 TG C0801 C0901 Lame_S
C0202 C0302 C0402 C0502 C0602 C0702 C0802 C0902 Lame_S
C0303 C0403 C0503 C0603 C0703 C0803 C0903 Lame_S
TG C0504 C0604 TG C0804 C0904 Lame_S
C0505 C0605 C0705 C0805 C0905 Lame_S
TG C0706 C0806 C0906 Lame_S
C0707 C0807 C0907 Lame_S
C0808 C0908 Lame_S
C0909 Lame_S
Lame_C
MESHX 0.0 <<mesh1>> <<mesh2>> <<mesh3>> <<mesh4>> <<mesh5>> <<mesh6>>
<<mesh7>> <<mesh8>> <<mesh9>> <<mesh10>>
MESHY 0.0 <<mesh1>> <<mesh2>> <<mesh3>> <<mesh4>> <<mesh5>> <<mesh6>>
<<mesh7>> <<mesh8>> <<mesh9>> <<mesh10>>
::: Lame_C := GEO: CAR2D 1 1
MESHX 0.0 <<Lame>> MESHY 0.0 <<Lame>>
MIX 162 ;
::: Lame_S := GEO: CAR2D 1 1
MESHX 0.0 <<Lame>> MESHY 0.0 <<Cote>>
SPLITY 3 MIX 162 ;
::: C0201 := GEO: CARCEL 6
MESHX 0.0 <<Cote>>
MESHY 0.0 <<Cote>>
SECT 4 6
RADIUS 0.0 <<Rcomb1>> <<Rcomb2>> <<Rcomb3>> <<Rcomb4>>
<<R_int_G>> <<R_ext_G>>
MIX 3 4 5 6 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0202 := GEO: C0201
MIX 9 10 11 12 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0301 := GEO: C0201
MIX 13 14 15 16 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0302 := GEO: C0201
MIX 17 18 19 20 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0303 := GEO: C0201
MIX 21 22 23 24 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0402 := GEO: C0201
MIX 26 27 28 29 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0403 := GEO: C0201
MIX 30 31 32 33 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0501 := GEO: C0201
MIX 34 35 36 37 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0502 := GEO: C0201
MIX 38 39 40 41 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0503 := GEO: C0201
MIX 42 43 44 45 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0504 := GEO: C0201
MIX 46 47 48 49 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0505 := GEO: C0201
MIX 50 51 52 53 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0601 := GEO: C0201
MIX 54 55 56 57 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0602 := GEO: C0201
MIX 58 59 60 61 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0603 := GEO: C0201
MIX 62 63 64 65 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0604 := GEO: C0201
MIX 66 67 68 69 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0605 := GEO: C0201
MIX 70 71 72 73 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0702 := GEO: C0201
MIX 74 75 76 77 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0703 := GEO: C0201
MIX 78 79 80 81 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0705 := GEO: C0201
MIX 82 83 84 85 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0706 := GEO: C0201
MIX 86 87 88 89 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0707 := GEO: C0201
MIX 90 91 92 93 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0801 := GEO: C0201
MIX 94 95 96 97 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0802 := GEO: C0201
MIX 98 99 100 101 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0803 := GEO: C0201
MIX 102 103 104 105 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0804 := GEO: C0201
MIX 106 107 108 109 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0805 := GEO: C0201
MIX 110 111 112 113 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0806 := GEO: C0201
MIX 114 115 116 117 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0807 := GEO: C0201
MIX 118 119 120 121 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0808 := GEO: C0201
MIX 122 123 124 125 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0901 := GEO: C0201
MIX 126 127 128 129 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0902 := GEO: C0201
MIX 130 131 132 133 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0903 := GEO: C0201
MIX 134 135 136 137 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0904 := GEO: C0201
MIX 138 139 140 141 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0905 := GEO: C0201
MIX 142 143 144 145 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0906 := GEO: C0201
MIX 146 147 148 149 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0907 := GEO: C0201
MIX 150 151 152 153 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0908 := GEO: C0201
MIX 154 155 156 157 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: C0909 := GEO: C0201
MIX 158 159 160 161 7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
::: TG := GEO: CARCEL 4
MESHX 0.0 <<Cote>>
MESHY 0.0 <<Cote>>
SECT 3 1
RADIUS 0.0 <<Rtub1_TG>> <<Rtub2_TG>> <<R_int_TG>> <<R_ext_TG>>
MIX 1
1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1
25 25 25 25 25 25 25 25
1 1 1 1 1 1 1 1 ;
::: TI := GEO: CARCEL 4
MESHX 0.0 <<Cote>>
MESHY 0.0 <<Cote>>
SECT 3 1
RADIUS 0.0 <<Rtub1_TI>> <<Rtub2_TI>> <<R_int_TI>> <<R_ext_TI>>
MIX 1
1 1 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 ;
;
|
