Minor changes to scenario_config_coupled

Created by: dklein-pik

scripts/utils/choose_slurmConfig.R

-#######################################################################
-############### Select slurm partitiion ###############################
-#######################################################################
-
-get_line <- function(){
-  # gets characters (line) from the terminal or from a connection
-  # and returns it
-  if(interactive()){
-    s <- readline()
-  } else {
-    con <- file("stdin")
-    s <- readLines(con, 1, warn=FALSE)
-    on.exit(close(con))
-  }
-  return(s);
-}
-
-choose_slurmConfig <- function() {
-  
-  slurm <- suppressWarnings(ifelse(system2("srun",stdout=FALSE,stderr=FALSE) != 127, TRUE, FALSE))
-  if (slurm) {
-    modes <- c(" SLURM standby ",
-               " SLURM priority"
-               )
-
-    cat("\nCurrent cluster utilization:\n")
-    system("sclass")
-    cat("\n")
-
-    cat("\nPlease choose run submission type:\n")
-    cat(paste(1:length(modes), modes, sep=": " ),sep="\n")
-    cat("Number: ")
-    identifier <- get_line()
-    identifier <- as.numeric(strsplit(identifier,",")[[1]])
-    comp <- switch(identifier,
-                   "1" = "--qos=standby --nodes=1 --tasks-per-node=1"   ,
-                   "2" = "--qos=priority --nodes=1 --tasks-per-node=1"  )
-                  
-    if(is.null(comp)) stop("This type is invalid. Please choose a valid type")
-  } else {
-    comp <- "direct"
-  }
-
-  return(comp)
-}