```
TALK=T;RUN(1,1)
DISPLAY
This case modeling a heat exchange by heat conductivity about
a filament. The filament is simulated by the cylinder shape with
properties of steel. It is surrounded by air. The air temperature
has constant significance 18 degree at all domain boundaries.

The filament is heated up by a electrical current which occurs
in the conductor at presence the filament votage.
The emitted heat is calculated as the filament votage divided
on thermal resistance which is function of the conductor
temperature.

Source = Voltage^2 / Resistance
where
Resistance = 0.1 * Temperature

The heating source for the HEATING object is set by In-Form as
per unit volume

(SOURCE of TEM1 at HEATING is 220^2/(0.1*TEM1) with VOLU)

The Q1 contains PHOTON USE commands
ENDDIS
PHOTON USE
p;;;

con tem1 z 1 fi;0.0001
enduse
************************************************************
Group 1. Run Title and Number
************************************************************
************************************************************

TEXT(Heat exchange about a steel conductor   )

************************************************************
************************************************************

IRUNN = 1 ;LIBREF = 0
************************************************************
Group 2. Time dependence
************************************************************
Group 3. X-Direction Grid Spacing
CARTES = T
NX = 55
XULAST =0.1
XFRAC(1)=0.018 ;XFRAC(2)=0.036
XFRAC(3)=0.054 ;XFRAC(4)=0.072
XFRAC(5)=0.09 ;XFRAC(6)=0.108
XFRAC(7)=0.126 ;XFRAC(8)=0.144
XFRAC(9)=0.162 ;XFRAC(10)=0.18
XFRAC(11)=0.198 ;XFRAC(12)=0.216
XFRAC(13)=0.234 ;XFRAC(14)=0.252
XFRAC(15)=0.27 ;XFRAC(16)=0.288
XFRAC(17)=0.306 ;XFRAC(18)=0.324
XFRAC(19)=0.342 ;XFRAC(20)=0.36
XFRAC(21)=0.378 ;XFRAC(22)=0.396
XFRAC(23)=0.414 ;XFRAC(24)=0.432
XFRAC(25)=0.45 ;XFRAC(26)=0.466667
XFRAC(27)=0.483333 ;XFRAC(28)=0.5
XFRAC(29)=0.516667 ;XFRAC(30)=0.533333
XFRAC(31)=0.55 ;XFRAC(32)=0.56875
XFRAC(33)=0.5875 ;XFRAC(34)=0.60625
XFRAC(35)=0.625 ;XFRAC(36)=0.64375
XFRAC(37)=0.6625 ;XFRAC(38)=0.68125
XFRAC(39)=0.7 ;XFRAC(40)=0.71875
XFRAC(41)=0.7375 ;XFRAC(42)=0.75625
XFRAC(43)=0.775 ;XFRAC(44)=0.79375
XFRAC(45)=0.8125 ;XFRAC(46)=0.83125
XFRAC(47)=0.85 ;XFRAC(48)=0.86875
XFRAC(49)=0.8875 ;XFRAC(50)=0.90625
XFRAC(51)=0.925 ;XFRAC(52)=0.94375
XFRAC(53)=0.9625 ;XFRAC(54)=0.98125
XFRAC(55)=1.
************************************************************
Group 4. Y-Direction Grid Spacing
NY = 55
YVLAST =0.1
YFRAC(1)=0.018 ;YFRAC(2)=0.036
YFRAC(3)=0.054 ;YFRAC(4)=0.072
YFRAC(5)=0.09 ;YFRAC(6)=0.108
YFRAC(7)=0.126 ;YFRAC(8)=0.144
YFRAC(9)=0.162 ;YFRAC(10)=0.18
YFRAC(11)=0.198 ;YFRAC(12)=0.216
YFRAC(13)=0.234 ;YFRAC(14)=0.252
YFRAC(15)=0.27 ;YFRAC(16)=0.288
YFRAC(17)=0.306 ;YFRAC(18)=0.324
YFRAC(19)=0.342 ;YFRAC(20)=0.36
YFRAC(21)=0.378 ;YFRAC(22)=0.396
YFRAC(23)=0.414 ;YFRAC(24)=0.432
YFRAC(25)=0.45 ;YFRAC(26)=0.466667
YFRAC(27)=0.483333 ;YFRAC(28)=0.5
YFRAC(29)=0.516667 ;YFRAC(30)=0.533333
YFRAC(31)=0.55 ;YFRAC(32)=0.56875
YFRAC(33)=0.5875 ;YFRAC(34)=0.60625
YFRAC(35)=0.625 ;YFRAC(36)=0.64375
YFRAC(37)=0.6625 ;YFRAC(38)=0.68125
YFRAC(39)=0.7 ;YFRAC(40)=0.71875
YFRAC(41)=0.7375 ;YFRAC(42)=0.75625
YFRAC(43)=0.775 ;YFRAC(44)=0.79375
YFRAC(45)=0.8125 ;YFRAC(46)=0.83125
YFRAC(47)=0.85 ;YFRAC(48)=0.86875
YFRAC(49)=0.8875 ;YFRAC(50)=0.90625
YFRAC(51)=0.925 ;YFRAC(52)=0.94375
YFRAC(53)=0.9625 ;YFRAC(54)=0.98125
YFRAC(55)=1.
************************************************************
Group 5. Z-Direction Grid Spacing
PARAB = F
NZ = 1
ZWLAST =0.1
ZFRAC(1)=1.
************************************************************
Group 6. Body-Fitted Coordinates
************************************************************
Group 7. Variables: STOREd,SOLVEd,NAMEd
ONEPHS = T
NAME(149)=PRPS ;NAME(150)=TEM1
* Y in SOLUTN argument list denotes:
* 1-stored 2-solved 3-whole-field
* 4-point-by-point 5-explicit 6-harmonic averaging
SOLUTN(PRPS,Y,N,N,N,N,Y)
SOLUTN(TEM1,Y,Y,Y,N,N,Y)
PRPS = 149
************************************************************
Group 8. Terms & Devices
* Y in TERMS argument list denotes:
* 1-built-in source 2-convection 3-diffusion 4-transient
* 5-first phase variable 6-interphase transport
TERMS(TEM1,N,Y,Y,Y,Y,Y)
DIFCUT =0.5 ;ZDIFAC =1.
GALA = F ;ADDDIF = F
ISOLX = -1 ;ISOLY = -1 ;ISOLZ = -1
************************************************************
Group 9. Properties used if PRPS is not
stored, and where PRPS = -1.0 if it is!
RHO1 =1.189 ;TMP1 =0.
EL1 =0.
TSURR =0. ;TEMP0 =273.
PRESS0 =1.0E+05
DVO1DT =3.41E-03 ;DRH1DP =0.
EMISS =0. ;SCATT =0.
ENUL =1.544E-05 ;ENUT =0.
PRNDTL(TEM1)=-0.0258
PRT(TEM1)=1.
CP1 =1005. ;CP2 =1.
************************************************************
Group 10.Inter-Phase Transfer Processes
************************************************************
Group 11.Initial field variables (PHIs)
FIINIT(PRPS)=-1. ;FIINIT(TEM1)=1.0E-10

PATCH(^OB1 ,INIVAL, 1, 0, 0, 0, 0, 0, 1, 1)
INIT(^OB1 ,PRPS,0. ,111. )
INIT(^OB1 ,TEM1,0. ,18. )
FSWEEP = 1
NAMFI =CHAM
************************************************************
Group 12. Patchwise adjustment of terms
Patches for this group are printed with those
for Group 13.
Their names begin either with GP12 or &
************************************************************
Group 13. Boundary & Special Sources

PATCH(^OD1 ,CELL , 1, 18, 0, 0, 0, 0, 1, 1)
COVAL(^OD1 ,TEM1,In-Form:source - see Grp 19)

PATCH(OB2 ,WWALL , 1, 1, 1, 55, 1, 1, 1, 1)
COVAL(OB2 ,TEM1,1. ,18. )

PATCH(OB3 ,EWALL , 55, 55, 1, 55, 1, 1, 1, 1)
COVAL(OB3 ,TEM1,1. ,18. )

PATCH(OB4 ,SWALL , 1, 55, 1, 1, 1, 1, 1, 1)
COVAL(OB4 ,TEM1,1. ,18. )

PATCH(OB5 ,NWALL , 1, 55, 55, 55, 1, 1, 1, 1)
COVAL(OB5 ,TEM1,1. ,18. )
XCYCLE = F
EGWF = T
WALLCO = GRND2
************************************************************
Group 14. Downstream Pressure For PARAB
************************************************************
Group 15. Terminate Sweeps
LSWEEP = 500 ;ISWC1 = 1
LITHYD = 1 ;LITFLX = 1 ;LITC = 1 ;ITHC1 = 1
SELREF = T
RESFAC =1.0E-03
************************************************************
Group 16. Terminate Iterations
LITER(TEM1)=500
ENDIT(TEM1)=1.0E-20
************************************************************
Group 17. Relaxation
RELAX(PRPS,LINRLX,1.)
RELAX(TEM1,FALSDT,1.0E+09)
OVRRLX =0.
EXPERT = F ;NNORSL = F
************************************************************
Group 18. Limits
VARMAX(PRPS)=1.0E+10 ;VARMIN(PRPS)=-1.0E+10
VARMAX(TEM1)=3000. ;VARMIN(TEM1)=-204.75
************************************************************
Group 19. Data transmitted to GROUND
ISG62 = 1
SPEDAT(SET,DOMAIN,PHASE_1_MAT,I,0)
SPEDAT(SET,SOURCE,TEM1!HEATING,C,=220^2/(0.1*TEM1)!VOLU)
SPEDAT(SET,OBJNAM,^OB1,C,HEATING)
SPEDAT(SET,OBJTYP,^OB1,C,BLOCKAGE)
SPEDAT(SET,HEATING,MATERIAL,R,111.)
SPEDAT(SET,OBJNAM,^OD1,C,HEATING)
SPEDAT(SET,OBJTYP,^OD1,C,BLOCKAGE)
SPEDAT(SET,OBJNAM,!OB2,C,W_WALL)
SPEDAT(SET,OBJTYP,!OB2,C,PLATE)
SPEDAT(SET,OBJNAM,!OB3,C,E_WALL)
SPEDAT(SET,OBJTYP,!OB3,C,PLATE)
SPEDAT(SET,OBJNAM,!OB4,C,S_WALL)
SPEDAT(SET,OBJTYP,!OB4,C,PLATE)
SPEDAT(SET,OBJNAM,!OB5,C,N_WALL)
SPEDAT(SET,OBJTYP,!OB5,C,PLATE)
SPEDAT(SET,FACETDAT,NUMOBJ,I,5)
SPEDAT(SET,MATERIAL,111,L,T)
************************************************************
Group 20. Preliminary Printout
DISTIL = T ;NULLPR = F
NDST = 0
DSTTOL =1.0E-02
EX(PRPS)=1.582 ;EX(TEM1)=20.93
************************************************************
Group 21. Print-out of Variables
INIFLD = F ;SUBWGR = F
* Y in OUTPUT argument list denotes:
* 1-field 2-correction-eq. monitor 3-selective dumping
* 4-whole-field residual 5-spot-value table 6-residual table
OUTPUT(PRPS,Y,N,Y,N,N,N)
OUTPUT(TEM1,Y,N,Y,Y,Y,Y)
************************************************************
Group 22. Monitor Print-Out
IXMON = 41 ;IYMON = 30 ;IZMON = 1
NPRMON = 100000 ;NPRMNT = 1 ;TSTSWP = -1
UWATCH = T ;USTEER = T
HIGHLO = F
************************************************************
Group 23.Field Print-Out & Plot Control
NPRINT = 100000 ;NUMCLS = 5
NXPRIN = 1 ;IXPRF = 25 ;IXPRL = 32
NYPRIN = 1 ;IYPRF = 25 ;IYPRL = 32
IPLTF = 1 ;IPLTL = -1 ;NPLT = -1
ISWPRF = 1 ;ISWPRL = 100000
ITABL = 3 ;IPROF = 1
ABSIZ =0.5 ;ORSIZ =0.4
NTZPRF = 1 ;NCOLPF = 50
ICHR = 2 ;NCOLCO = 45 ;NROWCO = 20
No PATCHes yet used for this Group
************************************************************
Group 24. Dumps For Restarts
SAVE = T ;NOWIPE = F
NSAVE =CHAM
STOP
```