From 4b23d23d7c7d7a660f25c8645ea658bdf4581745 Mon Sep 17 00:00:00 2001
From: Artur Glavic <artur.glavic@psi.ch>
Date: Thu, 16 Mar 2023 10:27:14 +0100
Subject: [PATCH] Add a beamstop on the down-stream wall

---
 e2-estia.i                | 6 +++---
 geometry/estia_cave.i     | 4 +++-
 geometry/estia_surfaces.i | 8 +++++++-
 3 files changed, 13 insertions(+), 5 deletions(-)

diff --git a/e2-estia.i b/e2-estia.i
index 2054b90..99a2a16 100644
--- a/e2-estia.i
+++ b/e2-estia.i
@@ -200,7 +200,7 @@ ext:n 0 276r $ in monolith
       0 146r 0.75v2 8r 0.75v3 4r $CPC1+2
       0 28r 0.75v3 4r $ bunker wall
       0 37r 0.75v3 7r $ BWC
-      0 273r
+      0 274r
 c exponential transform reference vectors: origin, VS, shutter
 vect v1 0 0 0 v2 1114.8 -1.75 0.5 v3 2137 -1.25 -12.5
 c forced collisions in neutron guides
@@ -211,7 +211,7 @@ fcl:n 0 276r $ in monolith
       0 13r -1.0 6r $ NFGA
       0 206r -1 $ Glass in Selene 1
       0 54r -1 7r $ S1 back plate and mineral cast in universe
-      0 192r
+      0 193r
 c 
 c -----------------------------------------------------------
 c -------------------------------------------------------
@@ -228,7 +228,7 @@ c random number generator options
 rand gen=2 seed=29976355590901 $ default 19073486328125
 c histp
 mode  n p h / z $ neutron, photon, proton, pi+, pi0
-imp:n,p,h,/,z 1 276r 0 0 1 824r
+imp:n,p,h,/,z 1 276r 0 0 1 825r
 c Reduce model size for WWG runs until earlier stages of the model:
 c void 201255 201257 203123 $ void cells downstream of BBG
 c imp:n,p,h,/,z 1 276r 0 0 1 323r 0 1 0 1 34r 0 1 414r $ zero for above
diff --git a/geometry/estia_cave.i b/geometry/estia_cave.i
index a4b988e..33b56dc 100644
--- a/geometry/estia_cave.i
+++ b/geometry/estia_cave.i
@@ -175,7 +175,7 @@ c wall level air
 210536   4 -1.2e-3   ((100059 -210102   -208642 -210115   210132 -210135 
                      #209900 #210609                    210142):
                       (210102 -210103   -210404)
-                     ) #210610
+                     ) #210610 #210623
 210537   4 -1.2e-3   (
             (100059 -210102    210115 (-210117:-210333)   210137 -210135
                       #(210115 -210116 -210330 -210331) 210321):
@@ -257,6 +257,8 @@ c Access hatch items
                     #(-210433 210445 -210415 210441 -210442)
 c Mirrobor on safety door next to Selene 2
 210622  17  -1.36   100059 -210102    210407 -210408    -210301 -208622
+c Mirrobor beamstop on down-stream wall
+210623  17  -1.36   210600 -210115    210601 -210602    210603 -210604
 c
 c
 c visualize ESS 2m source term (comment for real runs)
diff --git a/geometry/estia_surfaces.i b/geometry/estia_surfaces.i
index 6fc5266..493461d 100644
--- a/geometry/estia_surfaces.i
+++ b/geometry/estia_surfaces.i
@@ -466,7 +466,7 @@ c wall breakthrough
 208224 p 0.0 0.0 -1.0 50.0
 c  Wall E01 side for cabinets
 208231 py 308
-208232 py 318
+208232 py 310
 c  New Gemoetry
 c  SKADI wall                     
 c  Sides                     
@@ -875,6 +875,12 @@ c  Hatch SEE Chicane
 c             
 c  Shared Wall           
 210500  px        3629.979 
+c Beamstop, 2mm mirrobor square
+210600  px   4319.595 
+210601  py    -25.0
+210602  py     25.0
+210603  pz    -55.0
+210604  pz     -5.0
 c Shutter geometry
 c outer boundary
 220000  22 px    -12.5