File:Hadcm3 vegetation types 24 ka BP 1.svg
Summary
| Description |
English: Vegetation types, 24 000 years ago. Based on Hadcm3 simulation. |
|||
| Date | ||||
| Source | Own work | |||
| Author | Merikanto | |||
| SVG development | Category:Valid SVG created with Other tools:Maps#Hadcm3%20vegetation%20types%2024%20ka%20BP%201.svg
|
Source of data is
https://crc806db.uni-koeln.de/dataset/show/megabiome-changes-over-the-last-120kyr-hadcm31477060993/
Biome data:
Hoogakker et al.: Terrestrial biosphere changes over the last 120 kyr, Clim. Past, 12, 51-73, doi:10.5194/cp-12-51-2016, 2016.
Is based on:
Collaborative Research Centre 806 Databasecrc806db.uni-koeln.deAcknowledgementsThis research was conducted within the frame of the DFG funded Collaborative Research Centre 806 (www.sfb806.de).ReferencesGordon, C., Cooper, C., Senior, C. A., Banks, H., Gregory, J. M., Johns, T. C., Mitchell, J. F. B., andWood, R. A. (2000). The simulation of SST, sea ice extents and ocean heat transports in a version of theHadley Centre coupled model without flux adjustments.Climate Dynamics, 16:147–168.Hoogakker, B. A. A., Smith, R. S., Singarayer, J. S., Marchant, R., Prentice, I. C., Allen, J. R. M.,Anderson, R. S., Bhagwat, S. A., Behling, H., Borisova, O., Bush, M., Correa-Metrio, A., de Vernal, A.,Finch, J. M., Fr ́echette, B., Lozano-Garcia, S., Gosling, W. D., Granoszewski, W., Grimm, E. C., Gr ̈uger,E., Hanselman, J., Harrison, S. P., Hill, T. R., Huntley, B., Jim ́enez-Moreno, G., Kershaw, P., Ledru,M.-P., Magri, D., McKenzie, M., M ̈uller, U., Nakagawa, T., Novenko, E., Penny, D., Sadori, L., Scott,L., Stevenson, J., Valdes, P. J., Vandergoes, M., Velichko, A., Whitlock, C., and Tzedakis, C. (2016).Terrestrial biosphere changes over the last 120 kyr.Climate of the Past, 12(1):51–73.
"R" script to generate data is
hadcm3 biomes plot- R script
- 15.5.2021 v 0000.0001
library(raster)
library(colormap)
library(svglite)
print_biome_svg<-function(kyr1)
{
#colormap(colormap=list(list(index=0,rgb=c(0,0,0)),list(index=1,rgb=c(255,255,255))), nshades=10)
#filleri=terrain.colors(10)
filleri=rainbow(10) #ok
#filleri=jet(10)
#filleri=topo.colors(10) ## nok
tulosfilee1=paste0("map_",toString(kyr1),".svg")
print_svg=1
rastername1=paste0("E:/hadcm3_iceage_biomes/MB_HadCM3_",toString(kyr1),"ka.tif")
rin1<-raster(rastername1)
if(print_svg==1)
{
svg(filename=tulosfilee1, width=14, height=7, pointsize=12)
}
#axis(1, at=0:360:30, labels=-180:180:30)
titula=paste0("Types of vegetation ",toString(kyr1)," ka BP")
plot(rin1, xaxt="n" ,col = filleri, legend=0, main=titula)
#lbx<-as.vector(c(1:360))
lbx<-seq(-180, 180, by=30)
axis(1, at=seq(-180, 180, by=30), labels =lbx)
legend("bottomleft", title="Vegetation types",
c("Tropical forest","Warm temperate forest","Temperate Forest", "Boreal forest","Savanna/Dry wood","Savanna", "Grass/dry shrub","Desert","Tundra","Glacier" ), fill=filleri, cex=1.0)
if(print_svg==1)
{
dev.off()
}
return(0)
}
- Main program
kyr1=24
print_biome_svg(kyr1)
Licensing
- 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.
