;$Id: wstratification.pro,v 1.1 2015/12/02 02:56:53 brandenb Exp $
;
;  write a new stratification file, but now based on the
;  average state of any run.
;
llnrho=haver(var.lnrho)
ss=haver(var.ss)
z=var.z
;
file='stratification.new'
wtable3,file,z,llnrho,ss
END