;$Id: wstratification.pro,v 1.1 2014/12/29 23:49:33 brandenb Exp $
;
;  write a new stratification file, but now based on the
;  average state of any run.
;
llnrho=haver(var.lnrho) ;-alog(1e6)
llnTT=haver(var.lnTT)
z=var.z
;
file='stratification.new'
wtable3,file,z,llnrho,llnTT
END