Update diagnose.R

Fixed a bug in dso.oslo <- subset(dse.oslo,is=(1:length(n))[n > 0]) - the dsensemble objects sometimes contain no valid data for single GCMs. This resulted in a halt. Now it removes these results.