sippi_plot_current_model Plots the current model during Metropolis sampling
 
  Call :
    sippi_plot_current_model(mcmc,data,d,m_current,prior,options);