Accesssing EMODnet Physics data (ERDDAP)

Written by Pascal Derycke (Marine Analyst) and Laurent Dubroca (Ifremer)

In [1]:
# This is a test for mybinder.com
# if you envoy dirty code then it is for you :-)
# Install R packages
install.packages('ggplot2')
install.packages('ggmap')
install.packages('ggrepel')
install.packages('raster')
install.packages('rasterVis')
install.packages('mapdata')
install.packages('sp')
install.packages('downloader')
install.packages('rgdal')
install.packages('XML')
install.packages("rgeos")
install.packages("knitr")
install.packages("kableExtra")
Installing package into ‘/home/jupyter-webmaster/R/x86_64-pc-linux-gnu-library/3.6’
(as ‘lib’ is unspecified)

Installing package into ‘/home/jupyter-webmaster/R/x86_64-pc-linux-gnu-library/3.6’
(as ‘lib’ is unspecified)

Installing package into ‘/home/jupyter-webmaster/R/x86_64-pc-linux-gnu-library/3.6’
(as ‘lib’ is unspecified)

Installing package into ‘/home/jupyter-webmaster/R/x86_64-pc-linux-gnu-library/3.6’
(as ‘lib’ is unspecified)

Installing package into ‘/home/jupyter-webmaster/R/x86_64-pc-linux-gnu-library/3.6’
(as ‘lib’ is unspecified)

Installing package into ‘/home/jupyter-webmaster/R/x86_64-pc-linux-gnu-library/3.6’
(as ‘lib’ is unspecified)

Installing package into ‘/home/jupyter-webmaster/R/x86_64-pc-linux-gnu-library/3.6’
(as ‘lib’ is unspecified)

Installing package into ‘/home/jupyter-webmaster/R/x86_64-pc-linux-gnu-library/3.6’
(as ‘lib’ is unspecified)

Installing package into ‘/home/jupyter-webmaster/R/x86_64-pc-linux-gnu-library/3.6’
(as ‘lib’ is unspecified)

Warning message in install.packages("rgdal"):
“installation of package ‘rgdal’ had non-zero exit status”
Installing package into ‘/home/jupyter-webmaster/R/x86_64-pc-linux-gnu-library/3.6’
(as ‘lib’ is unspecified)

Installing package into ‘/home/jupyter-webmaster/R/x86_64-pc-linux-gnu-library/3.6’
(as ‘lib’ is unspecified)

Installing package into ‘/home/jupyter-webmaster/R/x86_64-pc-linux-gnu-library/3.6’
(as ‘lib’ is unspecified)

Warning message in install.packages("knitr"):
“installation of package ‘knitr’ had non-zero exit status”
Installing package into ‘/home/jupyter-webmaster/R/x86_64-pc-linux-gnu-library/3.6’
(as ‘lib’ is unspecified)

Now that they are installed, we need to load them into memory:

In [2]:
# load dependencies
## geospatial data handling
library(rgdal)
library(raster)
library(sp)
library(mapdata)
library(rgeos)
## general data handling
library(XML)
library(downloader)
## plotting
library(rasterVis)
library(ggplot2)
## for display reasons
library(knitr)
library(kableExtra)
library(ggmap)
library(ggrepel)
Loading required package: sp

rgdal: version: 1.5-23, (SVN revision 1121)
Geospatial Data Abstraction Library extensions to R successfully loaded
Loaded GDAL runtime: GDAL 2.2.3, released 2017/11/20
Path to GDAL shared files: /usr/share/gdal/2.2
GDAL binary built with GEOS: TRUE 
Loaded PROJ runtime: Rel. 4.9.3, 15 August 2016, [PJ_VERSION: 493]
Path to PROJ shared files: (autodetected)
Linking to sp version:1.4-5

Loading required package: maps

Warning message in fun(libname, pkgname):
“rgeos: versions of GEOS runtime 3.6.2-CAPI-1.10.2
and GEOS at installation 3.7.2dev-CAPI-1.11.2differ”
rgeos version: 0.5-5, (SVN revision 640)
 GEOS runtime version: 3.6.2-CAPI-1.10.2 
 Linking to sp version: 1.4-5 
 Polygon checking: TRUE 


Loading required package: lattice

Loading required package: latticeExtra

Loading required package: RColorBrewer


Attaching package: ‘ggplot2’


The following object is masked from ‘package:latticeExtra’:

    layer


Google's Terms of Service: https://cloud.google.com/maps-platform/terms/.

Please cite ggmap if you use it! See citation("ggmap") for details.

Setting the session parameters

Define the geographical extent for accessing data

In [3]:
Sessionid <- 'mySession'
source_provider <- "EMODnet Physics"
source_provider_url <- "https://www.emodnet.eu"
layer_title<-"Platforms collecting SLEV"
layer <- "EP_PLATFORMS_SLEV"
wfs_url <- "http://geoserver.emodnet-physics.eu/geoserver/emodnet/wfs?"
wms_url <- "http://geoserver.emodnet-physics.eu/geoserver/emodnet/wms?"
wms_layer <- "EP_PLATFORMS_SLEV"
geometry_name<-"position"
map_label<-"PlatformID"
epsg_code<-"EPSG:4326"


minlon <- -2.02
minlat <- 43.18
maxlon <- -1.17
maxlat <- 44.09

xmin <- as.numeric(minlon)
ymin <- as.numeric(minlat)
xmax <- as.numeric(maxlon)
ymax <- as.numeric(maxlat)

print (paste("West-Longitude:",round(xmin,2)))
print (paste("South-Latitude:",round(ymin,2)))
print (paste("East-Longitude:",round(xmax,2)))
print (paste("North-Latitude:",round(ymax,2)))
[1] "West-Longitude: -2.02"
[1] "South-Latitude: 43.18"
[1] "East-Longitude: -1.17"
[1] "North-Latitude: 44.09"

We make some maps to show the location of the MPA.

In [4]:
# Displaying the defined area on map
sr=sp::SpatialPolygons(list(sp::Polygons(list(sp::Polygon(cbind(c(xmin, xmin, xmax, xmax),c(ymax, ymin, ymin, ymax)))),"1")))
mpa=sp::SpatialPolygonsDataFrame(sr, data.frame(cbind(1:1), row.names=c("1")))
sp::proj4string(mpa)<-CRS("+proj=longlat +datum=WGS84")


zoom_value<-6 #zoom definition
base<-get_map(location=c(xmin-1,ymin-1,xmax+1,ymax+1), zoom=zoom_value, maptype="terrain-background", source = "stamen")
terrain <- ggmap(base)

map <- terrain + geom_polygon(data=mpa,aes(x=long,y=lat,group=group,fill="mpa"),colour="green",fill="blue",alpha=.1) +
ggtitle("")+xlab("Longitude")+ylab("Latitude")
plot(map)
Source : http://tile.stamen.com/terrain/6/31/22.png

