File:Lgm temparature july ukmo.png
Alkuperäinen tiedosto (1 200 × 800 kuvapistettä, 373 KiB, MIME-tyyppi: image/png)
Kuvatekstit
Yhteenveto[muokkaa]
KuvausLgm temparature july ukmo.png |
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[muokkaa]
- 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 06.23 | 1 200 × 800 (373 KiB) | Merikanto (keskustelu | muokkaukset) | Resolution 1200x800 | |
23. heinäkuuta 2016 kello 15.26 | 1 200 × 500 (256 KiB) | Merikanto (keskustelu | muokkaukset) | User created page with UploadWizard |
Et voi tallentaa uutta tiedostoa tämän tilalle.
Tiedoston käyttö
Seuraava sivu käyttää tätä tiedostoa:
- File:Lgm july ukmo.png (tiedosto-ohjaus)
Tiedoston järjestelmänlaajuinen käyttö
Seuraavat muut wikit käyttävät tätä tiedostoa:
- Käyttö kohteessa fi.wikipedia.org