diff --git a/R/ps2psl.R b/R/ps2psl.R
index d5bb2f3..38feed7 100644
--- a/R/ps2psl.R
+++ b/R/ps2psl.R
@@ -98,7 +98,7 @@ ps2psl <- function(ps, tas, zgs) {
     l <- lapply(1:n.mem, function(x) {
         p <- subsetGrid(ps, members = x, drop = TRUE) %>% redim(member = FALSE) %>% extract2("Data") %>% array3Dto2Dmat()
         t <- subsetGrid(tas, members = x, drop = TRUE) %>% redim(member = FALSE) %>% extract2("Data") %>% array3Dto2Dmat()
-        aux <- .reducePressure(p = p, t = t, zgs = zgs, direction = "ps2psl")
+        aux <- reducePressure(p = p, t = t, zgs = zgs, direction = "ps2psl")
         psl$Data <- mat2Dto3Darray(aux, coords$x, coords$y)
         return(psl)
     })
diff --git a/R/psl2ps.R b/R/psl2ps.R
index 7a28d32..b0e0f23 100644
--- a/R/psl2ps.R
+++ b/R/psl2ps.R
@@ -101,7 +101,7 @@ psl2ps <- function(psl, tas, zgs) {
     l <- lapply(1:n.mem, function(x) {
         p <- subsetGrid(psl, members = x, drop = TRUE) %>% redim(member = FALSE) %>% extract2("Data") %>% array3Dto2Dmat()
         t <- subsetGrid(tas, members = x, drop = TRUE) %>% redim(member = FALSE) %>% extract2("Data") %>% array3Dto2Dmat()
-        aux <- .reducePressure(p = p, t = t, zgs = zgs, direction = "psl2ps")
+        aux <- reducePressure(p = p, t = t, zgs = zgs, direction = "psl2ps")
         ps$Data <- mat2Dto3Darray(aux, coords$x, coords$y)
         return(ps)
     })