Source : http://tile.stamen.com/terrain/6/31/23.png

Regions defined for each Polygons

EMODnet physics WFS

The WFS of the EMODnet Physics portal offers the possibility to identify the existing in-situ measurements for the region of interest (bbox).

In [5]:
# function to download point data as csv from the EMODnet physics WFS
getEMODnetPhysicsplatform<-function(name="EP_PLATFORMS_SLEV",xmin,xmax,ymin,ymax){
  name<-as.character(name)
  bbox<-paste(xmin,xmax,ymin,ymax,sep=",")
  con<-paste0(wfs_url,"service=WFS&VERSION=1.1.0&request=GetFeature&typeName=",name,"&OUTPUTFORMAT=csv&bbox=",bbox)
  utils::download.file(con,"dat.csv", quiet = TRUE, mode = "wb")
  pipo<-utils::read.csv("dat.csv")
  if(ncol(pipo)<=1){
    return(data.frame())
  }
  else{
    xy<-strsplit(gsub("\\)","",gsub("POINT \\(","",pipo$position)),split=" ")
    fun1<-function(a){as.numeric(a[1])}
    fun2<-function(a){as.numeric(a[2])}
    pipo$y<-sapply(xy,fun1)
    pipo$x<-sapply(xy,fun2)
    print(con)
    return(pipo)
  }
  
}

# define a function to combine different data layers in a dataframe
getEMODnetPhysicsplatformall<-function (xmin, xmax, ymin, ymax){
  physics <- data.frame()
  
  rez0 <- getEMODnetPhysicsplatform("EP_PLATFORMS_SLEV", ymin, xmin, ymax, xmax)
  if (nrow(rez0) > 0){
    physics1 <- data.frame(type = "EP_PLATFORMS_SLEV", status = rez0$ProjectsDescr,
                           purpose = rez0$ParametersGroupDescr, info = rez0$DataOwner, name = rez0$PlatformID, PltLink = rez0$PlatformInfoLink,
                           country = rez0$Country, x = rez0$x, y = rez0$y)
    physics <- rbind(physics, physics1)
    rm(rez0)
  }
  
  rez0 <- getEMODnetPhysicsplatform("EP_PLATFORMS_WIND", ymin, xmin, ymax, xmax)
  if (nrow(rez0) > 0){
    physics1 <- data.frame(type = "EP_PLATFORMS_WIND", status = rez0$ProjectsDescr,
                           purpose = rez0$ParametersGroupDescr, info = rez0$DataOwner, name = rez0$PlatformID, PltLink = rez0$PlatformInfoLink,
                           country = rez0$Country, x = rez0$x, y = rez0$y)
    physics <- rbind(physics, physics1)
    rm(rez0)
  }
  
  rez0 <- getEMODnetPhysicsplatform("EP_PLATFORMS_WAVE", ymin, xmin, ymax, xmax)
  if (nrow(rez0) > 0){
    physics1 <- data.frame(type = "EP_PLATFORMS_WAVE", status = rez0$ProjectsDescr,
                           purpose = rez0$ParametersGroupDescr, info = rez0$DataOwner, name = rez0$PlatformID, PltLink = rez0$PlatformInfoLink,
                           country = rez0$Country, x = rez0$x, y = rez0$y)
    physics <- rbind(physics, physics1)
    rm(rez0)
  }
  
  rez0 <- getEMODnetPhysicsplatform("EP_PLATFORMS_TEMP", ymin, xmin, ymax, xmax)
  if (nrow(rez0) > 0){
    physics1 <- data.frame(type = "EP_PLATFORMS_TEMP", status = rez0$ProjectsDescr,
                           purpose = rez0$ParametersGroupDescr, info = rez0$DataOwner, name = rez0$PlatformID, PltLink = rez0$PlatformInfoLink,
                           country = rez0$Country, x = rez0$x, y = rez0$y)
    physics <- rbind(physics, physics1)
    rm(rez0)
  }
  
  rez0 <- getEMODnetPhysicsplatform("EP_PLATFORMS_HCXX", ymin, xmin, ymax, xmax)
  if (nrow(rez0) > 0){
    physics1 <- data.frame(type = "EP_PLATFORMS_HCXX", status = rez0$ProjectsDescr,
                           purpose = rez0$ParametersGroupDescr, info = rez0$DataOwner, name = rez0$PlatformID, PltLink = rez0$PlatformInfoLink,
                           country = rez0$Country, x = rez0$x, y = rez0$y)
    physics <- rbind(physics, physics1)
    rm(rez0)
  }
  
  rez0 <- getEMODnetPhysicsplatform("EP_PLATFORMS_MO", ymin, xmin, ymax, xmax)
  if (nrow(rez0) > 0){
    physics1 <- data.frame(type = "EP_PLATFORMS_MO", status = rez0$ProjectsDescr,
                           purpose = rez0$ParametersGroupDescr, info = rez0$DataOwner, name = rez0$PlatformID, PltLink = rez0$PlatformInfoLink,
                           country = rez0$Country, x = rez0$x, y = rez0$y)
    physics <- rbind(physics, physics1)
    rm(rez0)
  }
  
  
  rez0 <- getEMODnetPhysicsplatform("EP_PLATFORMS_FB", ymin, xmin, ymax, xmax)
  if (nrow(rez0) > 0){
    physics1 <- data.frame(type = "EP_PLATFORMS_FB", status = rez0$ProjectsDescr,
                           purpose = rez0$ParametersGroupDescr, info = rez0$DataOwner, name = rez0$PlatformID, PltLink = rez0$PlatformInfoLink,
                           country = rez0$Country, x = rez0$x, y = rez0$y)
    physics <- rbind(physics, physics1)
    rm(rez0)
  }
  
  rez0 <- getEMODnetPhysicsplatform("EP_PLATFORMS_GL", ymin, xmin, ymax, xmax)
  if (nrow(rez0) > 0){
    physics1 <- data.frame(type = "EP_PLATFORMS_GL", status = rez0$ProjectsDescr,
                           purpose = rez0$ParametersGroupDescr, info = rez0$DataOwner, name = rez0$PlatformID, PltLink = rez0$PlatformInfoLink,
                           country = rez0$Country, x = rez0$x, y = rez0$y)
    physics <- rbind(physics, physics1)
    rm(rez0)
  }
  
  return(physics)
}

# get the data for the defined area
physics<-getEMODnetPhysicsplatformall(xmin,xmax,ymin,ymax)


# PLOT MAP WITH Platforms
map<-ggplot() +
  theme_bw() +
  borders("worldHires",xlim=c(xmin,xmax),ylim=c(ymin,ymax),fill="light grey",colour="light grey")+ 
  geom_point(data= physics,aes(x=x,y=y,shape=type,group=type),colour="red", alpha=1, size=4) +
  geom_polygon(data=mpa,aes(x=long,y=lat,group=group,fill="mpa"),colour="green",fill="blue",alpha=.1) +
  coord_quickmap(xlim=range(xmin,xmax),ylim=range(ymin,ymax)) +
  ggtitle("EMODnet Physics Platforms")+xlab("Longitude")+ylab("Latitude")
