# 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:
# 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.
Define the geographical extent for accessing data
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.
# 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
The WFS of the EMODnet Physics portal offers the possibility to identify the existing in-situ measurements for the region of interest (bbox).
# 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
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
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])
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"
FID | fid | position | PlatformID | MapPlatformID | ProjectsDescr | PlatformCode | WMOCode | SeaRegionCode | SeaRegionDescr | ⋯ | DataTypeDescr | LastDataMeasured | Country | DataOwner | DataProvider | LogoURL | PlatformTypeCode | PlatformInfoLink | ColorFeatures | ProjectsCode |
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
<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 | 28523 | POINT (42.1189 15.5016) | 639609 | 670616 | CMEMS INSTAC,Fixed Moorings | RMN-IsoleTremiti | Mediterranean Sea | Adriatic Sea | ⋯ | NRT,NRT M,REP | 2020/09/27 23:53:00 | Italy | ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale - Italy | ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ISPRA.png | TG | http://www.emodnet-physics.eu/map/spi.aspx?id=639609 | #FF00FF | INSTAC,FIXEDMOORINGS | |
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-161 | 28533 | POINT (41.1798 29.6039) | 639610 | 670621 | CMEMS INSTAC,Fixed Moorings | Sile | Black Sea | Black Sea | ⋯ | NRT,NRT M | 2021/02/11 09:21:00 | Turkey | 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 | MO | http://www.emodnet-physics.eu/map/spi.aspx?id=639610 | #DC323B | INSTAC,FIXEDMOORINGS | |
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-160 | 28543 | POINT (41.0019 39.7445) | 639611 | 670622 | CMEMS INSTAC,Fixed Moorings | Trabzon | Black Sea | Black Sea | ⋯ | NRT,NRT M,REP | 2021/02/11 09:20:30 | Turkey | 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 | MO | http://www.emodnet-physics.eu/map/spi.aspx?id=639611 | #DC323B | INSTAC,FIXEDMOORINGS | |
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-15f | 63293 | POINT (43.3189 4.8662) | 7274 | 7274 | JericoNEXT,CMEMS INSTAC,Fixed Moorings | 61284 | 61284 | Mediterranean Sea | Mediterranean Sea - Western Basin | ⋯ | NRT,NRT M,REP | 2019/10/15 16:33:12 | France | IFREMER - Institut Français de Recherche pour l'Exploitation de la Mer - France | IFREMER Institut Francais de Recherche pour l'Exploitation de la Mer | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ifremer.png | MO | http://www.emodnet-physics.eu/map/spi.aspx?id=7274 | #DC323B | JRC,INSTAC,FIXEDMOORINGS |
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-15e | 70788 | POINT (39.893 4.27056) | 8739 | 8739 | CMEMS INSTAC | MahonTG | Mediterranean Sea | Mediterranean Sea - Western Basin | ⋯ | NRT,NRT M,REP | 2021/02/11 14:04:00 | Spain | PdE - Puertos del Estado - Spain | Puertos del Estado (Spain) | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/puertodelestado.png | TG | http://www.emodnet-physics.eu/map/spi.aspx?id=8739 | #FF00FF | INSTAC | |
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-15d | 77760 | POINT (42.958 27.899) | 8888 | 8888 | JericoNEXT,CMEMS INSTAC,Fixed Moorings | Shkorpilovtsi | Black Sea | Black Sea | ⋯ | NRT,NRT M,REP | 2018/12/19 09:20:00 | Bulgaria | 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 | MO | http://www.emodnet-physics.eu/map/spi.aspx?id=8888 | #DC323B | JRC,INSTAC,FIXEDMOORINGS | |
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-15c | 87434 | POINT (40.026 15.266) | 10752 | 248923 | SeaDataNet,Fixed Moorings | RMN-PALINURO PALI0 | Mediterranean Sea | Tyrrhenian Sea | ⋯ | VAL | 2004/12/31 00:00:00 | Italy | APAT - Agency for Environmental Protection and Technical Services - Italy | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/none.png | MO | http://www.emodnet-physics.eu/map/spi.aspx?id=10752 | #DC323B | SDN,FIXEDMOORINGS | ||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-15b | 87444 | POINT (40.846 8.406) | 10753 | 12234 | SeaDataNet,Fixed Moorings | RMN-PORTOTORRES PTOR0 | Mediterranean Sea | Mediterranean Sea - Western Basin | ⋯ | VAL | 2004/12/31 00:00:00 | Italy | APAT - Agency for Environmental Protection and Technical Services - Italy | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/none.png | MO | http://www.emodnet-physics.eu/map/spi.aspx?id=10753 | #DC323B | SDN,FIXEDMOORINGS | ||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-15a | 94662 | POINT (42.48 27.48) | 10802 | 250448 | SeaDataNet,CMEMS INSTAC,Fixed Moorings | Burgas | Black Sea | Black Sea | ⋯ | NRT,NRT M,REP,VAL | 2018/08/13 07:29:00 | Bulgaria | 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 | MO | http://www.emodnet-physics.eu/map/spi.aspx?id=10802 | #DC323B | SDN,INSTAC,FIXEDMOORINGS | |
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-159 | 94674 | POINT (39.5233 15.9267) | 10803 | 329 | SeaDataNet,Fixed Moorings | CETRARO CETR0 | Mediterranean Sea | Tyrrhenian Sea | ⋯ | VAL | 2006/10/29 00:00:00 | -- | -- | MO | http://www.emodnet-physics.eu/map/spi.aspx?id=10803 | #DC323B | SDN,FIXEDMOORINGS | |||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-158 | 94748 | POINT (38.2367 15.6472) | 10952 | 239 | SeaDataNet,Fixed Moorings | ULIXEE | Mediterranean Sea | Ionian Sea | ⋯ | VAL | 1980/03/25 12:30:00 | Italy | 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 | MO | http://www.emodnet-physics.eu/map/spi.aspx?id=10952 | #DC323B | SDN,FIXEDMOORINGS | ||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-157 | 86993 | POINT (41.874 19.376) | 10759 | 10485 | SeaDataNet,Fixed Moorings | Buna rivermouth Pulaj Station | Mediterranean Sea | Adriatic Sea | ⋯ | VAL | 1990/12/31 00:00:00 | Albania | 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 | TG | http://www.emodnet-physics.eu/map/spi.aspx?id=10759 | #FF00FF | SDN,FIXEDMOORINGS | ||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-156 | 87019 | POINT (37.0333 27.4167) | 10761 | 10487 | SeaDataNet,Fixed Moorings | Coastal location - Bodrum | Mediterranean Sea | Aegean Sea | ⋯ | VAL | 1986/12/31 21:00:00 | United Kingdom | IOSBL - Institute of Oceanographic Sciences - Bidston Laboratory - United Kingdom | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/none.png | TG | http://www.emodnet-physics.eu/map/spi.aspx?id=10761 | #FF00FF | SDN,FIXEDMOORINGS | ||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-155 | 94431 | POINT (39.08 17.138) | 10971 | 248927 | SeaDataNet,Fixed Moorings | RMN-CROTONE CROT0 | Mediterranean Sea | Ionian Sea | ⋯ | VAL | 2004/12/31 00:00:00 | Italy | APAT - Agency for Environmental Protection and Technical Services - Italy | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/none.png | MO | http://www.emodnet-physics.eu/map/spi.aspx?id=10971 | #DC323B | SDN,FIXEDMOORINGS | ||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-154 | 94480 | POINT (38.2478 15.6115) | 10976 | 244 | SeaDataNet,Fixed Moorings | ULIXED | Mediterranean Sea | Ionian Sea | ⋯ | VAL | 1980/07/02 11:46:00 | Italy | 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 | MO | http://www.emodnet-physics.eu/map/spi.aspx?id=10976 | #DC323B | SDN,FIXEDMOORINGS | ||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-153 | 100556 | POINT (40.026 15.266) | 11905 | 248923 | SeaDataNet,CMEMS INSTAC,Fixed Moorings | RMN-PALINURO | Mediterranean Sea | Tyrrhenian Sea | ⋯ | NRT,NRT M,REP,VAL | 2004/12/31 23:50:00 | Italy | ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale - Italy | ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ISPRA.png | MO | http://www.emodnet-physics.eu/map/spi.aspx?id=11905 | #DC323B | SDN,INSTAC,FIXEDMOORINGS | |
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-152 | 100565 | POINT (43.624 13.506) | 11906 | 248928 | SeaDataNet,CMEMS INSTAC,Fixed Moorings | RMN-ANCONA | Mediterranean Sea | Adriatic Sea | ⋯ | NRT,NRT M,REP,VAL | 2004/12/31 23:50:00 | Italy | ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale - Italy | ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ISPRA.png | MO | http://www.emodnet-physics.eu/map/spi.aspx?id=11906 | #DC323B | SDN,INSTAC,FIXEDMOORINGS | |
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-151 | 100575 | POINT (39.164 8.287) | 11907 | 248901 | SeaDataNet,CMEMS INSTAC,Fixed Moorings | RMN-CARLOFORTE | Mediterranean Sea | Mediterranean Sea - Western Basin | ⋯ | NRT,NRT M,REP,VAL | 2004/12/31 23:50:00 | Italy | ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale - Italy | ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ISPRA.png | MO | http://www.emodnet-physics.eu/map/spi.aspx?id=11907 | #DC323B | SDN,INSTAC,FIXEDMOORINGS | |
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-150 | 100591 | POINT (40.475 17.223) | 11909 | 248908 | SeaDataNet,CMEMS INSTAC,Fixed Moorings | RMN-TARANTO | Mediterranean Sea | Ionian Sea | ⋯ | NRT,NRT M,REP,VAL | 2004/12/31 23:50:00 | Italy | ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale - Italy | ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ISPRA.png | MO | http://www.emodnet-physics.eu/map/spi.aspx?id=11909 | #DC323B | SDN,INSTAC,FIXEDMOORINGS | |
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-14f | 100618 | POINT (42.46 14.23) | 11912 | 12232 | SeaDataNet,Fixed Moorings | RMN-PESCARA | Mediterranean Sea | Adriatic Sea | ⋯ | VAL | 2001/03/27 15:45:00 | Italy | APAT - Agency for Environmental Protection and Technical Services - Italy | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/none.png | MO | http://www.emodnet-physics.eu/map/spi.aspx?id=11912 | #DC323B | SDN,FIXEDMOORINGS | ||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-14e | 100627 | POINT (41.882 16.185) | 11913 | 248905 | SeaDataNet,CMEMS INSTAC,Fixed Moorings | RMN-VIESTE | Mediterranean Sea | Adriatic Sea | ⋯ | NRT,NRT M,REP,VAL | 2004/12/31 23:50:00 | Italy | ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale - Italy | ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ISPRA.png | MO | http://www.emodnet-physics.eu/map/spi.aspx?id=11913 | #DC323B | SDN,INSTAC,FIXEDMOORINGS | |
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-14d | 100637 | POINT (40.846 8.406) | 11914 | 12234 | SeaDataNet,CMEMS INSTAC,Fixed Moorings | RMN-PORTOTORRES | Mediterranean Sea | Mediterranean Sea - Western Basin | ⋯ | NRT,NRT M,REP,VAL | 2004/12/31 23:50:00 | Italy | ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale - Italy | ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ISPRA.png | MO | http://www.emodnet-physics.eu/map/spi.aspx?id=11914 | #DC323B | SDN,INSTAC,FIXEDMOORINGS | |
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-14c | 67230 | POINT (39.8347 3.13917) | 8399 | 8399 | CMEMS INSTAC | AlcudiaTG | Mediterranean Sea | Balearic Sea | ⋯ | NRT,NRT M,REP | 2021/02/11 14:04:00 | Spain | PdE - Puertos del Estado - Spain | Puertos del Estado (Spain) | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/puertodelestado.png | TG | http://www.emodnet-physics.eu/map/spi.aspx?id=8399 | #FF00FF | INSTAC | |
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-14b | 74864 | POINT (41.342 2.163) | 8443 | 8443 | CMEMS INSTAC | BarcelonaTG | Mediterranean Sea | Balearic Sea | ⋯ | NRT,NRT M,REP | 2021/02/11 00:59:00 | Spain | PdE - Puertos del Estado - Spain | Puertos del Estado (Spain) | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/puertodelestado.png | TG | http://www.emodnet-physics.eu/map/spi.aspx?id=8443 | #FF00FF | INSTAC | |
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-14a | 92782 | POINT (38.403 15.794) | 10875 | 147 | SeaDataNet,Fixed Moorings | RMN-MESSINA MESS0 | Mediterranean Sea | Tyrrhenian Sea | ⋯ | VAL | 2004/12/31 00:00:00 | Italy | APAT - Agency for Environmental Protection and Technical Services - Italy | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/none.png | MO | http://www.emodnet-physics.eu/map/spi.aspx?id=10875 | #DC323B | SDN,FIXEDMOORINGS | ||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-149 | 92815 | POINT (38.2092 15.5677) | 11018 | 187 | SeaDataNet,Fixed Moorings | MULIS-C1D | Mediterranean Sea | Ionian Sea | ⋯ | VAL | 1992/06/09 12:16:00 | Italy | SAIPEM - Italy | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/sdnsaipem.png | MO | http://www.emodnet-physics.eu/map/spi.aspx?id=11018 | #DC323B | SDN,FIXEDMOORINGS | ||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-148 | 92874 | POINT (38.125 15.65) | 11024 | 133 | SeaDataNet,Fixed Moorings | REGGIO CALABRIA REG10 | Mediterranean Sea | Ionian Sea | ⋯ | VAL | 1992/05/01 00:00:00 | Italy | SAIPEM - Italy | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/sdnsaipem.png | MO | http://www.emodnet-physics.eu/map/spi.aspx?id=11024 | #DC323B | SDN,FIXEDMOORINGS | ||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-147 | 92885 | POINT (40.475 17.223) | 11025 | 248908 | SeaDataNet,Fixed Moorings | RMN-TARANTO TARA0 | Mediterranean Sea | Ionian Sea | ⋯ | VAL | 2004/12/31 00:00:00 | Italy | APAT - Agency for Environmental Protection and Technical Services - Italy | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/none.png | MO | http://www.emodnet-physics.eu/map/spi.aspx?id=11025 | #DC323B | SDN,FIXEDMOORINGS | ||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-146 | 100299 | POINT (43.5833 13.4833) | 12075 | 12394 | PSMSL | PSMSL_ANCONA_101 | Mediterranean Sea | Adriatic Sea | ⋯ | NRT,NRT M,REP | 2015/08/05 12:49:42 | Other | Not Defined | INSTITUTO TALASSOGRAFICO DI TRIESTE | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/none.png | TG | http://www.emodnet-physics.eu/map/spi.aspx?id=12075 | #FF00FF | PSMSL | |
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_-145 | 100311 | POINT (37.5 15.1333) | 12076 | 12395 | PSMSL | PSMSL_CATANIA_102 | Mediterranean Sea | Ionian Sea | ⋯ | NRT,NRT M,REP | 2015/08/05 12:49:42 | Other | Not Defined | INSTITUTO TALASSOGRAFICO DI TRIESTE | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/none.png | TG | http://www.emodnet-physics.eu/map/spi.aspx?id=12076 | #FF00FF | PSMSL | |
⋮ | ⋮ | ⋮ | ⋮ | ⋮ | ⋮ | ⋮ | ⋮ | ⋮ | ⋮ | ⋱ | ⋮ | ⋮ | ⋮ | ⋮ | ⋮ | ⋮ | ⋮ | ⋮ | ⋮ | ⋮ |
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1aa | 586970 | POINT (41.668 2.908) | 927519 | 259582 | CMEMS INSTAC,VOS/SOOP | OOCS_20171205103000 | ⋯ | NRT | 2017/12/05 10:30:00 | Spain | CEAB – Centre d'Estudis Avançats de Blanes - Spain | CEAB-CSIC Center for Advanced Studies of Blanes - Spanish Council for Scientific Research | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ceab.png | CT | http://www.emodnet-physics.eu/map/spi.aspx?id=927519 | #808080 | INSTAC,VOSSOOP | |||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1ab | 586979 | POINT (41.668 2.908) | 927520 | 259582 | CMEMS INSTAC,VOS/SOOP | OOCS_20180112103000 | ⋯ | NRT | 2018/01/12 10:30:00 | Spain | CEAB – Centre d'Estudis Avançats de Blanes - Spain | CEAB-CSIC Center for Advanced Studies of Blanes - Spanish Council for Scientific Research | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ceab.png | CT | http://www.emodnet-physics.eu/map/spi.aspx?id=927520 | #808080 | INSTAC,VOSSOOP | |||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1ac | 586992 | POINT (41.668 2.908) | 927521 | 259582 | CMEMS INSTAC,VOS/SOOP | OOCS_20180215103000 | ⋯ | NRT | 2018/02/15 10:30:00 | Spain | CEAB – Centre d'Estudis Avançats de Blanes - Spain | CEAB-CSIC Center for Advanced Studies of Blanes - Spanish Council for Scientific Research | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ceab.png | CT | http://www.emodnet-physics.eu/map/spi.aspx?id=927521 | #808080 | INSTAC,VOSSOOP | |||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1ad | 586999 | POINT (41.668 2.908) | 927522 | 259582 | CMEMS INSTAC,VOS/SOOP | OOCS_20180313103000 | ⋯ | NRT | 2018/03/13 10:30:00 | Spain | CEAB – Centre d'Estudis Avançats de Blanes - Spain | CEAB-CSIC Center for Advanced Studies of Blanes - Spanish Council for Scientific Research | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ceab.png | CT | http://www.emodnet-physics.eu/map/spi.aspx?id=927522 | #808080 | INSTAC,VOSSOOP | |||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1ae | 660680 | POINT (40.4756 17.2238) | 608052 | 12396 | IOC | IOC_TA18 | Mediterranean Sea | Ionian Sea | ⋯ | NRT | 2021/02/11 15:44:00 | Italy | ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale - Italy | Istituto Superiore per la Protezione e la Ricerca Ambientale ( Italy ) | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ISPRA.png | TG | http://www.emodnet-physics.eu/map/spi.aspx?id=608052 | #FF00FF | IOC | |
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1af | 660858 | POINT (41.4469 12.6348) | 607890 | 638156 | CMEMS INSTAC,Fixed Moorings | RMN-Anzio | Mediterranean Sea | Tyrrhenian Sea | ⋯ | NRT,NRT M,REP | 2020/10/06 08:01:00 | Italy | ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale - Italy | ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ISPRA.png | TG | http://www.emodnet-physics.eu/map/spi.aspx?id=607890 | #FF00FF | INSTAC,FIXEDMOORINGS | |
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1b0 | 554755 | POINT (43.5273 -1.5154) | 370010 | 393920 | CMEMS INSTAC,AtlantOS,Fixed Moorings | BayonneBoucauTG-60min | Atlantic, Bay of Biscay, Celtic Sea, AtlantOS | Bay of Biscay,AtlantOS | ⋯ | NRT M | 2018/01/01 00:00:00 | France | Shom - France | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/SHOM.png | TG | http://www.emodnet-physics.eu/map/spi.aspx?id=370010 | #FF00FF | INSTAC,ATLANTOS,FIXEDMOORINGS | ||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1b1 | 554847 | POINT (42.9658 9.34983) | 370020 | 393930 | CMEMS INSTAC,Fixed Moorings | CenturiTG-10min | Mediterranean Sea | Mediterranean Sea - Western Basin | ⋯ | NRT M | 2018/07/01 00:00:00 | France | Shom - France | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/SHOM.png | TG | http://www.emodnet-physics.eu/map/spi.aspx?id=370020 | #FF00FF | INSTAC,FIXEDMOORINGS | ||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1b2 | 554850 | POINT (42.9658 9.34983) | 370021 | 393931 | CMEMS INSTAC,Fixed Moorings | CenturiTG-60min | Mediterranean Sea | Mediterranean Sea - Western Basin | ⋯ | NRT M | 2018/01/01 00:00:00 | France | Shom - France | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/SHOM.png | TG | http://www.emodnet-physics.eu/map/spi.aspx?id=370021 | #FF00FF | INSTAC,FIXEDMOORINGS | ||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1b3 | 554872 | POINT (43.733 7.4237) | 370081 | 393991 | CMEMS INSTAC,Fixed Moorings | MonacoTG-60min | Mediterranean Sea | Mediterranean Sea - Western Basin | ⋯ | NRT M | 2018/01/01 00:00:00 | France | Shom - France | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/SHOM.png | TG | http://www.emodnet-physics.eu/map/spi.aspx?id=370081 | #FF00FF | INSTAC,FIXEDMOORINGS | ||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1b4 | 584905 | POINT (38.7995 1.1213) | 927443 | 259598 | CMEMS INSTAC,VOS/SOOP | EABV_20140217134404 | EABV | ⋯ | NRT | 2014/02/17 13:44:04 | Spain | 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 | CT | http://www.emodnet-physics.eu/map/spi.aspx?id=927443 | #808080 | INSTAC,VOSSOOP | ||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1b5 | 584915 | POINT (37.146 -0.80412) | 927444 | 259646 | CMEMS INSTAC,VOS/SOOP | EABV_20140507065935 | EABV | ⋯ | NRT | 2014/05/07 06:59:35 | Spain | 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 | CT | http://www.emodnet-physics.eu/map/spi.aspx?id=927444 | #808080 | INSTAC,VOSSOOP | ||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1b6 | 584925 | POINT (38.8045 0.85997) | 927445 | 259718 | CMEMS INSTAC,VOS/SOOP | EABV_20141125132933 | EABV | ⋯ | NRT | 2014/11/25 13:29:33 | Spain | 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 | CT | http://www.emodnet-physics.eu/map/spi.aspx?id=927445 | #808080 | INSTAC,VOSSOOP | ||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1b7 | 584938 | POINT (39.0003 0.99499) | 927446 | 259764 | CMEMS INSTAC,VOS/SOOP | EABV_20150423164011 | EABV | ⋯ | NRT | 2015/04/23 16:40:11 | Spain | 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 | CT | http://www.emodnet-physics.eu/map/spi.aspx?id=927446 | #808080 | INSTAC,VOSSOOP | ||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1b8 | 584948 | POINT (39.6046 2.34851) | 927447 | 259787 | CMEMS INSTAC,VOS/SOOP | EABV_20150506082252 | EABV | ⋯ | NRT | 2015/05/06 08:22:52 | Spain | 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 | CT | http://www.emodnet-physics.eu/map/spi.aspx?id=927447 | #808080 | INSTAC,VOSSOOP | ||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1b9 | 532045 | POINT (37.0311 27.4303) | 1069466 | 1060045 | TAD - Tsunami Alert Device | TAD_SEISMO-TR-000 | Mediterranean Sea | Aegean Sea | ⋯ | -- | 2021/02/11 17:00:08 | -- | -- | JRC | TG | http://www.emodnet-physics.eu/map/spi.aspx?id=1069466 | #FF00FF | TAD | ||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1ba | 532053 | POINT (37.0349 27.4247) | 1069467 | 1060046 | TAD - Tsunami Alert Device | TAD_SEISMO-TR-001 | Mediterranean Sea | Aegean Sea | ⋯ | -- | 2021/02/11 17:00:14 | -- | -- | JRC | TG | http://www.emodnet-physics.eu/map/spi.aspx?id=1069467 | #FF00FF | TAD | ||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1bb | 532062 | POINT (36.6207 29.0922) | 1069468 | 1060047 | TAD - Tsunami Alert Device | TAD_SENTEZ-01 | Mediterranean Sea | Mediterranean Sea - Eastern Basin | ⋯ | -- | 2019/10/17 16:46:55 | -- | -- | SENTEZ | TG | http://www.emodnet-physics.eu/map/spi.aspx?id=1069468 | #FF00FF | TAD | ||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1bc | 532071 | POINT (38.7984 15.1931) | 1069469 | 1060048 | TAD - Tsunami Alert Device | TAD_FI02 | Mediterranean Sea | Tyrrhenian Sea | ⋯ | -- | 2015/06/13 18:36:15 | -- | -- | UNIFI | TG | http://www.emodnet-physics.eu/map/spi.aspx?id=1069469 | #FF00FF | TAD | ||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1bd | 541662 | POINT (39.2101 9.1142) | 366675 | 12397 | IOC | IOC_CA02 | Mediterranean Sea | Tyrrhenian Sea | ⋯ | NRT | 2021/02/11 23:22:00 | Italy | ISPRA - Istituto Superiore per la Protezione e la Ricerca Ambientale - Italy | Istituto Superiore per la Protezione e la Ricerca Ambientale ( Italy ) | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ISPRA.png | TG | http://www.emodnet-physics.eu/map/spi.aspx?id=366675 | #FF00FF | IOC | |
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1be | 555774 | POINT (42.6396 8.93524) | 370719 | 394762 | CMEMS INSTAC,Fixed Moorings | IleRousseTG-20min | Mediterranean Sea | Mediterranean Sea - Western Basin | ⋯ | NRT,NRT M | 2018/11/29 23:50:37 | France | Shom - France | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/SHOM.png | TG | http://www.emodnet-physics.eu/map/spi.aspx?id=370719 | #FF00FF | INSTAC,FIXEDMOORINGS | ||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1bf | 685119 | POINT (43.2262 28.0136) | 832898 | 867632 | CMEMS INSTAC | SD1013418031 | Black Sea | Black Sea | ⋯ | NRT,NRT M | 2019/11/04 09:18:21 | Other | Not Defined | Unknown institution | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/none.png | TG | http://www.emodnet-physics.eu/map/spi.aspx?id=832898 | #FF00FF | INSTAC | |
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1c0 | 584115 | POINT (41.668 2.908) | 927473 | 259582 | CMEMS INSTAC,VOS/SOOP | OOCS_20140211103000 | ⋯ | NRT | 2014/02/11 10:30:00 | Spain | CEAB – Centre d'Estudis Avançats de Blanes - Spain | CEAB-CSIC Center for Advanced Studies of Blanes - Spanish Council for Scientific Research | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ceab.png | CT | http://www.emodnet-physics.eu/map/spi.aspx?id=927473 | #808080 | INSTAC,VOSSOOP | |||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1c1 | 584123 | POINT (41.668 2.908) | 927474 | 259582 | CMEMS INSTAC,VOS/SOOP | OOCS_20140311103000 | ⋯ | NRT | 2014/03/11 10:30:00 | Spain | CEAB – Centre d'Estudis Avançats de Blanes - Spain | CEAB-CSIC Center for Advanced Studies of Blanes - Spanish Council for Scientific Research | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ceab.png | CT | http://www.emodnet-physics.eu/map/spi.aspx?id=927474 | #808080 | INSTAC,VOSSOOP | |||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1c2 | 584134 | POINT (41.668 2.908) | 927475 | 259582 | CMEMS INSTAC,VOS/SOOP | OOCS_20140407103000 | ⋯ | NRT | 2014/04/07 10:30:00 | Spain | CEAB – Centre d'Estudis Avançats de Blanes - Spain | CEAB-CSIC Center for Advanced Studies of Blanes - Spanish Council for Scientific Research | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ceab.png | CT | http://www.emodnet-physics.eu/map/spi.aspx?id=927475 | #808080 | INSTAC,VOSSOOP | |||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1c3 | 584143 | POINT (41.668 2.908) | 927476 | 259582 | CMEMS INSTAC,VOS/SOOP | OOCS_20140502103000 | ⋯ | NRT | 2014/05/02 10:30:00 | Spain | CEAB – Centre d'Estudis Avançats de Blanes - Spain | CEAB-CSIC Center for Advanced Studies of Blanes - Spanish Council for Scientific Research | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ceab.png | CT | http://www.emodnet-physics.eu/map/spi.aspx?id=927476 | #808080 | INSTAC,VOSSOOP | |||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1c4 | 583132 | POINT (41.668 2.908) | 927500 | 259582 | CMEMS INSTAC,VOS/SOOP | OOCS_20160505103000 | ⋯ | NRT | 2016/05/05 10:30:00 | Spain | CEAB – Centre d'Estudis Avançats de Blanes - Spain | CEAB-CSIC Center for Advanced Studies of Blanes - Spanish Council for Scientific Research | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ceab.png | CT | http://www.emodnet-physics.eu/map/spi.aspx?id=927500 | #808080 | INSTAC,VOSSOOP | |||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1c5 | 583147 | POINT (41.668 2.908) | 927501 | 259582 | CMEMS INSTAC,VOS/SOOP | OOCS_20160608103000 | ⋯ | NRT | 2016/06/08 10:30:00 | Spain | CEAB – Centre d'Estudis Avançats de Blanes - Spain | CEAB-CSIC Center for Advanced Studies of Blanes - Spanish Council for Scientific Research | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ceab.png | CT | http://www.emodnet-physics.eu/map/spi.aspx?id=927501 | #808080 | INSTAC,VOSSOOP | |||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1c6 | 583156 | POINT (41.668 2.908) | 927502 | 259582 | CMEMS INSTAC,VOS/SOOP | OOCS_20160707103000 | ⋯ | NRT | 2016/07/07 10:30:00 | Spain | CEAB – Centre d'Estudis Avançats de Blanes - Spain | CEAB-CSIC Center for Advanced Studies of Blanes - Spanish Council for Scientific Research | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/ceab.png | CT | http://www.emodnet-physics.eu/map/spi.aspx?id=927502 | #808080 | INSTAC,VOSSOOP | |||
EP_PLATFORMS_SLEV.fid--1a753987_17796917fdf_1c7 | 681107 | POINT (43.2954 -1.72975) | 1155746 | 1147471 | AtlantOS,MERTEC | EndarlatsaBidasoa | ⋯ | NRT,NRT M,REP | 2021/02/10 00:00:00 | -- | Confederacion Hidrografica del Cantabrico, CHCantabrico | http://www.emodnet-physics.eu/Map/includes/images/dataProviders/loghi/Logo_CHCantabrico.png | RF | http://www.emodnet-physics.eu/map/spi.aspx?id=1155746 | #E70B0B | ATLANTOS,MOHID |
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
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”
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")})
}
}