blob: 2fc13d6c90c842b87cbea03a9795621e18bff2ab (
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
|
!***********************************************************************
!* **
!* PROCEDURE: PgeoG2 **
!* USAGE: Geometry construction for Gentilly2 reactor **
!* AUTHOR: E. Varin (96/02/01) **
!* B. Dionne (01/03/04) (pour cours ENE6209) **
!* CALL: **
!* **
!* GEOM2 INDEX := PgeoG2 ; **
!* **
!* NOTES: **
!* G2 reactor is a CAR3D geometry of 26*26*12 cells **
!* It is the Coarse definition, for fine geometry, **
!* There are mesh-splitting in X direction only **
!* **
!* The boundary conditions are VOID or CYLI, for cylindric **
!* correction. By default, Only TWO mixture numbers are **
!* defined : # 1 for the fuel and # 2 for the reflector **
!* **
!* For any modification, you have to copy the file **
!* and modify it manually **
!* **
!***********************************************************************
PARAMETER GEOM2 INDEX ::
::: LINKED_LIST GEOM2 INDEX ;
;
MODULE END: GEO: USPLIT: DELETE: ;
LINKED_LIST GEOM ;
!* Declaration des variables
!***************************
INTEGER Maxreg ;
!* Lecture des arguments de la procedure
!***************************************
:: >>Maxreg<< ;
!* Definition de la gemometrie a 2 zones
!***************************************
GEOM := GEO: :: CAR3D 26 26 12
EDIT 0
X- ZERO X+ ZERO
Y- ZERO Y+ ZERO
Z- ZERO Z+ ZERO
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 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 2 2 2 1 1 1 1 1 1 2 2 2 0 0 0 0 0 0 0
0 0 0 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0 0 0 0 0
0 0 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0 0 0 0
0 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0 0 0
0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0 0
0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0 0
0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0
0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0
0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0
0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0
0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0
0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0
0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0
0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0
0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0
0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0
0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0 0
0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0 0
0 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0 0 0
0 0 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0 0 0 0
0 0 0 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 2 0 0 0 0 0 0
0 0 0 0 0 0 0 2 2 2 1 1 1 1 1 1 2 2 2 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 2 2 2 2 2 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 0 0 0 0 0 0 0 0 0 0 0 0
PLANE 3
0 0 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0
0 0 0 0 0 2 2 2 2 2 1 1 1 1 1 1 2 2 2 2 2 0 0 0 0 0
0 0 0 0 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 0 0 0 0
0 0 0 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 0 0 0
0 0 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 0 0
0 0 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 0 0
0 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 0
0 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 0
2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2
2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2
2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2
2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2
2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2
2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2
2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2
2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2
0 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 0
0 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 0
0 0 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 0 0
0 0 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 0 0
0 0 0 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 0 0 0
0 0 0 0 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 0 0 0 0
0 0 0 0 0 2 2 2 2 2 1 1 1 1 1 1 2 2 2 2 2 0 0 0 0 0
0 0 0 0 0 0 2 2 2 2 2 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0
PLANE 2 SAME 1
PLANE 4 SAME 3
PLANE 5 SAME 3
PLANE 6 SAME 3
PLANE 7 SAME 3
PLANE 8 SAME 3
PLANE 9 SAME 3
PLANE 10 SAME 3
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
;
GEOM2 INDEX := USPLIT: GEOM :: NGRP 2 MAXR <<Maxreg>>
NREFL 1 RMIX 2
NFUEL 1 FMIX 1 ;
END: ;
QUIT .
|