plot(map)
[1] "http://geoserver.emodnet-physics.eu/geoserver/emodnet/wfs?service=WFS&VERSION=1.1.0&request=GetFeature&typeName=EP_PLATFORMS_SLEV&OUTPUTFORMAT=csv&bbox=43.18,-2.02,44.09,-1.17"
[1] "http://geoserver.emodnet-physics.eu/geoserver/emodnet/wfs?service=WFS&VERSION=1.1.0&request=GetFeature&typeName=EP_PLATFORMS_WIND&OUTPUTFORMAT=csv&bbox=43.18,-2.02,44.09,-1.17"
[1] "http://geoserver.emodnet-physics.eu/geoserver/emodnet/wfs?service=WFS&VERSION=1.1.0&request=GetFeature&typeName=EP_PLATFORMS_WAVE&OUTPUTFORMAT=csv&bbox=43.18,-2.02,44.09,-1.17"
[1] "http://geoserver.emodnet-physics.eu/geoserver/emodnet/wfs?service=WFS&VERSION=1.1.0&request=GetFeature&typeName=EP_PLATFORMS_TEMP&OUTPUTFORMAT=csv&bbox=43.18,-2.02,44.09,-1.17"
[1] "http://geoserver.emodnet-physics.eu/geoserver/emodnet/wfs?service=WFS&VERSION=1.1.0&request=GetFeature&typeName=EP_PLATFORMS_HCXX&OUTPUTFORMAT=csv&bbox=43.18,-2.02,44.09,-1.17"
[1] "http://geoserver.emodnet-physics.eu/geoserver/emodnet/wfs?service=WFS&VERSION=1.1.0&request=GetFeature&typeName=EP_PLATFORMS_MO&OUTPUTFORMAT=csv&bbox=43.18,-2.02,44.09,-1.17"
[1] "http://geoserver.emodnet-physics.eu/geoserver/emodnet/wfs?service=WFS&VERSION=1.1.0&request=GetFeature&typeName=EP_PLATFORMS_FB&OUTPUTFORMAT=csv&bbox=43.18,-2.02,44.09,-1.17"
[1] "http://geoserver.emodnet-physics.eu/geoserver/emodnet/wfs?service=WFS&VERSION=1.1.0&request=GetFeature&typeName=EP_PLATFORMS_GL&OUTPUTFORMAT=csv&bbox=43.18,-2.02,44.09,-1.17"
Regions defined for each Polygons

Get layer names from WFS getcapabilities

In [34]:
Getcapabilities<-function(){
  con<-paste0(wfs_url,"service=WFS&version=1.1.0&request=Getcapabilities")
  pipo <- xmlParse(file = con)
  return(pipo)
}
WFS_GetCapa <- Getcapabilities()

rootnode <- xmlRoot(WFS_GetCapa)

rootsize <- xmlSize(rootnode)
numberOfLayers <- xmlSize(rootnode[[4]])

EMODnetPhysics<-data.frame()

for (i in 1:xmlSize(rootnode[[4]]))
{
Layer_i <- c(rootnode[[4]][[i]][[1]],rootnode[[4]][[i]][[2]])
EMODnetPhysics <- append(EMODnetPhysics, Layer_i)
}

EMODnetPhysics
  1. 'FID'
  2. 'fid'
  3. 'position'
  4. 'PlatformID'
  5. 'MapPlatformID'
  6. 'ProjectsDescr'
  7. 'PlatformCode'
  8. 'WMOCode'
  9. 'SeaRegionCode'
  10. 'SeaRegionDescr'
  11. 'ParametersGroupCode'
  12. 'ParametersGroupDescr'
  13. 'ParametersCodeDescr'
  14. 'DataTypeDescr'
  15. 'LastDataMeasured'
  16. 'Country'
  17. 'DataOwner'
  18. 'DataProvider'
  19. 'LogoURL'
  20. 'PlatformTypeCode'
  21. 'PlatformInfoLink'
  22. 'ColorFeatures'
  23. 'ProjectsCode'

Get colnames from WFS

In [6]:
DescribeFeatureType<-function(layer){
layer<-as.character(layer)
con<-paste0(wfs_url,"service=WFS&version=1.1.0&request=GetFeature&featureID=",geometry_name,"&typeName=",layer,"&OUTPUTFORMAT=csv")
pipo<-utils::read.csv(url(con), header= TRUE, encoding = 'UTF-8')
return(pipo)
}
WFS_Colnames <- DescribeFeatureType(layer)
colnames( WFS_Colnames )

rez_nblist<- c(1:dim(WFS_Colnames)[2])
  1. 'FID'
  2. 'fid'
  3. 'position'
  4. 'PlatformID'
  5. 'MapPlatformID'
  6. 'ProjectsDescr'
  7. 'PlatformCode'
  8. 'WMOCode'
  9. 'SeaRegionCode'
  10. 'SeaRegionDescr'
  11. 'ParametersGroupCode'
  12. 'ParametersGroupDescr'
  13. 'ParametersCodeDescr'
  14. 'DataTypeDescr'
  15. 'LastDataMeasured'
  16. 'Country'
  17. 'DataOwner'
  18. 'DataProvider'
  19. 'LogoURL'
  20. 'PlatformTypeCode'
  21. 'PlatformInfoLink'
  22. 'ColorFeatures'
  23. 'ProjectsCode'

GET DATA as CSV

In [7]:
getWFSpoly<-function(layer, xmin, xmax, ymin, ymax){
layer<-as.character(layer)
#!!!! there is an error with the bbox xmin, xmax ... don't appear in the right order ???
#bbox<-paste(xmin,ymin,xmax,ymax,sep=",")
bbox<-paste(xmin,xmax,ymin,ymax,sep=",")
con<-paste0(wfs_url,"service=WFS&version=1.1.0&request=GetFeature&typeName=",layer,"&bbox=",bbox,",EPSG:4326&outputFormat=csv")
pipo<-utils::read.csv(url(con), header= TRUE, encoding = 'UTF-8')
# if no data return empty dataframe
print(con)
if(ncol(pipo)<=1){
return(data.frame())
} else {
# convert coordinates to numeric type
xy<-strsplit(gsub("\\)","",gsub("POINT \\(","",pipo[[geometry_name]])),split=" ")
fun1<-function(a){as.numeric(a[1])}
fun2<-function(a){as.numeric(a[2])}
pipo$y<-sapply(xy,fun1)
pipo$x<-sapply(xy,fun2)
return(pipo)
}
}

