diff --git a/NAMESPACE b/NAMESPACE
index 86472fb..0480daf 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -48,6 +48,7 @@ export(WCSClient)
 export(WCSCoverage)
 export(WCSCoverageDescription)
 export(WCSCoverageDomain)
+export(WCSCoverageFilenameHandler)
 export(WCSCoverageSpatialDomain)
 export(WCSCoverageSummary)
 export(WCSCoverageTemporalDomain)
diff --git a/R/WCSCoverage.R b/R/WCSCoverage.R
index 1697a4f..05a9ef0 100644
--- a/R/WCSCoverage.R
+++ b/R/WCSCoverage.R
@@ -94,13 +94,15 @@ WCSCoverage <- R6Class("WCSCoverage",
      },
      
      #'@description Get data
+     #'@param filename filename. Optional file name where to download the coverage
      #'@return an object of class \code{RasterLayer}
-     getData = function(){
-       tmp <- tempfile()
+     getData = function(filename = NULL){
+       covfile <- NULL
+       if(!is.null(filename)){ covfile <- filename }else{ covfile <- tempfile() }
        req <- httr::GET(private$reference)
        bin <- content(req, "raw")
-       writeBin(bin, tmp)
-       r <- raster::raster(tmp)
+       writeBin(bin, covfile)
+       r <- raster::raster(covfile)
        return(r)
      }
    )
diff --git a/R/WCSCoverageFilenameHandler.R b/R/WCSCoverageFilenameHandler.R
new file mode 100644
index 0000000..1bca12a
--- /dev/null
+++ b/R/WCSCoverageFilenameHandler.R
@@ -0,0 +1,43 @@
+#' @name WCSCoverageFilenameHandler
+#' @aliases WCSCoverageFilenameHandler
+#' @title WCSCoverageFilenameHandler
+#' @description \code{WCSCoverageFilenameHandler} provides a coverage filename handler for coverage download
+#'
+#' @usage WCSCoverageFilenameHandler(identifier, time, elevation, bbox, format)
+#'                 
+#' @param identifier coverage identifier
+#' @param time time
+#' @param elevation elevation
+#' @param bbox bbox
+#' @param format format
+#' @return the filename to use for coverage download
+#' 
+#' @author Emmanuel Blondel, \email{emmanuel.blondel1@@gmail.com}
+#' @export
+#' 
+WCSCoverageFilenameHandler <- function(identifier, time, elevation, bbox, format){
+  filename <- identifier
+  if(!is.null(time)) filename <- paste0(filename, "_", gsub(":", "_", time))
+  if(!is.null(elevation)) filename <- paste0(filename, "_", elevation)
+  if(!is.null(bbox)) filename <- paste0(filename, "_", paste0(bbox, collapse=","))
+  file_ext <- "tif"
+  if(!is.null(format)){
+    file_ext <- switch(format,
+                       "image/tiff" = "tif",
+                       "image/gtiff" = "tif",
+                       "GeoTIFF" = "tif",
+                       "GeoTIFF_Float" = "tif",
+                       "TIFF" = "tif",
+                       "image/jpeg" = "jpeg",
+                       "JPEG" = "jpeg",
+                       "image/png" = "png",
+                       "PNG" = "png",
+                       "image/gif" = "gif",
+                       "GIF" = "gif",
+                       "application/netcdf" = "nc",
+                       "NetCDF3" = "nc"
+    )
+  }
+  filename <- paste0(filename, ".", file_ext)
+  return(filename)
+}
\ No newline at end of file
diff --git a/R/WCSCoverageSummary.R b/R/WCSCoverageSummary.R
index 91a4f29..84c956b 100644
--- a/R/WCSCoverageSummary.R
+++ b/R/WCSCoverageSummary.R
@@ -209,12 +209,11 @@ WCSCoverageSummary <- R6Class("WCSCoverageSummary",
           list(label = "Long",uom = "Deg", type = "geographic")
         )
         if(!is.null(des$Domain$temporalDomain)){
-          dimensions <- c(dimensions,
-            list(
-              label = "time", uom = "s", type = "temporal",
-              coefficients = des$Domain$temporalDomain$instants
-            )                
-          )
+          dimensions[[length(dimensions)+1]] <- list(
+            label = "time", uom = "s", type = "temporal",
+            coefficients = des$Domain$temporalDomain$instants
+          )                
+          
         }
       }
       
