;$Id: wstratification.pro,v 1.1 2019/01/02 07:36:22 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