diff --git a/DESCRIPTION b/DESCRIPTION
index 09ee46f..55f240b 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: postprom
 Type: Package
 Title: A Tool for Comparative Analysis of OPEN-PROM Data
-Version: 0.13.9
+Version: 0.13.10
 Authors@R: c(
     person(
       "Michael", "Madianos",
diff --git a/R/reportIndicators.R b/R/reportIndicators.R
index f1e54dc..88abbd1 100644
--- a/R/reportIndicators.R
+++ b/R/reportIndicators.R
@@ -22,6 +22,8 @@ reportIndicators <- function(reports, path, regions, years, blabla_regions) {
   IFullACTV <- calcOutput("IFullACTV", aggregate = TRUE, regionmapping = "regionmappingOPDEV5.csv")
   IFullACTV <- IFullACTV[blabla_regions, years, ]
   
+  unitsPassenger <- getItems(IFullACTV,3)
+  
   IFullACTV <- collapseDim(IFullACTV, dim = 3.2)
   
   if ("World" %in% regions) {
@@ -351,7 +353,13 @@ reportIndicators <- function(reports, path, regions, years, blabla_regions) {
   ActivPassTrnsp <- TRANP / v01ActivPassTrnsp
   ActivGoodsTransp <-  TRANG / V01ActivGoodsTransp
   
-  ActivPassTrnsp <- add_dimension(ActivPassTrnsp, dim = 3.2, add = "unit", nm = "Mtoe/ACTV")
+  unitsActivPassTrnsp <- paste0("Mtoe/",sub("^[^.]+\\.","",unitsPassenger[
+        match(c("PC", "PB", "PT", "PN", "PA"),sub("\\..*", "", unitsPassenger))]))
+  
+  ActivPassTrnsp <- mbind(
+    lapply(seq_along(unitsActivPassTrnsp), function(i) {
+      add_dimension(ActivPassTrnsp[, , i],dim = 3.2,add = "unit",nm = unitsActivPassTrnsp[i])}))
+  
   ActivGoodsTransp <- add_dimension(ActivGoodsTransp, dim = 3.2, add = "unit", nm = "Mtoe/Gtkm")
   
   ActivTrnsp <- mbind(ActivPassTrnsp, ActivGoodsTransp)