SailoR (version 1.2)

Dragonera: Wind data

Description

Contains the information of both zonal and meridional wind components measured in the Mediterranean sea by the in-situ buoy Dragonera, operated by the Spanish State Ports Authority - Puertos del Estado. Data from two WRF downscaling experiments (including the 3DVAR data assimilation every 3 hours - D, and not including it - N), ERA-Interim reanalysis and remote sensing data from the second version of the Cross-Calibrated Multi-platform (CCMPv2) product are also included. Only the closest spatial grid points to the buoy location (39.56 <U+00BA>N, 2.10 <U+00BA>E) in the gridded products are considered. The data cover the period 2009-2014 (Ulazia et al., 2017).

Usage

data("Dragonera")

Format

A list with two data frames:

ref

a data frame including the buoy data.

mod

a data frame including the data from gridded datasets.

Each of these data frames includes 3 variables:

mod

a factor defining if the data belong to the CCMPv2 product (CCMP_SAT), to the reanalysis ERA-Interim (rad) or to any of the WRF downscaling experiments (WRF_D or WRF_N).

U

zonal component of wind (m/s).

V

meridional component of wind (m/s).

References

A. Ulazia, J. S<U+00E1>enz, G. Ibarra-Berastegi, S. J. Gonz<U+00E1>lez-Roj<U+00ED> and S. Carreno-Madinabeitia (2017) Using 3DVAR data assimilation to measure offshore wind energy potential at different turbine heights in the West Mediterranean. Applied Energy, 208:1232-1245, doi: https://doi.org/10.1016/j.apenergy.2017.09.030.

Examples

# NOT RUN {
# Load the data
data(Dragonera)

# Parameters

Uxlab<-"Ux (m/s)"
Uylab<-"Vy (m/s)"
ref<-Dragonera[["ref"]]
mod<-Dragonera[["mod"]]
    
# Index
SailoR.Indices(ref,mod)
    
#--------------------------------------------------------
# Example 1: Figure 5 (left) from S<U+00E1>enz et al. (2020)
#--------------------------------------------------------

Uxlim=c(-10,10)
Uylim=c(-10,10)
sfactor<-1
plotmain<-"Dragonera U10/V10"
p <- SailoR.Plot(ref,mod,ColourList=NULL,sfactor,docenter=TRUE,
                 Uxlim,Uylim,Uxlab,Uylab,plotmain,plotlegend=TRUE,
                 plotRMSElegend=TRUE,
                 plotscalelegend=TRUE,
                 RMSE_legend_Rounding=1,RMSE_legend_units = " m/s",
                 referenceName="Reference")

# Add segments
segments(-1,-1, x1 = -1, y1 = 1,col="brown",lwd=4)
segments(-1,-1, x1 = 1, y1 = -1,col="brown",lwd=4)
segments(1,-1, x1 = 1, y1 = 1,col="brown",lwd=4)
segments(1,1, x1 = -1, y1 = 1,col="brown",lwd=4)



#--------------------------------------------------------
# Example 2: Figure 5 (right) from S<U+00E1>enz et al. (2020)
#--------------------------------------------------------

Uxlim=c(-1,1)
Uylim=c(-1,1)
sfactor<-0.025
plotmain<-"Dragonera U10/V10 (scaled)"
SailoR.Plot(ref,mod,ColourList=NULL,sfactor,docenter=FALSE,
            Uxlim,Uylim,Uxlab,Uylab,plotmain,plotlegend=TRUE,
            plotRMSElegend=TRUE,
            plotscalelegend=TRUE,
            RMSE_legend_Rounding=1,RMSE_legend_units = " m/s",
            referenceName="Reference")

# }