FINISH /CLEAR,NOSTART /filname,therm_1d /PREP7 LENGTH=1 HEIGHT=LENGTH THICK=HEIGHT esize=LENGTH/3 area=HEIGHT*THICK /com, material:-1 dccstinter_1=area*1 TB,THERM,1,,,spht TBDATA,1,6e-04 TB,DENS,1 TBDATA,1,1 TB,THERM,1,,,cond TBFIELD,TIME,0.5 TBDATA,1,6 TBFIELD,TIME,1.0 TBDATA,1,7 TBFIELD,TIME,1.5 TBDATA,1,8 TBFIELD,TIME,2.0 TBDATA,1,9 TBFIELD,TIME,2.5 TBDATA,1,10 TBFIELD,TIME,3.0 TBDATA,1,15 /com, geometry and meshing ET,1,link33 r,1,area k,1,0,0,0 k,2,LENGTH, l,1,2 esize,esize type,1 real,1 mat,1 lmesh,1 IC,ALL,TEMP,0 FINISH /SOLU, ANTYPE,TRANS nsel,s,loc,x,LENGTH nsel,a,loc,x,0 d,all,temp,100 allsel,all,all OUTRES,ALL,ALL TIME,3 NSUBS,6,6,6 /debug,-3,,,1 solve FINISH