*HEADING
INF LONG FINNED TUBE INSIDE INF LONG TUBE, DC3D8
*PREPRINT,Model=Yes,Echo=No,History=No
******************************************
*PART,NAME=TUBE
*END PART
************
*ASSEMBLY,NAME=TUBE
*INSTANCE,NAME=TUBE,PART=TUBE
*NODE
1,8.,2.,0.
13,32.,2.,0.
181,8.,20.,0.
193,32.,20.,0.
*NGEN,NSET=LHS
1,181,20
*NGEN,NSET=RHS
13,193,20
*NFILL,NSET=ALLNO
LHS,RHS,12
*NCOPY,OLD=ALLNO,SHIFT,MULTIPLE=11,CHANGE=1000,NEW=ALLNN
0.,0.,0.
0.,0.,0.,0.,1.,0.,30.
*NSET,NSET=ALLN
ALLNO,ALLNN
*NSET,NSET=LHS,GEN
1,11001,1000
21,11021,1000
41,11041,1000
61,11061,1000
101,11101,1000
121,11121,1000
141,11141,1000
161,11161,1000
181,11181,1000
*NSET,NSET=RHS,GEN
13,11013,1000
33,11033,1000
53,11053,1000
73,11073,1000
93,11093,1000
113,11113,1000
133,11133,1000
153,11153,1000
173,11173,1000
193,11193,1000
*NSET,NSET=QA_TEST,GEN
81,93
*ELEMENT,TYPE=DC3D8,ELSET=CONDEL
1,1001,1002,1022,1021,1,2,22,21
12,1012,1013,1033,1032,12,13,33,32
11001,1,2,22,21,11001,11002,11022,11021
11012,12,13,33,32,11012,11013,11033,11032
*ELGEN,ELSET=CONDEL
1,9,20,20,11,1000,1000
12,9,20,20,11,1000,1000
81,5,1,1,11,1000,1000
11001,9,20,20
11012,9,20,20
11081,5,1,1
*ELSET,ELSET=QA_TEST,GEN
81,92
*SOLID SECTION,ELSET=CONDEL,MATERIAL=ALUM
********
*ELSET,ELSET=ELHS,GEN
1,11001,1000
21,11021,1000
41,11041,1000
61,11061,1000
101,11101,1000
121,11121,1000
141,11141,1000
161,11161,1000
*ELSET,ELSET=ERHS,GEN
12,11012,1000
32,11032,1000
52,11052,1000
72,11072,1000
92,11092,1000
112,11112,1000
132,11132,1000
152,11152,1000
172,11172,1000
*ELSET,ELSET=EBLOCK,GEN
82,11082,1000
83,11083,1000
84,11084,1000
85,11085,1000
*ELSET,ELSET=EBLOCKT,GEN
85,11085,1000
*END INSTANCE
*surface,NAME=SURF,PROPERTY=PROP
TUBE.ELHS,S4
TUBE.ERHS,S6
TUBE.EBLOCK,S3
TUBE.EBLOCK,S5
TUBE.EBLOCKT,S4
*END ASSEMBLY
***********************************************
*MATERIAL,NAME=ALUM
*CONDUCTIVITY
204., 
*DENSITY
2707., 
*SPECIFIC HEAT
896., 
***  CAVITY DEFINITION
*CAVITY DEFINITION,NAME=CAV3D,AMB=200.
SURF, 
*SURFACE PROPERTY,NAME=PROP
*EMISSIVITY
0.5, 
*PHYSICAL CONSTANTS, STEFAN=5.669E-8,ABSOLUTE ZERO=0.0
***
*INITIAL CONDITIONS,TYPE=TEMPERATURE
TUBE.TUBE.ALLN,300.0
*RESTART,WRITE,FREQ=10
***********************************************
*STEP,INC=20
*HEAT TRANSFER,STEADY STATE
0.05,1.
*CONTROLS, PARAMETERS=FIELD
1.0E-5,
*BOUNDARY
TUBE.TUBE.LHS,11,,1000.0
TUBE.TUBE.RHS,11,,400.00
*RADIATION VIEW,REFLECTION=NO
*NODE PRINT,NSET=TUBE.TUBE.QA_TEST,FREQUENCY=10
NT, 
*NODE FILE,NSET=TUBE.TUBE.QA_TEST,FREQUENCY=10
NT, 
*RADIATION PRINT,FREQUENCY=10
RADFL,VFTOT,FTEMP
*RADIATION FILE,ELSET=TUBE.TUBE.QA_TEST,FREQUENCY=10
RADFL,VFTOT,FTEMP
*VIEWFACTOR OUTPUT,CAVITY=CAV3D
*OUTPUT,FIELD,FREQUENCY=10
*NODE OUTPUT
NT,
*ELEMENT OUTPUT
HFL,
*RADIATION OUTPUT,VARIABLE=ALL
*END STEP