File:Lgm temparature july ukmo.png
![File:Lgm temparature july ukmo.png](https://upload.wikimedia.org/wikipedia/commons/thumb/4/42/Lgm_temparature_july_ukmo.png/800px-Lgm_temparature_july_ukmo.png?20160724062322)
Original file (1,200 × 800 pixels, file size: 373 KB, MIME type: image/png)
Captions
Captions
Summary
[edit]DescriptionLgm temparature july ukmo.png |
English: July temperature at Last glacial maximyum, july, according of UKMO paleoclimate simulation. |
Date | |
Source | Own work |
Author | 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()
Licensing
[edit]![w:en:Creative Commons](https://upload.wikimedia.org/wikipedia/commons/thumb/7/79/CC_some_rights_reserved.svg/90px-CC_some_rights_reserved.svg.png)
![attribution](https://upload.wikimedia.org/wikipedia/commons/thumb/1/11/Cc-by_new_white.svg/24px-Cc-by_new_white.svg.png)
![share alike](https://upload.wikimedia.org/wikipedia/commons/thumb/d/df/Cc-sa_white.svg/24px-Cc-sa_white.svg.png)
- You are free:
- to share – to copy, distribute and transmit the work
- to remix – to adapt the work
- Under the following conditions:
- attribution – You must give appropriate credit, provide a link to the license, and indicate if changes were made. You may do so in any reasonable manner, but not in any way that suggests the licensor endorses you or your use.
- share alike – If you remix, transform, or build upon the material, you must distribute your contributions under the same or compatible license as the original.
File history
Click on a date/time to view the file as it appeared at that time.
Date/Time | Thumbnail | Dimensions | User | Comment | |
---|---|---|---|---|---|
current | 06:23, 24 July 2016 | ![]() | 1,200 × 800 (373 KB) | Merikanto (talk | contribs) | Resolution 1200x800 |
15:26, 23 July 2016 | ![]() | 1,200 × 500 (256 KB) | Merikanto (talk | contribs) | User created page with UploadWizard |
You cannot overwrite this file.
File usage on Commons
The following page uses this file:
- File:Lgm july ukmo.png (file redirect)
File usage on other wikis
The following other wikis use this file:
- Usage on fi.wikipedia.org