pc_read_var,obj=obj,variables=['tt'],/magic,/trimall
print,float(n_elements(where(obj.tt lt 420.)))/float(n_elements(obj.tt))
END