diff --git a/R/PlotEquiMap.R b/R/PlotEquiMap.R
index c0fa89db1d94aea5c91120683cd8ae325b5290a9..e0e02fbcf06644933f72bad95febd959de3c202a 100644
--- a/R/PlotEquiMap.R
+++ b/R/PlotEquiMap.R
@@ -64,6 +64,9 @@
 #'   Takes the value gray(0.5) by default.
 #'@param coast_width Line width of the coast line of the drawn projected 
 #'  continents. Takes the value 1 by default.
+#'@param lake_color Colour of the lake or other water body inside continents.
+#'  It is only functional when 'filled.continents = TRUE'. The default value is
+#'  'white'.
 #'@param contours Array of same dimensions as 'var' to be added to the plot 
 #'  and displayed with contours. Parameter 'brks2' is required to define the 
 #'  magnitude breaks for each contour curve. Disregarded if 'square = FALSE'.
@@ -75,6 +78,8 @@
 #'  and 'brks2', or if 'square = FALSE'.
 #'@param contour_lty Line type of the contour curves. Takes 1 (solid) by 
 #'  default. See help on 'lty' in par() for other accepted values.
+#'@param contour_draw_label A logical value indicating whether to draw the 
+#'  contour labels or not. The default value is TRUE.
 #'@param contour_label_scale Scale factor for the superimposed labels when 
 #'  drawing contour levels.
 #'@param dots Array of same dimensions as 'var' or with dimensions 
@@ -221,10 +226,10 @@ PlotEquiMap <- function(var, lon, lat, varu = NULL, varv = NULL,
                         triangle_ends = NULL, col_inf = NULL, col_sup = NULL, 
                         colNA = NULL, color_fun = clim.palette(),
                         square = TRUE, filled.continents = NULL,
-                        coast_color = NULL, coast_width = 1,
+                        coast_color = NULL, coast_width = 1, lake_color = NULL,
                         contours = NULL, brks2 = NULL, contour_lwd = 0.5,
                         contour_color = 'black', contour_lty = 1,
-                        contour_label_scale = 1,
+                        contour_draw_label = TRUE, contour_label_scale = 1,
                         dots = NULL, dot_symbol = 4, dot_size = 1, 
                         arr_subsamp = floor(length(lon) / 30), arr_scale = 1, 
                         arr_ref_len = 15, arr_units = "m/s", 
@@ -432,6 +437,17 @@ PlotEquiMap <- function(var, lon, lat, varu = NULL, varv = NULL,
     stop("Parameter 'coast_width' must be numeric.")
   }
 
+  # Check lake_color
+  if (is.null(lake_color)) {
+    if (filled.continents) {
+      lake_color <- 'white'
+    }
+  } else {
+    if (!.IsColor(coast_color)) {
+      stop("Parameter 'coast_color' must be a valid colour identifier.")
+    }
+  }
+
   # Check contours
   if (!is.null(contours)) {
     if (dim(contours)[1] != dims[1] || dim(contours)[2] != dims[2]) {
@@ -468,6 +484,11 @@ PlotEquiMap <- function(var, lon, lat, varu = NULL, varv = NULL,
     stop("Parameter 'contour_lty' must be either a number or a character string.")
   }
 
+  # Check contour_draw_label
+  if (!is.logical(contour_draw_label)) {
+    stop("Parameter 'contour_draw_label' must be logical.")
+  }
+
   # Check contour_label_scale
   if (!is.numeric(contour_label_scale)) {
     stop("Parameter 'contour_label_scale' must be numeric.")
@@ -749,7 +770,7 @@ PlotEquiMap <- function(var, lon, lat, varu = NULL, varv = NULL,
 #            labcex = cex_axes_labels,
             labcex = contour_label_scale * par("cex"),
             lwd = contour_lwd, lty = contour_lty,
-            col = contour_color)
+            col = contour_color, drawlabels = contour_draw_label)
   }
 
   #
@@ -792,7 +813,7 @@ PlotEquiMap <- function(var, lon, lat, varu = NULL, varv = NULL,
                               LAT0 = mean(ylat), LATS = ylat, LONS = xlon)
       lakes <- which(coastmap$STROKES$col == "blue")
       coastmap$STROKES$col[which(coastmap$STROKES$col != "blue")] <- continent_color
-      coastmap$STROKES$col[lakes] <- "white"
+      coastmap$STROKES$col[lakes] <- lake_color #"white"
       par(new = TRUE)
       GEOmap::plotGEOmap(coastmap, PROJ = proj, border = coast_color, 
                          add = TRUE, lwd = coast_width)
diff --git a/R/StatSeasAtlHurr.R b/R/StatSeasAtlHurr.R
index 43d41b651c84e2ebe1429a598210b893c641a7b7..7cee7a0364a5771c422fc2a7e98fda34bc3354d5 100644
--- a/R/StatSeasAtlHurr.R
+++ b/R/StatSeasAtlHurr.R
@@ -136,7 +136,7 @@ StatSeasAtlHurr <- function(atlano = NULL, tropano = NULL, hrvar = "HR") {
   # mean.  PDI follows a gamma distribution, with sigma =
   # -0.57.  (variance = sigma^2 * mean^2).
   # -----------------------------------------------------------
-  if (hrvar == "HR" && hrvar == "TC") {
+  if (hrvar == "HR" | hrvar == "TC") {
     statval$var <- statval$mean
   } else {
     sigma <- -0.57
diff --git a/man/PlotEquiMap.Rd b/man/PlotEquiMap.Rd
index c9db45b5fe9dca0c312c03cbd2512989b08a3391..18456bed5819c5e53bac90042f070f119e43d8bc 100644
--- a/man/PlotEquiMap.Rd
+++ b/man/PlotEquiMap.Rd
@@ -25,11 +25,13 @@ PlotEquiMap(
   filled.continents = NULL,
   coast_color = NULL,
   coast_width = 1,
+  lake_color = NULL,
   contours = NULL,
   brks2 = NULL,
   contour_lwd = 0.5,
   contour_color = "black",
   contour_lty = 1,
+  contour_draw_label = TRUE,
   contour_label_scale = 1,
   dots = NULL,
   dot_symbol = 4,
@@ -142,6 +144,10 @@ Takes the value gray(0.5) by default.}
 \item{coast_width}{Line width of the coast line of the drawn projected 
 continents. Takes the value 1 by default.}
 
+\item{lake_color}{Colour of the lake or other water body inside continents.
+It is only functional when 'filled.continents = TRUE'. The default value is
+'white'.}
+
 \item{contours}{Array of same dimensions as 'var' to be added to the plot 
 and displayed with contours. Parameter 'brks2' is required to define the 
 magnitude breaks for each contour curve. Disregarded if 'square = FALSE'.}
@@ -158,6 +164,9 @@ and 'brks2', or if 'square = FALSE'.}
 \item{contour_lty}{Line type of the contour curves. Takes 1 (solid) by 
 default. See help on 'lty' in par() for other accepted values.}
 
+\item{contour_draw_label}{A logical value indicating whether to draw the 
+contour labels or not. The default value is TRUE.}
+
 \item{contour_label_scale}{Scale factor for the superimposed labels when 
 drawing contour levels.}