Tiedosto:Lgm temparature july ukmo.png
Alkuperäinen tiedosto (1 200 × 800 kuvapistettä, 373 KiB, MIME-tyyppi: image/png)
|
Tämä tiedosto on tiedostotietokanta Wikimedia Commonsista. Tiedot kuvaussivulta näkyvät alla. |  |
Tiedoston kuvaussivu Commonsissa |
Yhteenveto
| Kuvaus |
English: July temperature at Last glacial maximyum, july, according of UKMO paleoclimate simulation. |
| Päiväys | |
| Lähde | Oma teos |
| Tekijä | Merikanto |
This image is based on UKMO paleoclimate simulation data at https://www.ncei.noaa.gov/pub/data/paleo/gcmoutput/pmip/
Tom monthly surface average temperature data grid
https://www.ncei.noaa.gov/pub/data/paleo/gcmoutput/pmip/ukmo/21cal/ukmo_21cal_tas_cm_map.nc
Visualization is done using this R script
- install.packages("raster")
library(ncdf4)
library(fields)
library(sp) # classes for spatial data
library(raster)
library(rasterVis) # raster visualisation
library(plotly)
library(ggplot2)
library(maptools)
library(rgeos)
library(geoR)
data(wrld_simpl)
titula="LGM July temperature, UKMO simulation"
month=7
fname <- "/home/mikkonen/r0/ukmo_21cal_tas_cm_map.nc"
ncfilee <- nc_open(fname)
data <- ncvar_get(ncfilee)
longitude <- ncvar_get(ncfilee,"longitude")
latitude <- ncvar_get(ncfilee,"latitude")
latitude <-rev(latitude)
tas<-ncvar_get(ncfilee,"tas")
tas1 <- tas[ , , month]
x<-1:ncol(tas1)
y<-1:nrow(tas1)
xx=seq(-176.25,180, by=3.75)
yy=seq(-90,90, by=2.5)
tas2<-tas1[,c(ncol(tas1):1)]
xloppu=nrow(tas1)
xalku=1
xkeski1=xloppu/2
xkeski2=xkeski1+1
d=tas2[xalku:xkeski1,]
e=tas2[xkeski2:xloppu,]
newglobe=rbind(e,d)
loppu=length(longitude)
alku=1
keski1=loppu/2
keski2=keski1+1
lonkku1<-longitude[alku:keski1]
lonkku2<-longitude[keski1:loppu]
lonkku3<-lonkku2-360
lonkku<-c(lonkku3,lonkku1)
longitude=lonkku
paletti=topo.colors(12)
tasot<-c(-50,-40,-30,-20,-15,-10,0,5,10,15,20,30)
omapaletti<-c("#5D00FF", "#002EFF","#00B9FF","#00FFB9" ,"#00FF2E","#5DFF00","#E8FF00", "#FF8B00","red", "#FF008B","#E800FF")
png(file="/home/mikkonen/r0/lgm_temparature_july_ukmo.png", width=1200, height=800)
filled.contour(xx,yy,newglobe,
key.title = title(main = "T °C"),
key.axes = axis(4, seq(-50, 30, by = 10)),
plot.title=title(main=titula,xlab="longitude", ylab="latitude"), col=omapaletti, levels=tasot, plot.axes = { contour(xx,yy,newglobe, nlevels = 25, drawlabels = TRUE, axes = FALSE, frame.plot = FALSE, add = TRUE);
axis(1, seq(-180, 180, by = 30));
axis(2, seq(-90, 90, by = 30));
- map('world', add=TRUE); } )
dev.off()
Lisenssi
- Voit:
- jakaa – kopioida, levittää ja esittää teosta
- remiksata – valmistaa muutettuja teoksia
- Seuraavilla ehdoilla:
- nimeäminen – Sinun on mainittava lähde asianmukaisesti, tarjottava linkki lisenssiin sekä merkittävä, mikäli olet tehnyt muutoksia. Voit tehdä yllä olevan millä tahansa kohtuullisella tavalla, mutta et siten, että annat ymmärtää lisenssinantajan suosittelevan sinua tai teoksen käyttöäsi.
- jaa samoin – Jos muutat tai perustat tähän työhön, voit jakaa tuloksena syntyvää työtä vain tällä tai tämän kaltaisella lisenssillä.
Tiedoston historia
Päiväystä napsauttamalla näet, millainen tiedosto oli kyseisellä hetkellä.
| Päiväys | Pienoiskuva | Koko | Käyttäjä | Kommentti | |
|---|---|---|---|---|---|
| nykyinen | 24. heinäkuuta 2016 kello 09.23 | | 1 200 × 800 (373 KiB) | Merikanto | Resolution 1200x800 |
| 23. heinäkuuta 2016 kello 18.26 |  | 1 200 × 500 (256 KiB) | Merikanto | User created page with UploadWizard |
Tiedoston käyttö
Seuraava sivu käyttää tätä tiedostoa:
