3###### FILE DESCRIPTION ##############
5# JOURNAL FILE FOR TEST BF420B of reference
6# R P Birkett CSDMC P71 AEA-RS-4168 Part 1
7# Hinkley Point B and Hunterston Geometry
8# External loading scenario
9# Created 14/5/2014 by Owen Booler AMEC
10# Last Modified 14/5/2014 by Owen Booler AMEC
12###### GEOMETRY##################
14# creating the 45 degree sector Hunterston B fuel brick Geometry
15create curve location 0 0 0 location 131.625 0 0
16create curve location 131.625 0 0 location 192.18 0 0
17create curve location 192.18 0 0 location 192.18 10.125 0
18create curve location 192.18 10.125 0 location 229.9 10.125 0
19create curve location 229.9 10.125 0 location 229.9 45.72995 0
20curve 1 copy rotate 45 about z
21create curve location at vertex 12 direction curve 6 length 60.555
22create curve location at vertex 14 direction 1 -1 0 length 16.475
23create curve location at vertex 16 direction 1 1 0 length 37.72
24create curve location at vertex 18 direction 1 -1 0 length 29.255
25create curve location at vertex 20 location at vertex 10
26create curve arc center vertex 11 12 2
29create surface curve 7 12 3 2 4 5 11 10 9 8
31# Projecting 45 degree sector to make a 25mm thick octant
32# change distance to vary the thickness units in mm
33sweep surface 1 direction z distance 25
35# Copy octant to create full 360 degree slice
36Volume 1 copy reflect y
37Volume 1 2 copy rotate 90 about z
38Volume 1 2 copy rotate 180 about z
39Volume 1 2 copy rotate 270 about z
42# Put fillets into keyway corners radius = 1.6
43modify curve 17 99 27 53 38 188 203 234 219 128 143 174 159 68 114 83 blend radius 1.6
46# Simulating crack from test BF420B from ref: R P Birkett CSDMC P71 AEA-RS-4168 Part 1
47# Initial crack size will be 5mm long spanning full thickness of the brick slice.
48create vertex on curve 277 279 midpoint
49create curve vertex 239 240
50create curve location at vertex 240 direction surface 105 length -5
51create curve location at vertex 239 direction surface 105 length -5
52create curve vertex 244 242
53create surface curve 307 308 309 310
54create cylinder height 25 radius 5
55move Volume 10 location vertex 239 include_merged
56move Volume 10 z 12.5 include_merged
57chop volume 1 with volume 10
58webcut volume 11 with plane surface 113
59# Delete surface defining crack plane
62#Creating Loading Keys (Interstitial)
63create curve location 0 0 0 location 0 138 0
64create curve location 0 138 0 location 138 138 0
65create curve location 138 138 0 location 138 101 0
66create curve location 0 0 0 location 37 0 0
67create curve location at vertex 272 direction 1 1 0 length 55.6777849
68create curve location at vertex 270 direction -1 -1 0 length 55.6777849
69create curve location at vertex 276 direction 1 -1 0 length 34
70create curve location at vertex 274 direction 1 -1 0 length 34
71create curve vertex 278 280
72Create surface curve 345 346 347 348 349 350 351 352 353
73sweep surface 137 perpendicular distance 100.3
74align Volume 14 surface 145 with surface 64
75align Volume 14 surface 144 with surface 124
76Volume 14 copy reflect y
77Volume 14 copy reflect x
78Volume 16 copy reflect y
80# Creating Cross head plate for loading
82align Volume 18 surface 184 with surface 159
83move Volume 18 General location between location surface 159 location surface 170 except x z include_merged
85# Creating extra vertices for loadpath
86create vertex on curve 453 midpoint
87create vertex on curve 457 midpoint
93###### MATERIAL PROPERTIES ########################
95## Graphite Brick Slice
96block 1 volume 11 12 13
97block 1 name "MAT_ELASTIC_Graphite"
98block 1 attribute count 10
99#Youngs Modulus E=10.9GPa
100#Applied Youngs Modulus = 10900*1e-4
101block 1 attribute index 1 1.09
103block 1 attribute index 2 0.2
105## Hardened steel keys
106block 2 volume 18 14 17 15 16
107block 2 name "MAT_ELASTIC_STEEL"
108block 2 attribute count 10
109#Youngs Modulus E=210GPa
110#Applied Youngs Modulus = 210000*1e-4
111block 2 attribute index 1 21
113block 2 attribute index 2 0.
115####### BOUNDARY CONDITIONS ######################
117Create Displacement name ' ' on surface 138 148 dof 1 dof 2 dof 3 fix 0
119####### LOADING SCENARIO ########################
121# BF420B Failed at a load of approximately 6200N
122# Apply load either by force or pressure Hash (#) out the commands that
125#Apply load as pressure P=F/A=6200/62400
126#Create Pressure on surface 186 magnitude 1
128#Apply load as a force Ff=6200N
129#create force on surface 186 force value 6.2e-4 direction x
131######## FRACTURE CONSTRAINTS ####################
133# Create Block Set to plot load vs dsplacement graphts
134block 3 vertex 347 350 354 351 346 355
135block 3 name 'LoadPath'
137# Creating Nodesets and Sidesets for fracture constraints
139# 101 - Vertices - Not crack
140nodeset 101 vertex all
141nodeset 101 vertex 257 258 259 260 remove
143# 100 - Bounding Edges - Not crack
145sideset 100 curve 329 330 331 332 343 335 341 336 313 315 remove
146sideset 100 curve 241 12 remove
148# 102 - Bounding Surfaces - Not crack
149sideset 102 surface all
150sideset 102 surface 127 130 134 11 remove
153sideset 10200 surface 11
156sideset 200 surface 127
164move surface 212 location surface 186 include_merged
166create force on surface 214 force value 6.2e-4 direction x
169###### MESH DEFINITION ######################
170volume all scheme Tetmesh
172volume all size auto factor 7
173volume 11 13 size auto factor 7
174# Crack Mesh refinement
175#curve 329 interval 15
184###### SAVE MODEL ########################
186# Adapt this to the file and directory you wish to save
188save as "/projects/symphonyb/MOFEM_Dev/model dev/HNB_Brick/HNB_BF420B/Test_BF420B.cub" overwrite
191###### END OF FILE #########################