diff --git a/RBBGCMuso/R/plotMuso.R b/RBBGCMuso/R/plotMuso.R
index 8d908b3..2976e47 100644
--- a/RBBGCMuso/R/plotMuso.R
+++ b/RBBGCMuso/R/plotMuso.R
@@ -353,25 +353,30 @@ compareMuso <- function(settings=NULL,parameters, variable=1, calibrationPar=NUL
 
 saveAllMusoPlots <- function(settings=NULL, plotName = ".png",
                              silent = TRUE, type = "line", outFile = "annual.csv",
-                             colour = NULL, skipSpinup = FALSE){
+                             colour = "blue", skipSpinup = FALSE){
 
     if(is.null(settings)){
         settings <- setupMuso()
     }
-    
+
     dailyVarCodes <- settings$dailyVarCodes
     annualVarCodes <-settings$annualVarCodes
     outputVars <- unlist(settings$outputVars[[1]])
     musoData <- calibMuso(settings = settings, prettyOut = TRUE, silent = silent, skipSpinup = skipSpinup)
+    musoData$date<- as.Date(musoData$date,"%d.%m.%Y")
     for(i in seq_along(dailyVarCodes)){
         bases <- ggplot(data = musoData, mapping = aes_string(x = "date", y = outputVars[i]))
         object <-ifelse(type == "line",paste0("geom_line(colour = '",colour,"')"),
                                   ifelse(type == "point",paste0("geom_line(colour = ",colour,")"),
                                          stop("The")))
         outPlot <- bases + eval(parse(text = object)) + theme_classic() + theme(axis.title.x=element_blank())
-        ggsave(paste0("daily-",dailyVarCodes[i],plotName),outPlot)
+        imName <- paste0("daily-",dailyVarCodes[i],plotName)
+        cat(sprintf("Saving daily output image of %s as %s\n",outputVars[i],imName))
+        suppressMessages(ggsave(imName, outPlot))
+    }
+    if(settings$normOutputFlags["annual"]!=2){
+        return("Annual output graphs was not saved (no annual output from the model)")
     }
-    
     musoYData <- getyearlyout(settings)
     write.csv(musoYData,paste0(settings$outputNames[[2]],outFile))
      for(i in seq_along(annualVarCodes)){
diff --git a/RBBGCMuso/R/setupMuso.R b/RBBGCMuso/R/setupMuso.R
index ad7d2f5..ef50220 100644
--- a/RBBGCMuso/R/setupMuso.R
+++ b/RBBGCMuso/R/setupMuso.R
@@ -268,6 +268,14 @@ setupMuso <- function(executable=NULL,
                 as.numeric(unlist(strsplit(inFile[grep(key,inFile,perl=TRUE)+n],split = "\\s+", useBytes = TRUE))[1])
             }
     }
+    
+    normOutputFlags <- c(
+        daily=searchBellow(iniFiles[[2]], "OUTPUT_CONTROL",stringP=FALSE,n=2),
+        annual=searchBellow(iniFiles[[2]], "OUTPUT_CONTROL",stringP=FALSE,n=5))
+    if(normOutputFlags[1]!=1){
+        warning("You should set your daily output flag to 1 (binary) RBBRMuso work only with binary output...")
+    }
+    searchBellow(iniFiles[[2]], "OUTPUT_CONTROL",stringP=FALSE,n=5)
     soilFile <- NULL
     if(version >=6){
         soilFiles <- tryCatch(sapply(iniFiles,function(x){(searchBellow(x,"SOIL_FILE"))}),error = function(e){""})
@@ -305,7 +313,8 @@ setupMuso <- function(executable=NULL,
                     dailyVarCodes= gsub("\\s.*","",dailyVarCodes),
                     annualVarCodes = gsub("\\s.*","",annualVarCodes),
                     dailyOutputTable=dailyOutputTable,
-                    annualOutputTable=annualOutputTable
+                    annualOutputTable=annualOutputTable,
+                    normOutputFlags=normOutputFlags 
                     )
 
     # if(getOption("RMuso_version")==6){