@@ -343,13 +342,15 @@ WCSCoverageSummary <- R6Class("WCSCoverageSummary",
     #'@param gridCS grid CS. Default is \code{NULL}
     #'@param gridorigin grid origin. Default is \code{NULL}
     #'@param gridoffsets grid offsets. Default is \code{NULL}
+    #'@param filename filename. Optional filename to download the coverage
     #'@param ... any other argument to \link{WCSGetCoverage}
     #'@return an object of class \link{raster} from \pkg{raster}
     getCoverage = function(bbox = NULL, crs = NULL, 
                            time = NULL, elevation = NULL,
                            format = NULL, rangesubset = NULL, 
                            gridbaseCRS = NULL, gridtype = NULL, gridCS = NULL, 
-                           gridorigin = NULL, gridoffsets = NULL, ...){
+                           gridorigin = NULL, gridoffsets = NULL, 
+                           filename = NULL, ...){
       coverage_data <- NULL
       op <- NULL
       operations <- private$capabilities$getOperationsMetadata()$getOperations()
@@ -571,13 +572,14 @@ WCSCoverageSummary <- R6Class("WCSCoverageSummary",
         if(is.null(wcsNs)) wcsNs <- OWSUtils$findNamespace(namespaces, id = "wcs")
         xmlObj <- getNodeSet(resp, "//ns:Coverage", wcsNs)[[1]]
         coverage <- WCSCoverage$new(xmlObj = xmlObj, private$version, private$owsVersion, logger = self$loggerType)
-        coverage_data <- coverage$getData()
+        coverage_data <- coverage$getData(filename = filename)
       #}else if(substr(private$version,1,3)=="2.0"){
       }else{
         #for WCS 1.0.x / 2.x take directly the data
-        tmp <- tempfile()
-        writeBin(resp, tmp)
-        coverage_data <- raster::raster(tmp)
+        covfile <- NULL
+        if(!is.null(filename)){ covfile <- filename }else{ covfile <- tempfile() }
+        writeBin(resp, covfile)
+        coverage_data <- raster::raster(covfile)
       }
       
       #add raster attributes
@@ -602,8 +604,12 @@ WCSCoverageSummary <- R6Class("WCSCoverageSummary",
     #'@param time time
     #'@param elevation elevation
     #'@param bbox bbox
+    #'@param filename_handler Optional filename handling function with arguments 'identifier', 'time', 'elevation', 'bbox', 'format'
+    #'  See \link{WCSCoverageFilenameHandler} as genric filename handler that can be used.
+    #'@param ... any other parameter to pass to \code{getCoverage} method
     #'@return an object of class \link{stack} from \pkg{raster}
-    getCoverageStack = function(time = NULL, elevation = NULL, bbox = NULL){
+    getCoverageStack = function(time = NULL, elevation = NULL, bbox = NULL, 
+                                filename_handler = NULL, ...){
       out <- NULL
       dims <- self$getDimensions()
       timeDim <- dims[sapply(dims, function(x){x$type == "temporal"})]
@@ -651,14 +657,42 @@ WCSCoverageSummary <- R6Class("WCSCoverageSummary",
           })
         }else{
           self$WARN("No multi-dimensions. Returning a simple coverage")
-          return(self$getCoverage(bbox = bbox))
+          filename <- NULL
+          if(!is.null(filename_handler)){
+            filename <- filename_handler(
+              identifier = self$getId(),
+              time = NULL,
+              elevation = NULL,
+              bbox = bbox,
+              format = list(...)$format
+            )
+          }
+          return(self$getCoverage(
+            bbox = bbox,
+            filename = filename,  
+            ...
+          ))
         }
       }
       
       if(length(stack_kvps)>0){
         coverage_list <- lapply(stack_kvps, function(stack_kvp){
           self$INFO(stack_kvp)
-          coverage <- self$getCoverage(bbox = bbox, time = stack_kvp$time, elevation = stack_kvp$elevation)
+          filename <- NULL
+          if(!is.null(filename_handler)){
+            filename <- filename_handler(
+              identifier = self$getId(),
+              time = stack_kvp$time,
+              elevation = stack_kvp$elevation,
+              bbox = bbox,
+              format = list(...)$format
+            )
+          }
+          coverage <- self$getCoverage(
+            bbox = bbox, time = stack_kvp$time, elevation = stack_kvp$elevation, 
+            filename = filename,  
+            ...
+          )
           return(coverage)
         })
         out <- raster::stack(coverage_list)
@@ -667,4 +701,4 @@ WCSCoverageSummary <- R6Class("WCSCoverageSummary",
     }
     
   )
-)
\ No newline at end of file
+)
diff --git a/man/WCSCoverage.Rd b/man/WCSCoverage.Rd
index cde06ec..2b7015e 100644
--- a/man/WCSCoverage.Rd
+++ b/man/WCSCoverage.Rd
@@ -142,9 +142,16 @@ an object of class \code{character}
 \subsection{Method \code{getData()}}{
 Get data
 \subsection{Usage}{
-\if{html}{\out{<div class="r">}}\preformatted{WCSCoverage$getData()}\if{html}{\out{</div>}}
+\if{html}{\out{<div class="r">}}\preformatted{WCSCoverage$getData(filename = NULL)}\if{html}{\out{</div>}}
 }
 
+\subsection{Arguments}{
+\if{html}{\out{<div class="arguments">}}
+\describe{
+\item{\code{filename}}{filename. Optional file name where to download the coverage}
+}
+\if{html}{\out{</div>}}
+}
 \subsection{Returns}{
 an object of class \code{RasterLayer}
 }
diff --git a/man/WCSCoverageFilenameHandler.Rd b/man/WCSCoverageFilenameHandler.Rd
new file mode 100644
index 0000000..0f143dd
--- /dev/null
+++ b/man/WCSCoverageFilenameHandler.Rd
@@ -0,0 +1,28 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/WCSCoverageFilenameHandler.R
+\name{WCSCoverageFilenameHandler}
+\alias{WCSCoverageFilenameHandler}
+\title{WCSCoverageFilenameHandler}
+\usage{
+WCSCoverageFilenameHandler(identifier, time, elevation, bbox, format)
+}
+\arguments{
+\item{identifier}{coverage identifier}
+
+\item{time}{time}
+
+\item{elevation}{elevation}
+
+\item{bbox}{bbox}
+
+\item{format}{format}
+}
+\value{
+the filename to use for coverage download
+}
+\description{
+\code{WCSCoverageFilenameHandler} provides a coverage filename handler for coverage download
+}
+\author{
+Emmanuel Blondel, \email{emmanuel.blondel1@gmail.com}
+}
diff --git a/man/WCSCoverageSummary.Rd b/man/WCSCoverageSummary.Rd
index 03289ce..61fbc79 100644
--- a/man/WCSCoverageSummary.Rd
+++ b/man/WCSCoverageSummary.Rd
@@ -213,6 +213,7 @@ Get coverage data
   gridCS = NULL,
   gridorigin = NULL,
   gridoffsets = NULL,
+  filename = NULL,
   ...
 )}\if{html}{\out{</div>}}
 }
