!!! Linien und Nodes fuer Ausgabe selektieren

lsel,s,line,,10,12,1,1
nsll,s,1

*get,n_anz,node,,count
*get,n_min,node,,num,min
*get,n_sets,active,,set,nset

!!! Temperaturverlauf entlang der Oberflaeche fuer jeden Zeitpunkt

set,first
*CFOPEN,hyp_kontur_t,dat
ztitle1='ZONE '
ztitle2='s"'
*vwrite,'VARIABLES="time" "x" "y" "theta"'
%C
*do,i,1,n_sets,1
  n_arb=n_min
  *get,time,active,,set,time
  *vwrite,ztitle1,'T="t=',time,ztitle2
  (A5,A5,E10.5,A2)
  *do,j,1,n_anz,1
    x=ny(n_arb)
    y=nx(n_arb)
    temp=temp(n_arb)
!!!    *get,hflux,node,n_arb,hflu <-- nur in Flotran?
    *VWRITE,time,x,y,temp
    (E10.5,2X,E20.15,2X,E20.15,2X,E20.15)
    n_arb=ndnext(n_arb)
  *enddo
  set,next
*enddo
*CFCLOSE,hyp_kontur_t,dat

!!! zeitlicher Temperaturverlauf fuer jeden Knotenpunkt

*CFOPEN,hyp_kontur_x,dat
ztitle1='ZONE '
ztitle2='mm"'
*vwrite,'VARIABLES="time" "x" "y" "theta"'
%C

n_arb=n_min
*do,i,1,n_anz,1
  x=ny(n_arb)
  y=nx(n_arb)
  *vwrite,ztitle1,'T="x=',x,ztitle2
  (A5,A5,E10.5,A3)
  set,first
  *do,j,1,n_sets,1
    *get,time,active,,set,time  
    temp=temp(n_arb)
    *VWRITE,time,x,y,temp
    (E10.5,2X,E20.15,2X,E20.15,2X,E20.15)
    set,next
  *enddo
  n_arb=ndnext(n_arb)
*enddo
*CFCLOSE,hyp_kontur_x,dat