getWFSpolyall<-function (layer, xmin, xmax, ymin, ymax, rez_nblist){
wfs_data <- data.frame()
layer<-as.character(layer)
rez0 <- getWFSpoly(layer, xmin, xmax, ymin, ymax)
if (nrow(rez0) > 0) {
col_rez0 = c()
for (i in 1:length(rez_nblist))
{col_rez0 <- append(col_rez0, rez0[rez_nblist[i]])}

wfs_data1 <- data.frame(col_rez0)
wfs_data <- rbind(wfs_data,wfs_data1)
rm(rez0)
}
return(wfs_data)
}


wfs_data<-getWFSpolyall(layer, xmin, xmax, ymin, ymax, rez_nblist)


#plot data

if(nrow(wfs_data) > 0) {

wfs_data

} else {

print("No data available for the defined geographical extent")

}
[1] "http://geoserver.emodnet-physics.eu/geoserver/emodnet/wfs?service=WFS&version=1.1.0&request=GetFeature&typeName=EP_PLATFORMS_SLEV&bbox=-2.02,-1.17,43.18,44.09,EPSG:4326&outputFormat=csv"
A data.frame: 810 × 23
FIDfidpositionPlatformIDMapPlatformIDProjectsDescrPlatformCodeWMOCodeSeaRegionCodeSeaRegionDescrDataTypeDescrLastDataMeasuredCountryDataOwnerDataProviderLogoURLPlatformTypeCodePlatformInfoLinkColorFeaturesProjectsCode
<fct><int><fct><int><int><fct><fct><fct><fct><fct><fct><fct><fct><fct><fct><fct><fct><fct><fct><fct>
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-162 28523POINT (42.1189 15.5016)639609670616CMEMS INSTAC,Fixed Moorings RMN-IsoleTremiti Mediterranean SeaAdriatic Sea NRT,NRT M,REP 2020/09/27 23:53:00Italy ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale - Italy ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientalehttp://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ISPRA.png TGhttp://www.emodnet-physics.eu/map/spi.aspx?id=639609#FF00FFINSTAC,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-161 28533POINT (41.1798 29.6039)639610670621CMEMS INSTAC,Fixed Moorings Sile Black Sea Black Sea NRT,NRT M 2021/02/11 09:21:00Turkey GCM - The Ministry of National Defense, General Command of Mapping - Turkey General Command of Mapping (Turkey) http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/none.png MOhttp://www.emodnet-physics.eu/map/spi.aspx?id=639610#DC323BINSTAC,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-160 28543POINT (41.0019 39.7445)639611670622CMEMS INSTAC,Fixed Moorings Trabzon Black Sea Black Sea NRT,NRT M,REP 2021/02/11 09:20:30Turkey GCM - The Ministry of National Defense, General Command of Mapping - Turkey General Command of Mapping (Turkey) http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/none.png MOhttp://www.emodnet-physics.eu/map/spi.aspx?id=639611#DC323BINSTAC,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-15f 63293POINT (43.3189 4.8662) 7274 7274JericoNEXT,CMEMS INSTAC,Fixed Moorings61284 61284Mediterranean SeaMediterranean Sea - Western BasinNRT,NRT M,REP 2019/10/15 16:33:12France IFREMER - Institut Français de Recherche pour l'Exploitation de la Mer - France IFREMER Institut Francais de Recherche pour l'Exploitation de la Merhttp://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ifremer.png MOhttp://www.emodnet-physics.eu/map/spi.aspx?id=7274 #DC323BJRC,INSTAC,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-15e 70788POINT (39.893 4.27056) 8739 8739CMEMS INSTAC MahonTG Mediterranean SeaMediterranean Sea - Western BasinNRT,NRT M,REP 2021/02/11 14:04:00Spain PdE - Puertos del Estado - Spain Puertos del Estado (Spain) http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/puertodelestado.pngTGhttp://www.emodnet-physics.eu/map/spi.aspx?id=8739 #FF00FFINSTAC
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-15d 77760POINT (42.958 27.899) 8888 8888JericoNEXT,CMEMS INSTAC,Fixed MooringsShkorpilovtsi Black Sea Black Sea NRT,NRT M,REP 2018/12/19 09:20:00Bulgaria IOBAS - Institude of Oceanology - Bulgarian Academy of Science - Bulgaria Institute of Oceanology Bulgarian Academy of Sciences (IO-BAS) http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/IOBAS.png MOhttp://www.emodnet-physics.eu/map/spi.aspx?id=8888 #DC323BJRC,INSTAC,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-15c 87434POINT (40.026 15.266) 10752248923SeaDataNet,Fixed Moorings RMN-PALINURO PALI0 Mediterranean SeaTyrrhenian Sea VAL 2004/12/31 00:00:00Italy APAT - Agency for Environmental Protection and Technical Services - Italy http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/none.png MOhttp://www.emodnet-physics.eu/map/spi.aspx?id=10752 #DC323BSDN,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-15b 87444POINT (40.846 8.406) 10753 12234SeaDataNet,Fixed Moorings RMN-PORTOTORRES PTOR0 Mediterranean SeaMediterranean Sea - Western BasinVAL 2004/12/31 00:00:00Italy APAT - Agency for Environmental Protection and Technical Services - Italy http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/none.png MOhttp://www.emodnet-physics.eu/map/spi.aspx?id=10753 #DC323BSDN,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-15a 94662POINT (42.48 27.48) 10802250448SeaDataNet,CMEMS INSTAC,Fixed MooringsBurgas Black Sea Black Sea NRT,NRT M,REP,VAL2018/08/13 07:29:00Bulgaria IOBAS - Institude of Oceanology - Bulgarian Academy of Science - Bulgaria Institute of Oceanology Bulgarian Academy of Sciences (IO-BAS) http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/IOBAS.png MOhttp://www.emodnet-physics.eu/map/spi.aspx?id=10802 #DC323BSDN,INSTAC,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-159 94674POINT (39.5233 15.9267) 10803 329SeaDataNet,Fixed Moorings CETRARO CETR0 Mediterranean SeaTyrrhenian Sea VAL 2006/10/29 00:00:00 -- -- MOhttp://www.emodnet-physics.eu/map/spi.aspx?id=10803 #DC323BSDN,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-158 94748POINT (38.2367 15.6472) 10952 239SeaDataNet,Fixed Moorings ULIXEE Mediterranean SeaIonian Sea VAL 1980/03/25 12:30:00Italy OGS - Istituto Nazionale di Oceanografia e di Geofisica Sperimentale - Divisione di Oceanografia - Italy http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/OGS.png MOhttp://www.emodnet-physics.eu/map/spi.aspx?id=10952 #DC323BSDN,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-157 86993POINT (41.874 19.376) 10759 10485SeaDataNet,Fixed Moorings Buna rivermouth Pulaj Station Mediterranean SeaAdriatic Sea VAL 1990/12/31 00:00:00Albania UPT - Institute of GeoSciences, Energy, Water and Environment, Polytechnic University of Tirana - Albania http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/upt.png TGhttp://www.emodnet-physics.eu/map/spi.aspx?id=10759 #FF00FFSDN,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-156 87019POINT (37.0333 27.4167) 10761 10487SeaDataNet,Fixed Moorings Coastal location - Bodrum Mediterranean SeaAegean Sea VAL 1986/12/31 21:00:00United KingdomIOSBL - Institute of Oceanographic Sciences - Bidston Laboratory - United Kingdom http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/none.png TGhttp://www.emodnet-physics.eu/map/spi.aspx?id=10761 #FF00FFSDN,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-155 94431POINT (39.08 17.138) 10971248927SeaDataNet,Fixed Moorings RMN-CROTONE CROT0 Mediterranean SeaIonian Sea VAL 2004/12/31 00:00:00Italy APAT - Agency for Environmental Protection and Technical Services - Italy http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/none.png MOhttp://www.emodnet-physics.eu/map/spi.aspx?id=10971 #DC323BSDN,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-154 94480POINT (38.2478 15.6115) 10976 244SeaDataNet,Fixed Moorings ULIXED Mediterranean SeaIonian Sea VAL 1980/07/02 11:46:00Italy OGS - Istituto Nazionale di Oceanografia e di Geofisica Sperimentale - Divisione di Oceanografia - Italy http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/OGS.png MOhttp://www.emodnet-physics.eu/map/spi.aspx?id=10976 #DC323BSDN,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-153100556POINT (40.026 15.266) 11905248923SeaDataNet,CMEMS INSTAC,Fixed MooringsRMN-PALINURO Mediterranean SeaTyrrhenian Sea NRT,NRT M,REP,VAL2004/12/31 23:50:00Italy ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale - Italy ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientalehttp://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ISPRA.png MOhttp://www.emodnet-physics.eu/map/spi.aspx?id=11905 #DC323BSDN,INSTAC,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-152100565POINT (43.624 13.506) 11906248928SeaDataNet,CMEMS INSTAC,Fixed MooringsRMN-ANCONA Mediterranean SeaAdriatic Sea NRT,NRT M,REP,VAL2004/12/31 23:50:00Italy ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale - Italy ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientalehttp://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ISPRA.png MOhttp://www.emodnet-physics.eu/map/spi.aspx?id=11906 #DC323BSDN,INSTAC,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-151100575POINT (39.164 8.287) 11907248901SeaDataNet,CMEMS INSTAC,Fixed MooringsRMN-CARLOFORTE Mediterranean SeaMediterranean Sea - Western BasinNRT,NRT M,REP,VAL2004/12/31 23:50:00Italy ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale - Italy ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientalehttp://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ISPRA.png MOhttp://www.emodnet-physics.eu/map/spi.aspx?id=11907 #DC323BSDN,INSTAC,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-150100591POINT (40.475 17.223) 11909248908SeaDataNet,CMEMS INSTAC,Fixed MooringsRMN-TARANTO Mediterranean SeaIonian Sea NRT,NRT M,REP,VAL2004/12/31 23:50:00Italy ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale - Italy ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientalehttp://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ISPRA.png MOhttp://www.emodnet-physics.eu/map/spi.aspx?id=11909 #DC323BSDN,INSTAC,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-14f100618POINT (42.46 14.23) 11912 12232SeaDataNet,Fixed Moorings RMN-PESCARA Mediterranean SeaAdriatic Sea VAL 2001/03/27 15:45:00Italy APAT - Agency for Environmental Protection and Technical Services - Italy http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/none.png MOhttp://www.emodnet-physics.eu/map/spi.aspx?id=11912 #DC323BSDN,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-14e100627POINT (41.882 16.185) 11913248905SeaDataNet,CMEMS INSTAC,Fixed MooringsRMN-VIESTE Mediterranean SeaAdriatic Sea NRT,NRT M,REP,VAL2004/12/31 23:50:00Italy ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale - Italy ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientalehttp://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ISPRA.png MOhttp://www.emodnet-physics.eu/map/spi.aspx?id=11913 #DC323BSDN,INSTAC,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-14d100637POINT (40.846 8.406) 11914 12234SeaDataNet,CMEMS INSTAC,Fixed MooringsRMN-PORTOTORRES Mediterranean SeaMediterranean Sea - Western BasinNRT,NRT M,REP,VAL2004/12/31 23:50:00Italy ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale - Italy ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientalehttp://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ISPRA.png MOhttp://www.emodnet-physics.eu/map/spi.aspx?id=11914 #DC323BSDN,INSTAC,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-14c 67230POINT (39.8347 3.13917) 8399 8399CMEMS INSTAC AlcudiaTG Mediterranean SeaBalearic Sea NRT,NRT M,REP 2021/02/11 14:04:00Spain PdE - Puertos del Estado - Spain Puertos del Estado (Spain) http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/puertodelestado.pngTGhttp://www.emodnet-physics.eu/map/spi.aspx?id=8399 #FF00FFINSTAC
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-14b 74864POINT (41.342 2.163) 8443 8443CMEMS INSTAC BarcelonaTG Mediterranean SeaBalearic Sea NRT,NRT M,REP 2021/02/11 00:59:00Spain PdE - Puertos del Estado - Spain Puertos del Estado (Spain) http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/puertodelestado.pngTGhttp://www.emodnet-physics.eu/map/spi.aspx?id=8443 #FF00FFINSTAC
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-14a 92782POINT (38.403 15.794) 10875 147SeaDataNet,Fixed Moorings RMN-MESSINA MESS0 Mediterranean SeaTyrrhenian Sea VAL 2004/12/31 00:00:00Italy APAT - Agency for Environmental Protection and Technical Services - Italy http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/none.png MOhttp://www.emodnet-physics.eu/map/spi.aspx?id=10875 #DC323BSDN,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-149 92815POINT (38.2092 15.5677) 11018 187SeaDataNet,Fixed Moorings MULIS-C1D Mediterranean SeaIonian Sea VAL 1992/06/09 12:16:00Italy SAIPEM - Italy http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/sdnsaipem.png MOhttp://www.emodnet-physics.eu/map/spi.aspx?id=11018 #DC323BSDN,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-148 92874POINT (38.125 15.65) 11024 133SeaDataNet,Fixed Moorings REGGIO CALABRIA REG10 Mediterranean SeaIonian Sea VAL 1992/05/01 00:00:00Italy SAIPEM - Italy http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/sdnsaipem.png MOhttp://www.emodnet-physics.eu/map/spi.aspx?id=11024 #DC323BSDN,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-147 92885POINT (40.475 17.223) 11025248908SeaDataNet,Fixed Moorings RMN-TARANTO TARA0 Mediterranean SeaIonian Sea VAL 2004/12/31 00:00:00Italy APAT - Agency for Environmental Protection and Technical Services - Italy http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/none.png MOhttp://www.emodnet-physics.eu/map/spi.aspx?id=11025 #DC323BSDN,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-146100299POINT (43.5833 13.4833) 12075 12394PSMSL PSMSL_ANCONA_101 Mediterranean SeaAdriatic Sea NRT,NRT M,REP 2015/08/05 12:49:42Other Not Defined INSTITUTO TALASSOGRAFICO DI TRIESTE http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/none.png TGhttp://www.emodnet-physics.eu/map/spi.aspx?id=12075 #FF00FFPSMSL
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-145100311POINT (37.5 15.1333) 12076 12395PSMSL PSMSL_CATANIA_102 Mediterranean SeaIonian Sea NRT,NRT M,REP 2015/08/05 12:49:42Other Not Defined INSTITUTO TALASSOGRAFICO DI TRIESTE http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/none.png TGhttp://www.emodnet-physics.eu/map/spi.aspx?id=12076 #FF00FFPSMSL
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1aa586970POINT (41.668 2.908) 927519 259582CMEMS INSTAC,VOS/SOOP OOCS_20171205103000 NRT 2017/12/05 10:30:00Spain CEAB – Centre d'Estudis Avançats de Blanes - Spain CEAB-CSIC Center for Advanced Studies of Blanes - Spanish Council for Scientific Researchhttp://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ceab.png CThttp://www.emodnet-physics.eu/map/spi.aspx?id=927519 #808080INSTAC,VOSSOOP
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1ab586979POINT (41.668 2.908) 927520 259582CMEMS INSTAC,VOS/SOOP OOCS_20180112103000 NRT 2018/01/12 10:30:00Spain CEAB – Centre d'Estudis Avançats de Blanes - Spain CEAB-CSIC Center for Advanced Studies of Blanes - Spanish Council for Scientific Researchhttp://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ceab.png CThttp://www.emodnet-physics.eu/map/spi.aspx?id=927520 #808080INSTAC,VOSSOOP
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1ac586992POINT (41.668 2.908) 927521 259582CMEMS INSTAC,VOS/SOOP OOCS_20180215103000 NRT 2018/02/15 10:30:00Spain CEAB – Centre d'Estudis Avançats de Blanes - Spain CEAB-CSIC Center for Advanced Studies of Blanes - Spanish Council for Scientific Researchhttp://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ceab.png CThttp://www.emodnet-physics.eu/map/spi.aspx?id=927521 #808080INSTAC,VOSSOOP
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1ad586999POINT (41.668 2.908) 927522 259582CMEMS INSTAC,VOS/SOOP OOCS_20180313103000 NRT 2018/03/13 10:30:00Spain CEAB – Centre d'Estudis Avançats de Blanes - Spain CEAB-CSIC Center for Advanced Studies of Blanes - Spanish Council for Scientific Researchhttp://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ceab.png CThttp://www.emodnet-physics.eu/map/spi.aspx?id=927522 #808080INSTAC,VOSSOOP
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1ae660680POINT (40.4756 17.2238) 608052 12396IOC IOC_TA18 Mediterranean Sea Ionian Sea NRT 2021/02/11 15:44:00Italy ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale - ItalyIstituto Superiore per la Protezione e la Ricerca Ambientale ( Italy ) http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ISPRA.png TGhttp://www.emodnet-physics.eu/map/spi.aspx?id=608052 #FF00FFIOC
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1af660858POINT (41.4469 12.6348) 607890 638156CMEMS INSTAC,Fixed Moorings RMN-Anzio Mediterranean Sea Tyrrhenian Sea NRT,NRT M,REP2020/10/06 08:01:00Italy ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale - ItalyISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ISPRA.png TGhttp://www.emodnet-physics.eu/map/spi.aspx?id=607890 #FF00FFINSTAC,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1b0554755POINT (43.5273 -1.5154) 370010 393920CMEMS INSTAC,AtlantOS,Fixed MooringsBayonneBoucauTG-60min Atlantic, Bay of Biscay, Celtic Sea, AtlantOSBay of Biscay,AtlantOS NRT M 2018/01/01 00:00:00FranceShom - France http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/SHOM.png TGhttp://www.emodnet-physics.eu/map/spi.aspx?id=370010 #FF00FFINSTAC,ATLANTOS,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1b1554847POINT (42.9658 9.34983) 370020 393930CMEMS INSTAC,Fixed Moorings CenturiTG-10min Mediterranean Sea Mediterranean Sea - Western BasinNRT M 2018/07/01 00:00:00FranceShom - France http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/SHOM.png TGhttp://www.emodnet-physics.eu/map/spi.aspx?id=370020 #FF00FFINSTAC,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1b2554850POINT (42.9658 9.34983) 370021 393931CMEMS INSTAC,Fixed Moorings CenturiTG-60min Mediterranean Sea Mediterranean Sea - Western BasinNRT M 2018/01/01 00:00:00FranceShom - France http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/SHOM.png TGhttp://www.emodnet-physics.eu/map/spi.aspx?id=370021 #FF00FFINSTAC,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1b3554872POINT (43.733 7.4237) 370081 393991CMEMS INSTAC,Fixed Moorings MonacoTG-60min Mediterranean Sea Mediterranean Sea - Western BasinNRT M 2018/01/01 00:00:00FranceShom - France http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/SHOM.png TGhttp://www.emodnet-physics.eu/map/spi.aspx?id=370081 #FF00FFINSTAC,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1b4584905POINT (38.7995 1.1213) 927443 259598CMEMS INSTAC,VOS/SOOP EABV_20140217134404 EABV NRT 2014/02/17 13:44:04Spain SOCIB - Balearic Islands Coastal Observing and Forecasting System SOCIB (Sistema de Observacion y prediccion Costero de las Islas Baleares) http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/socib.png CThttp://www.emodnet-physics.eu/map/spi.aspx?id=927443 #808080INSTAC,VOSSOOP
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1b5584915POINT (37.146 -0.80412) 927444 259646CMEMS INSTAC,VOS/SOOP EABV_20140507065935 EABV NRT 2014/05/07 06:59:35Spain SOCIB - Balearic Islands Coastal Observing and Forecasting System SOCIB (Sistema de Observacion y prediccion Costero de las Islas Baleares) http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/socib.png CThttp://www.emodnet-physics.eu/map/spi.aspx?id=927444 #808080INSTAC,VOSSOOP
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1b6584925POINT (38.8045 0.85997) 927445 259718CMEMS INSTAC,VOS/SOOP EABV_20141125132933 EABV NRT 2014/11/25 13:29:33Spain SOCIB - Balearic Islands Coastal Observing and Forecasting System SOCIB (Sistema de Observacion y prediccion Costero de las Islas Baleares) http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/socib.png CThttp://www.emodnet-physics.eu/map/spi.aspx?id=927445 #808080INSTAC,VOSSOOP
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1b7584938POINT (39.0003 0.99499) 927446 259764CMEMS INSTAC,VOS/SOOP EABV_20150423164011 EABV NRT 2015/04/23 16:40:11Spain SOCIB - Balearic Islands Coastal Observing and Forecasting System SOCIB (Sistema de Observacion y prediccion Costero de las Islas Baleares) http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/socib.png CThttp://www.emodnet-physics.eu/map/spi.aspx?id=927446 #808080INSTAC,VOSSOOP
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1b8584948POINT (39.6046 2.34851) 927447 259787CMEMS INSTAC,VOS/SOOP EABV_20150506082252 EABV NRT 2015/05/06 08:22:52Spain SOCIB - Balearic Islands Coastal Observing and Forecasting System SOCIB (Sistema de Observacion y prediccion Costero de las Islas Baleares) http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/socib.png CThttp://www.emodnet-physics.eu/map/spi.aspx?id=927447 #808080INSTAC,VOSSOOP
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1b9532045POINT (37.0311 27.4303) 10694661060045TAD - Tsunami Alert Device TAD_SEISMO-TR-000 Mediterranean Sea Aegean Sea -- 2021/02/11 17:00:08 -- -- JRC TGhttp://www.emodnet-physics.eu/map/spi.aspx?id=1069466#FF00FFTAD
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1ba532053POINT (37.0349 27.4247) 10694671060046TAD - Tsunami Alert Device TAD_SEISMO-TR-001 Mediterranean Sea Aegean Sea -- 2021/02/11 17:00:14 -- -- JRC TGhttp://www.emodnet-physics.eu/map/spi.aspx?id=1069467#FF00FFTAD
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1bb532062POINT (36.6207 29.0922) 10694681060047TAD - Tsunami Alert Device TAD_SENTEZ-01 Mediterranean Sea Mediterranean Sea - Eastern Basin -- 2019/10/17 16:46:55 -- -- SENTEZ TGhttp://www.emodnet-physics.eu/map/spi.aspx?id=1069468#FF00FFTAD
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1bc532071POINT (38.7984 15.1931) 10694691060048TAD - Tsunami Alert Device TAD_FI02 Mediterranean Sea Tyrrhenian Sea -- 2015/06/13 18:36:15 -- -- UNIFI TGhttp://www.emodnet-physics.eu/map/spi.aspx?id=1069469#FF00FFTAD
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1bd541662POINT (39.2101 9.1142) 366675 12397IOC IOC_CA02 Mediterranean Sea Tyrrhenian Sea NRT 2021/02/11 23:22:00Italy ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale - ItalyIstituto Superiore per la Protezione e la Ricerca Ambientale ( Italy ) http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ISPRA.png TGhttp://www.emodnet-physics.eu/map/spi.aspx?id=366675 #FF00FFIOC
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1be555774POINT (42.6396 8.93524) 370719 394762CMEMS INSTAC,Fixed Moorings IleRousseTG-20min Mediterranean Sea Mediterranean Sea - Western BasinNRT,NRT M 2018/11/29 23:50:37FranceShom - France http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/SHOM.png TGhttp://www.emodnet-physics.eu/map/spi.aspx?id=370719 #FF00FFINSTAC,FIXEDMOORINGS
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1bf685119POINT (43.2262 28.0136) 832898 867632CMEMS INSTAC SD1013418031 Black Sea Black Sea NRT,NRT M 2019/11/04 09:18:21Other Not Defined Unknown institution http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/none.png TGhttp://www.emodnet-physics.eu/map/spi.aspx?id=832898 #FF00FFINSTAC
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1c0584115POINT (41.668 2.908) 927473 259582CMEMS INSTAC,VOS/SOOP OOCS_20140211103000 NRT 2014/02/11 10:30:00Spain CEAB – Centre d'Estudis Avançats de Blanes - Spain CEAB-CSIC Center for Advanced Studies of Blanes - Spanish Council for Scientific Researchhttp://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ceab.png CThttp://www.emodnet-physics.eu/map/spi.aspx?id=927473 #808080INSTAC,VOSSOOP
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1c1584123POINT (41.668 2.908) 927474 259582CMEMS INSTAC,VOS/SOOP OOCS_20140311103000 NRT 2014/03/11 10:30:00Spain CEAB – Centre d'Estudis Avançats de Blanes - Spain CEAB-CSIC Center for Advanced Studies of Blanes - Spanish Council for Scientific Researchhttp://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ceab.png CThttp://www.emodnet-physics.eu/map/spi.aspx?id=927474 #808080INSTAC,VOSSOOP
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1c2584134POINT (41.668 2.908) 927475 259582CMEMS INSTAC,VOS/SOOP OOCS_20140407103000 NRT 2014/04/07 10:30:00Spain CEAB – Centre d'Estudis Avançats de Blanes - Spain CEAB-CSIC Center for Advanced Studies of Blanes - Spanish Council for Scientific Researchhttp://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ceab.png CThttp://www.emodnet-physics.eu/map/spi.aspx?id=927475 #808080INSTAC,VOSSOOP
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1c3584143POINT (41.668 2.908) 927476 259582CMEMS INSTAC,VOS/SOOP OOCS_20140502103000 NRT 2014/05/02 10:30:00Spain CEAB – Centre d'Estudis Avançats de Blanes - Spain CEAB-CSIC Center for Advanced Studies of Blanes - Spanish Council for Scientific Researchhttp://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ceab.png CThttp://www.emodnet-physics.eu/map/spi.aspx?id=927476 #808080INSTAC,VOSSOOP
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1c4583132POINT (41.668 2.908) 927500 259582CMEMS INSTAC,VOS/SOOP OOCS_20160505103000 NRT 2016/05/05 10:30:00Spain CEAB – Centre d'Estudis Avançats de Blanes - Spain CEAB-CSIC Center for Advanced Studies of Blanes - Spanish Council for Scientific Researchhttp://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ceab.png CThttp://www.emodnet-physics.eu/map/spi.aspx?id=927500 #808080INSTAC,VOSSOOP
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1c5583147POINT (41.668 2.908) 927501 259582CMEMS INSTAC,VOS/SOOP OOCS_20160608103000 NRT 2016/06/08 10:30:00Spain CEAB – Centre d'Estudis Avançats de Blanes - Spain CEAB-CSIC Center for Advanced Studies of Blanes - Spanish Council for Scientific Researchhttp://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ceab.png CThttp://www.emodnet-physics.eu/map/spi.aspx?id=927501 #808080INSTAC,VOSSOOP
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1c6583156POINT (41.668 2.908) 927502 259582CMEMS INSTAC,VOS/SOOP OOCS_20160707103000 NRT 2016/07/07 10:30:00Spain CEAB – Centre d'Estudis Avançats de Blanes - Spain CEAB-CSIC Center for Advanced Studies of Blanes - Spanish Council for Scientific Researchhttp://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ceab.png CThttp://www.emodnet-physics.eu/map/spi.aspx?id=927502 #808080INSTAC,VOSSOOP
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1c7681107POINT (43.2954 -1.72975)11557461147471AtlantOS,MERTEC EndarlatsaBidasoa NRT,NRT M,REP2021/02/10 00:00:00 -- Confederacion Hidrografica del Cantabrico, CHCantabrico http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/Logo_CHCantabrico.pngRFhttp://www.emodnet-physics.eu/map/spi.aspx?id=1155746#E70B0BATLANTOS,MOHID

