diff --git a/modules/Indices/R/compute_nao.R b/modules/Indices/R/compute_nao.R index 4be27b8932415c9407a1f2df5833e2b45cf60554..5bb76e4edd2a6fa10434e3872ca1bf7da2bb63c1 100644 --- a/modules/Indices/R/compute_nao.R +++ b/modules/Indices/R/compute_nao.R @@ -178,9 +178,7 @@ compute_nao <- function(data, recipe, obsproj, plot_ts, plot_sp, toptitle <- paste("NAO Index\n", month.abb[mes], "/", recipe$Analysis$Time$hcst_start, "-", - recipe$Analysis$Time$hcst_end, "\nMethod:", - ifelse(recipe$Analysis$Workflow$Indices$NAO$obsproj, - "Pobs", "Pmod"), "(Doblas-Reyes et al., 2003)") + recipe$Analysis$Time$hcst_end) plotfile <- paste0(recipe$Run$output_dir, "/plots/Indices/NAO_", system, "_", recipe$Analysis$Datasets$Reference$name, "_s", recipe$Analysis$Time$sdate, "_ftime", @@ -197,9 +195,7 @@ compute_nao <- function(data, recipe, obsproj, plot_ts, plot_sp, toptitle <- paste("NAO Index\n", "Lead time", fmonth, " / Start dates", recipe$Analysis$Time$hcst_start, "-", - recipe$Analysis$Time$hcst_end, "\nMethod:", - ifelse(recipe$Analysis$Workflow$Indices$NAO$obsproj, - "Pobs", "Pmod"), "(Doblas-Reyes et al., 2003)") + recipe$Analysis$Time$hcst_end) plotfile <- paste0(recipe$Run$output_dir, "/plots/Indices/NAO_", system, "_", recipe$Analysis$Datasets$Reference$name, "_ftime", diff --git a/tests/recipes/recipe-seasonal_NAO.yml b/tests/recipes/recipe-seasonal_NAO.yml index 95d5a86e64be204c57681672a5c2859c10933987..1cccf1771a1f2e31c93b80f7ba446a90010ce49f 100644 --- a/tests/recipes/recipe-seasonal_NAO.yml +++ b/tests/recipes/recipe-seasonal_NAO.yml @@ -35,7 +35,7 @@ Analysis: cross_validation: no save: none Indices: - NAO: {ftime_avg: no, obsproj: TRUE, save: 'all', plot_ts: TRUE, plot_sp: yes} + NAO: {obsproj: TRUE, save: 'all', plot_ts: TRUE, plot_sp: yes} Calibration: method: raw # Mandatory, str: Calibration method. See docu. save: none