Add in autoburning functions for inversion

[serbinsh]

I just stole from pecan here: https://github.com/TESTgroup-BNL/canopyRT/blob/main/Rscripts/functions/autoburnin.R

ANd source these in my scripts using rrtm. Could just embed them as rrtm functions correct?