Get data as GEOJSON

In [8]:
getGeojson<-function(layer, xmin, xmax, ymin, ymax){
layer<-as.character(layer)
bbox<-paste(xmin,ymin,xmax,ymax,sep=",")
con<-paste0(wfs_url,"service=WFS&srsName=",epsg_code,"&version=1.1.0&request=GetFeature&typeName=",
layer,"&OUTPUTFORMAT=application/json&bbox=",bbox,",EPSG:4326")
print(con)
ogrInfo(dsn=con,layer = 'OGRGeoJSON')
layer<-readOGR(dsn=con,layer = 'OGRGeoJSON', encoding = "UTF-8", use_iconv = TRUE)
return(layer)
}

#get data
WFS_json<-getGeojson(layer, xmin, xmax, ymin, ymax)
WFS_json<-spTransform(WFS_json,CRS("+proj=longlat +datum=WGS84"))
WFS_json <- intersect(WFS_json, mpa)


#print map
if(nrow(wfs_data) > 0) {

WFS_json_df <- as.data.frame(WFS_json)
colnames(WFS_json_df)[colnames(WFS_json_df) %in% c("coords.x1", "coords.x2")] <- c("x_longitude", "y_latitude")

map <- ggplot() +
borders("worldHires", fill = "gray", colour = "black", xlim = range(xmin,xmax), ylim = range(ymin,ymax), size = .25) +
  theme_bw() +
  theme(panel.grid.minor.y= element_blank(), panel.grid.minor.x = element_blank()) +
  geom_point(data=WFS_json_df,aes(x = x_longitude, y = y_latitude), color="red" ,alpha=1,size=2) +
  geom_polygon(data=mpa,aes(x=long,y=lat,group=group,fill="mpa"),colour="green",fill="blue",alpha=.1) +
  coord_quickmap(xlim=range(xmin,xmax),ylim=range(ymin,ymax)) +
  ggtitle(layer_title)+xlab("Longitude (x)")+ylab("Latitude (y)")

map

} else {

print("No data available for the defined geographical extent")
  
}
[1] "http://geoserver.emodnet-physics.eu/geoserver/emodnet/wfs?service=WFS&srsName=EPSG:4326&version=1.1.0&request=GetFeature&typeName=EP_PLATFORMS_SLEV&OUTPUTFORMAT=application/json&bbox=-2.02,43.18,-1.17,44.09,EPSG:4326"
OGR data source with driver: GeoJSON 
Source: "http://geoserver.emodnet-physics.eu/geoserver/emodnet/wfs?service=WFS&srsName=EPSG:4326&version=1.1.0&request=GetFeature&typeName=EP_PLATFORMS_SLEV&OUTPUTFORMAT=application/json&bbox=-2.02,43.18,-1.17,44.09,EPSG:4326", layer: "OGRGeoJSON"
with 48 features
It has 22 fields
Regions defined for each Polygons

