;$Id: wstratification.pro,v 1.3 2015/12/22 14:36:24 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
;
cwd,run
file='stratification.new'
wtable3,file,z,llnrho,ss,label=run
print,'written: '+run
END