!Kontakt thermisch
!Schätzing, 8.4.2014
!

finish  $/clear
*abbr,tempera,/input,tempera,txt

abmx=1        !Abmessung in x
abmy=1        !Abmessung in y
abmz=0.2      !Abmessung in z

/prep7

et,1,solid226,10
et,2,targe170
et,3,conta174,2
r,2
rmore
rmore,,100.0  !R14 TCC Thermal contact conductance

mp,kxx,1,1
mp,kxx,2,5

!----Geometrie-----
block,0,abmx,0,abmy,0,abmz
block,0,abmx,0,abmy,abmz,abmz+abmz

/view,,1,1,1

!----Vernetzung-------
mat,1
esize,,3
vmesh,1
mat,2
esize,,5
vmesh,2


esel,s,mat,,1
nsle,s,1
nsel,r,loc,z,abmz
type,2
real,2
esurf

esel,s,mat,,2
nsle,s,1
nsel,r,loc,z,abmz
type,3
esurf


!----Last------
nsel,s,loc,z,abmz+abmz
d,all,temp,1000

nsel,s,loc,z,0
d,all,temp,0

!-------Lösung-------
allsel
/solu
solve

!-------Auswertung-----------
/post1
/edge,,1
/plopts,minm,0
plns,temp