diff --git a/modules/Scorecards/R/tmp/ScorecardsMulti.R b/modules/Scorecards/R/tmp/ScorecardsMulti.R
index 85630239ec76222e712eba7609314010ea7643ce..d2812a9dd33725c6efb6b854745f4778681d91b9 100644
--- a/modules/Scorecards/R/tmp/ScorecardsMulti.R
+++ b/modules/Scorecards/R/tmp/ScorecardsMulti.R
@@ -148,7 +148,7 @@ ScorecardsMulti <- function(data, sign, system, reference, var, var.units,
     system.name1 <- sys_dict$System[[system[sys]]]$name 
     system.name <- c(system.name, system.name1)
   }
-  for(ref in 1:length(length)){
+  for(ref in 1:length(reference)) {
     reference.name1 <- sys_dict$Reference[[reference[ref]]]$name
     reference.name <- c(reference.name, reference.name1)
   }
@@ -207,9 +207,6 @@ ScorecardsMulti <- function(data, sign, system, reference, var, var.units,
     ## Find position of mean bias metric to calculate breaks
     if ('mean_bias' %in% metrics) {
       pos_bias <- which(metrics == 'mean_bias')
-      if(var == 'psl'){
-        data[,,pos_bias,,,] <- data[,,pos_bias,,,]/100 ## temporary
-      }
       breaks_bias <- .SCBiasBreaks(Subset(data, along = c('metric','region'), 
                                           indices = list(pos_bias,reg)))
     }
@@ -244,7 +241,7 @@ ScorecardsMulti <- function(data, sign, system, reference, var, var.units,
         sign_sc_9 <- NULL
       }
     }
-    
+ 
     VizScorecard(data = data_sc_9,
                  sign = sign_sc_9,
                  row_dim = model,