blob: 849ef8012e81c1e048e4f8699f0b4b10608940f0 (
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
|
!
! PROCEDURE: PgeoCell
! USAGE: Geometry construction for Cell 6*6
! AUTHOR: E.Varin (97/08/11)
! CALL:
!
! GEOM2 INDEX := PgeoCell ;
!
! NOTES:
! Cell 6*6 is a CAR3D geometry of 6*6*12 cells
! used to reproduce CANDU-6 behavior in a smaller
! number of regions
!
! The boundary conditions are VOID and REFL
! It is an infinite reflective cell
! Mix # 1 for the fuel
!
PARAMETER GEOM2 INDEX ::
::: LINKED_LIST GEOM2 INDEX ; ;
LINKED_LIST GEOM ;
MODULE END: GEO: USPLIT: READ: ;
! BASIC GEOMETRY DESCRIPTION
*
GEOM := GEO: :: CAR3D 4 4 4
EDIT 1
X- REFL X+ REFL
Y- REFL Y+ REFL
Z- VOID Z+ VOID
MIX
PLANE 1
1 1 1 1
1 1 1 1
1 1 1 1
1 1 1 1
PLANE 2 SAME 1
PLANE 3 SAME 1
PLANE 4 SAME 1
MESHX 0.0 28.575 57.15 85.725 114.3
MESHY 0.0 28.575 57.15 85.725 114.3
MESHZ 0.0 49.53 99.06 148.59 198.12 ;
GEOM2 INDEX := USPLIT: GEOM :: NGRP 2 MAXR 64
NFUEL 1 FMIX 1 ;
END: ;
|