print map with ids

In [9]:
if(nrow(wfs_data) > 0) {

map <- ggplot() +
borders("worldHires", fill = "gray", colour = "black", xlim = range(xmin,xmax), ylim = range(ymin,ymax), size = .25) +
  theme_bw() +
  theme(panel.grid.minor.y= element_blank(), panel.grid.minor.x = element_blank()) +
  geom_point(data=WFS_json_df,aes(x = x_longitude, y = y_latitude),colour="red",fill="blue",alpha=.9) +
  geom_polygon(data=mpa,aes(x=long,y=lat,group=group,fill="mpa"),colour="green",fill="blue",alpha=.1) +
  geom_text_repel(data=WFS_json_df, aes(label = WFS_json_df[[map_label]], x = x_longitude, y = y_latitude), size=2, hjust= 0, vjust=2, check_overlap = TRUE) +
  coord_quickmap(xlim=range(xmin,xmax),ylim=range(ymin,ymax)) +
  ggtitle(layer_title)+xlab("Longitude (x)")+ylab("Latitude (y)")

map


} else {

print("No data available for the defined geographical extent")

}
Regions defined for each Polygons

Warning message:
“Ignoring unknown parameters: check_overlap”
Warning message:
“Use of `WFS_json_df[[map_label]]` is discouraged. Use `.data[[map_label]]` instead.”
Warning message:
“ggrepel: 29 unlabeled data points (too many overlaps). Consider increasing max.overlaps”

