*heading EC24DFD3 - TEMP DEP FILM COEFFICIENT THROUGH SUBROUTINE FILM, DC2D4 *restart,write,f=100 *node 1, 0.0, 0.0 11,0.0, 0.1 12,0.01, 0.0 22,0.01, 0.1 *ngen,nset=nall 1,11 12,22 *element,type=dc2d4 1, 1,12,13,2 *elgen,elset=eall 1, 10, 1 *solid section,elset=eall,material=mat *material,name=mat *conductivity 1.40, *specific heat 260.0, *density 7800.0, *initial conditions,type=temperature nall,0.0 *surface,name=surf_3 10, s3 *step,inc=1000,unsymm=yes *heattransfer,deltmx=20.0 100.,3600.,,100.0 *sfilm surf_3,fnu *dflux eall,s2,0.0 eall,s4,0.0 1,s1,0.0 *elprint,f=100,position=centroidal coord,temp,hfl *nodeprint,f=100 nt11, *output,field,freq=4 *node output nt,rfl *element output,position=centroidal coord,temp,hfl *element output sinktemp, filmcoef *endstep