/prep7

csys,1

! ------Materialdaten----------------------------------------------------

mp,c,1,896		! spezifische Waermekapazitaet cp in J/(kg*K)
mp,kxx,1,211		! Waermeleitfaehigkeit, Lamda=W/(m*K) 
mp,dens,1,2700		! Dichte rho in kg/m³

mp,c,2,535		! spezifische Waermekapazitaet cp in J/(kg*K)
mp,kxx,2,57.5		! Waermeleitfaehigkeit, Lamda=W/(m*K)
mp,dens,2,7100		! Dichte rho in kg/m³

! ---------Materialien zu den Elementen--------------------------------

cmsel,s,vto
allsel,below,volu
vatt,1

cmsel,s,vrr
allsel,below,volu
vatt,2

et,1,70
keyopt,1,2,1
keyopt,1,4,0
keyopt,1,7,0
keyopt,1,8,0

alls

type,1
esize,5
mshkey,1
vmesh,all

alls				

et,2,152
keyopt,2,4,1
keyopt,2,5,0
keyopt,2,7,0
keyopt,2,8,1
keyopt,2,9,0	

type,2

cmsel,s,arro		!obere und untere Reibringfläche, Vernetzung mit surf152
cmsel,a,arru		!Knoten selektieren mittels nsla,s,1 und esurf geht nicht
allsel,below,area
aplot
amesh,all
eplot

cmsel,s,aconv		!konvektionsbereiche: Mantel,Oberfläche
nsla,s,1		!Knoten unter den Konvektionsflächen
nplot
cm,nconv,node

cmsel,s,akuehl		!Kühlflächen der Kühlkanäle
nsla,s,1
nplot
cm,nkuehl,node

alls

esel,s,type,,2
nsle,s,1
nplot
cm,nhf,node

/solu

antype,trans 
autots,on
outres,all,all
tintp,,,,1.0
timint,off
time,1e-6

cmsel,s,aconv
allsel,below,area
nsla,s,1
sf,all,conv,500,20

cmsel,s,akuehl			
allsel,below,area
sfa,all,,conv,1000,20

alls

esel,s,type,,2
nsle,s,1
sf,all,hflux,0

alls

solve	

timint,on
time,7
deltim,0.03,0.01,1.0

alls

esel,s,type,,2
nsle,s,1
sf,all,hflux,1628803.4	!W/m²

alls

kbc,1

solve	

time,100
deltim,0.2,0.1,2.0

alls

cmsel,s,aconv
cmsel,a,akuehl
allsel,below,area
nsla,s,1
sf,all,conv,100,20

alls

esel,s,type,,2
nsle,s,1
sf,all,hflux,0

alls

solve