@@ -242,6 +243,8 @@ Get coverage data
 
 \item{\code{gridoffsets}}{grid offsets. Default is \code{NULL}}
 
+\item{\code{filename}}{filename. Optional filename to download the coverage}
+
 \item{\code{...}}{any other argument to \link{WCSGetCoverage}}
 }
 \if{html}{\out{</div>}}
@@ -256,7 +259,13 @@ an object of class \link{raster} from \pkg{raster}
 \subsection{Method \code{getCoverageStack()}}{
 Get a spatio-temporal coverage data cubes as coverage \link{stack}
 \subsection{Usage}{
-\if{html}{\out{<div class="r">}}\preformatted{WCSCoverageSummary$getCoverageStack(time = NULL, elevation = NULL, bbox = NULL)}\if{html}{\out{</div>}}
+\if{html}{\out{<div class="r">}}\preformatted{WCSCoverageSummary$getCoverageStack(
+  time = NULL,
+  elevation = NULL,
+  bbox = NULL,
+  filename_handler = NULL,
+  ...
+)}\if{html}{\out{</div>}}
 }
 
 \subsection{Arguments}{
@@ -267,6 +276,11 @@ Get a spatio-temporal coverage data cubes as coverage \link{stack}
 \item{\code{elevation}}{elevation}
 
 \item{\code{bbox}}{bbox}
+
+\item{\code{filename_handler}}{Optional filename handling function with arguments 'identifier', 'time', 'elevation', 'bbox', 'format'
+See \link{WCSCoverageFilenameHandler} as genric filename handler that can be used.}
+
+\item{\code{...}}{any other parameter to pass to \code{getCoverage} method}
 }
 \if{html}{\out{</div>}}
 }