summaryrefslogtreecommitdiff
path: root/Donjon/data/ssrcell_thm_proc
diff options
context:
space:
mode:
Diffstat (limited to 'Donjon/data/ssrcell_thm_proc')
-rw-r--r--Donjon/data/ssrcell_thm_proc/HOM_chan.c2m128
-rw-r--r--Donjon/data/ssrcell_thm_proc/HOM_fmap.c2m147
-rw-r--r--Donjon/data/ssrcell_thm_proc/_COMPO.txt3
3 files changed, 278 insertions, 0 deletions
diff --git a/Donjon/data/ssrcell_thm_proc/HOM_chan.c2m b/Donjon/data/ssrcell_thm_proc/HOM_chan.c2m
new file mode 100644
index 0000000..35d9aa6
--- /dev/null
+++ b/Donjon/data/ssrcell_thm_proc/HOM_chan.c2m
@@ -0,0 +1,128 @@
+*=====================================================================*
+* FILE: HOM_chan.c2m
+* TYPE: DRAGON/DONJON proc file
+* AUTHOR: Cristian Garrido Tamm (cristian.garrido@idom.com)
+* PURPOSE: TODO
+* CREATION DATE: Fri 07 Apr 2023 08:47:43 PM CEST
+* LAST MODIFIED: Fri 07 Apr 2023 09:32:36 PM CEST
+*---------------------------------------------------------------------*
+* INPUT:
+* TYPE | NAME | DEFINITION
+* ------------|---------|-----------------------------
+* REAL | Hside | Side of Hexagon (cm)
+* REAL | maxh | total channel height (cm)
+* REAL | Nz | Number of Axial Nodes
+* OUTPUT:
+* TYPE | NAME | DEFINITION
+* ------------|---------|-----------------------------
+* LINKED_LIST | GEOM | Dummy output linked list
+* CALL:
+* GEOM := HOM_chan ::
+* <<Hside>> <<maxh>> <<Nz>> ;
+*=====================================================================*
+*---
+* RECOVER INPUT DATA STRUCTURES
+*---
+
+PARAMETER GEOM ::
+ EDIT 0
+ ::: LINKED_LIST GEOM ;
+ ;
+*---
+* RECOVER INPUT PARAMETERS
+*---
+REAL Hside maxh ;
+:: >>Hside<< >>maxh<< ;
+*---
+* DEFINE MODULES
+*---
+MODULE END: GEO: ;
+*---
+* DEFINE DATA STRUCTURES
+*---
+
+*---
+* DEFINE VARIABLES
+*---
+* Constants
+STRING DOUBLE_LINE :=
+"====================================================================" ;
+STRING SINGLE_LINE :=
+"--------------------------------------------------------------------" ;
+LOGICAL True False := $True_L $False_L ;
+STRING FILENAME := 'HOM_chan' ;
+* Options
+INTEGER int ;
+REAL rea ;
+STRING str ;
+
+*---
+* BEGIN CALCULATION
+*---
+ECHO DOUBLE_LINE ;
+ECHO 'BEGIN PROCEDURE ' FILENAME ;
+ECHO DOUBLE_LINE ;
+
+REAL z1 := maxh 20.0 / ;
+REAL z2 := maxh 20.0 / z1 + ;
+REAL z3 := maxh 20.0 / z2 + ;
+REAL z4 := maxh 20.0 / z3 + ;
+REAL z5 := maxh 20.0 / z4 + ;
+REAL z6 := maxh 20.0 / z5 + ;
+REAL z7 := maxh 20.0 / z6 + ;
+REAL z8 := maxh 20.0 / z7 + ;
+REAL z9 := maxh 20.0 / z8 + ;
+REAL z10 := maxh 20.0 / z9 + ;
+REAL z11 := maxh 20.0 / z10 + ;
+REAL z12 := maxh 20.0 / z11 + ;
+REAL z13 := maxh 20.0 / z12 + ;
+REAL z14 := maxh 20.0 / z13 + ;
+REAL z15 := maxh 20.0 / z14 + ;
+REAL z16 := maxh 20.0 / z15 + ;
+REAL z17 := maxh 20.0 / z16 + ;
+REAL z18 := maxh 20.0 / z17 + ;
+REAL z19 := maxh 20.0 / z18 + ;
+REAL z20 := maxh 20.0 / z19 + ;
+
+GEOM := GEO: :: HEXZ 1 20
+ EDIT 3
+ Z- VOID Z+ VOID
+ HBC COMPLETE REFL
+ SIDE <<Hside>>
+ SPLITL 1
+ MESHZ 0.0 <<z1>> <<z2>> <<z3>> <<z4>> <<z5>> <<z6>> <<z7>> <<z8>>
+ <<z9>> <<z10>> <<z11>> <<z12>> <<z13>> <<z14>> <<z15>> <<z16>>
+ <<z17>> <<z18>> <<z19>> <<z20>>
+ MIX
+ PLANE 1
+ 1
+ PLANE 2 SAME 1
+ PLANE 3 SAME 1
+ PLANE 4 SAME 1
+ PLANE 5 SAME 1
+ PLANE 6 SAME 1
+ PLANE 7 SAME 1
+ PLANE 8 SAME 1
+ PLANE 9 SAME 1
+ PLANE 10 SAME 1
+ PLANE 11 SAME 1
+ PLANE 12 SAME 1
+ PLANE 13 SAME 1
+ PLANE 14 SAME 1
+ PLANE 15 SAME 1
+ PLANE 16 SAME 1
+ PLANE 17 SAME 1
+ PLANE 18 SAME 1
+ PLANE 19 SAME 1
+ PLANE 20 SAME 1
+ ;
+
+*---
+* END CALCULATION
+*---
+ECHO DOUBLE_LINE ;
+ECHO 'END PROCEDURE ' FILENAME ;
+ECHO DOUBLE_LINE ;
+
+END: ;
+QUIT .
diff --git a/Donjon/data/ssrcell_thm_proc/HOM_fmap.c2m b/Donjon/data/ssrcell_thm_proc/HOM_fmap.c2m
new file mode 100644
index 0000000..e1f7bfe
--- /dev/null
+++ b/Donjon/data/ssrcell_thm_proc/HOM_fmap.c2m
@@ -0,0 +1,147 @@
+*=====================================================================*
+* FILE: HOM_fmap.c2m
+* TYPE: DRAGON/DONJON proc file
+* AUTHOR: Cristian Garrido Tamm (cristian.garrido@idom.com)
+* PURPOSE: TODO
+* CREATION DATE: Fri 07 Apr 2023 09:58:02 PM CEST
+* LAST MODIFIED: Sat 08 Apr 2023 01:08:29 PM CEST
+*---------------------------------------------------------------------*
+* INPUT:
+* TYPE | NAME | DEFINITION
+* ------------|---------|-----------------------------
+* REAL | reap | Dummy real input parameter
+* INTEGER | intp | Dummy integer input parameter
+* STRING | strp | Dummy string input parameter
+* OUTPUT:
+* TYPE | NAME | DEFINITION
+* ------------|---------|-----------------------------
+* LINKED_LIST | FMAP | Fuel map output linked list
+* CALL:
+* FMAP := HOM_fmap ::
+* <<intp>> <<reap>> <<strp>> ;
+*=====================================================================*
+*---
+* RECOVER INPUT DATA STRUCTURES
+*---
+PARAMETER FMAP MATEX ::
+ EDIT 0
+ ::: LINKED_LIST FMAP MATEX ;
+ ;
+*---
+* RECOVER INPUT PARAMETERS
+*---
+REAL Hside maxh ;
+:: >>Hside<< >>maxh<< ;
+REAL powi Tfuel Tcool Tmod ;
+:: >>powi<< >>Tfuel<< >>Tcool<< >>Tmod<< ;
+REAL Mass ;
+:: >>Mass<< ;
+*---
+* DEFINE MODULES
+*---
+MODULE END: RESINI: UTL: ;
+*---
+* DEFINE DATA STRUCTURES
+*---
+*---
+* DEFINE VARIABLES
+*---
+* Constants
+STRING DOUBLE_LINE :=
+"====================================================================" ;
+STRING SINGLE_LINE :=
+"--------------------------------------------------------------------" ;
+LOGICAL True False := $True_L $False_L ;
+STRING FILENAME := 'HOM_fmap' ;
+* Options
+INTEGER int ;
+REAL rea ;
+STRING str ;
+
+*---
+* BEGIN CALCULATION
+*---
+ECHO DOUBLE_LINE ;
+ECHO 'BEGIN PROCEDURE ' FILENAME ;
+ECHO DOUBLE_LINE ;
+
+REAL z1 := maxh 20.0 / ;
+REAL z2 := maxh 20.0 / z1 + ;
+REAL z3 := maxh 20.0 / z2 + ;
+REAL z4 := maxh 20.0 / z3 + ;
+REAL z5 := maxh 20.0 / z4 + ;
+REAL z6 := maxh 20.0 / z5 + ;
+REAL z7 := maxh 20.0 / z6 + ;
+REAL z8 := maxh 20.0 / z7 + ;
+REAL z9 := maxh 20.0 / z8 + ;
+REAL z10 := maxh 20.0 / z9 + ;
+REAL z11 := maxh 20.0 / z10 + ;
+REAL z12 := maxh 20.0 / z11 + ;
+REAL z13 := maxh 20.0 / z12 + ;
+REAL z14 := maxh 20.0 / z13 + ;
+REAL z15 := maxh 20.0 / z14 + ;
+REAL z16 := maxh 20.0 / z15 + ;
+REAL z17 := maxh 20.0 / z16 + ;
+REAL z18 := maxh 20.0 / z17 + ;
+REAL z19 := maxh 20.0 / z18 + ;
+REAL z20 := maxh 20.0 / z19 + ;
+
+ECHO "input Matex" ;
+UTL: MATEX :: DIR IMPR STATE-VECTOR * ;
+
+FMAP MATEX := RESINI: MATEX ::
+ EDIT 50000
+ ::: GEO: HEXZ 1 20
+ EDIT 3000
+ Z- VOID Z+ VOID
+ HBC COMPLETE REFL
+ SIDE <<Hside>>
+ SPLITL 1
+ MESHZ 0.0 <<z1>> <<z2>> <<z3>> <<z4>> <<z5>> <<z6>> <<z7>> <<z8>>
+ <<z9>> <<z10>> <<z11>> <<z12>> <<z13>> <<z14>> <<z15>> <<z16>>
+ <<z17>> <<z18>> <<z19>> <<z20>>
+ MIX
+ PLANE 1
+ 1
+ PLANE 2 SAME 1
+ PLANE 3 SAME 1
+ PLANE 4 SAME 1
+ PLANE 5 SAME 1
+ PLANE 6 SAME 1
+ PLANE 7 SAME 1
+ PLANE 8 SAME 1
+ PLANE 9 SAME 1
+ PLANE 10 SAME 1
+ PLANE 11 SAME 1
+ PLANE 12 SAME 1
+ PLANE 13 SAME 1
+ PLANE 14 SAME 1
+ PLANE 15 SAME 1
+ PLANE 16 SAME 1
+ PLANE 17 SAME 1
+ PLANE 18 SAME 1
+ PLANE 19 SAME 1
+ PLANE 20 SAME 1
+ ;
+NHNAME C00A01
+NCOMB ALL
+INST-BVAL SAME 0.0
+BUNDLE-POW SAME 10.0
+ADD-PARAM PNAME 'T-FUEL' PARKEY 'TF' GLOBAL
+ADD-PARAM PNAME 'T-COOL' PARKEY 'TC' GLOBAL
+ADD-PARAM PNAME 'T-MODE' PARKEY 'TM' GLOBAL
+SET-PARAM 'T-FUEL' <<Tfuel>>
+SET-PARAM 'T-COOL' <<Tcool>>
+SET-PARAM 'T-MODE' <<Tmod>>
+*FUEL WEIGHT <<Mass>>
+;
+
+*---
+* END CALCULATION
+*---
+ECHO DOUBLE_LINE ;
+ECHO 'END PROCEDURE ' FILENAME ;
+ECHO DOUBLE_LINE ;
+
+END: ;
+QUIT .
diff --git a/Donjon/data/ssrcell_thm_proc/_COMPO.txt b/Donjon/data/ssrcell_thm_proc/_COMPO.txt
new file mode 100644
index 0000000..677f660
--- /dev/null
+++ b/Donjon/data/ssrcell_thm_proc/_COMPO.txt
@@ -0,0 +1,3 @@
+version https://git-lfs.github.com/spec/v1
+oid sha256:fb24d0cef268bad01e93a5b817469ed66acd4cec453327d723bb9c7bc2ad0552
+size 199310181
generated by cgit v1.2.3 (git 2.46.0) at 2026-02-16 19:00:47 +0000