Access measurements (7days) from ERDDAP

In [ ]:
if(nrow(wfs_data) > 0) {

XSLEVLIST <- list() 
PlatformIDLIST <- c()
map_PlatformID <- 'PlatformID'
Parameter <- 'SLEV'
Units <- 'meter'


for (data in 1:nrow(wfs_data)){
PlatformID <- as.integer(wfs_data[[map_label]][data])
EndDate <- format(Sys.time(), '%d/%m/%Y')
StartDate <- format(as.Date(Sys.time())-7, '%d/%m/%Y')
erddap_url <- paste0("https://erddap.emodnet-physics.eu/erddap/tabledap/EP_ERD_INT_SLEV_AL_TS_NRT.csvp?EP_PLATFORM_ID,time,depth,",Parameter,"&EP_PLATFORM_ID=%22",PlatformID,"%22&time%3E=now-7days")

print(PlatformID)

tryCatch({CSLEV<- read.csv(erddap_url, header=T)


if(length(CSLEV) > 0) {

colnames(CSLEV) <- c('ID','DATE','DEPTH','SLEV')
CSLEV$DATE <- as.POSIXct(CSLEV$DATE, "UTC", "%Y-%m-%dT%H:%M:%S")
XSLEV<- subset(CSLEV, select=c("DATE","SLEV"))


#Select the first depth in the list
#XSLEV<-XSLEV[XSLEV$DEPTH == min(XSLEV$DEPTH, na.rm=T), ]

XSLEVLIST[[data]] <- subset(XSLEV, select=c("DATE","SLEV"))
PlatformIDLIST <- append(PlatformIDLIST, PlatformID)

map <- ggplot(XSLEV, aes(x = DATE, y = SLEV))+ geom_point()+geom_smooth(aes(color=DATE,fill=DATE))+
ggtitle(paste("PlatformID: ",PlatformID," - ",min(XSLEV$DEPTH, na.rm=T)))+xlab("7 days")+ylab(paste0(Parameter," (",Units,")"))
plot(map)


} else {
print(paste("PlatformID:",as.integer(PlatformID),"- No accessible data"))
}
}, error=function(e){cat("ERROR: No accessible data\n",conditionMessage(e), "\n")})
}
}