File:Beringia 8000bp 2.png
Original file (3,066 × 1,422 pixels, file size: 2.37 MB, MIME type: image/png)
 | This is a file from the Wikimedia Commons. Information from its description page there is shown below. Commons is a freely licensed media file repository. You can help. |
Summary
| Description |
English: Beringia, 8000 years ago |
| Date | |
| Source | Own work |
| Author | Merikanto |
| Camera location |   | View this and other nearby images on: OpenStreetMap |  |
|---|
https://chelsa-climate.org/chelsa-trace21k/
https://envicloud.wsl.ch/#/?prefix=chelsa%2Fchelsa_V1%2Fchelsa_trace%2F
directory orog
tex dem file
Trace21ka selected data downloading "R" script is under this link
Karger, D. N., Nobis, M. P., Normand, S., Graham, C. H., & Zimmermann, N. E. (2021). CHELSA-TraCE21k v1. 0. Downscaled transient temperature and precipitation data since the last glacial maximum. Climate of the Past Discussions, 1-27.
Generic Mapping Tools GMT 6 / Windows 10 code:
rem
rem chelsa trace21ka orography and glaciers of beringia
rem
rem used with win10, gmt 6.x, gdal
rem
rem v 0000.0006
rem 10.10.2021
rem
rem centuries ago
set taimi=80
rscript dl1.r %taimi%
rem set rect1=-R-180.0/-120.0/40.0/80.0
set rect1=-R-220.0/-120.0/40.0/80.0
set rect2=-R140/260/40/80
set size1=-JQ24
set annot1=-B10m10m
set namebase1=CHELSA_TraCE21k_
set namebase2=_V1.0.tif
set inputdem=indata\%namebase1%dem_-%taimi%%namebase2%
set inputgle=indata\%namebase1%gle_-%taimi%%namebase2%
set inputglz=indata\%namebase1%glz_-%taimi%%namebase2%
set kommand=rotate.r %inputdem% %inputgle% %inputglz%
set kaption=-B+glightblue+t"Beringia "%taimi%"00 years ago"
echo %inputdem%
rem scale up, because original grid has gap in 180
rm dem.grd
rm gle.grd
rm glz.grd
gdalwarp -of netcdf -ts 10000 0 %inputdem% dem.grd
gdalwarp -of netcdf -ts 10000 0 %inputgle% gle.grd
gdalwarp -of netcdf -ts 10000 0 %inputglz% glz.grd
set dem1=./dem.grd
set gle1=./gle.grd
set glz1=./glz.grd
set params1=%size1% %rect1%
rem set params2=%params1% %annot1%
gmt makecpt -Chot > my_sea.cpt
gmt makecpt -Cetopo1 > my_topo.cpt
gmt makecpt -Cgebco > my_glacier.cpt
gmt grdgradient dem.grd -Ghillshade-grad.nc -A345 -Ne0.6 -V
gmt grdhisteq hillshade-grad.nc -Ghillshade-hist.nc -N -V
gmt grdmath hillshade-hist.nc 5 DIV = hillshade-int.nc
gmt grdgradient glz.grd -Ghillshade-grag.nc -A345 -Ne0.6 -V
gmt grdhisteq hillshade-grag.nc -Ghillshade-hisg.nc -N -V
gmt grdmath hillshade-hisg.nc 5 DIV = hillshade-ing.nc
gmt begin out png
psbasemap %params1% -Ba %kaption%
grdimage %dem1% %params1% -Q -Cmy_topo.cpt -Ihillshade-int.nc
grdimage %glz1% %params1% -Q -Cmy_glacier.cpt -Ihillshade-ing.nc
gmt end
Downloader
- download some selected chelsa trace21ka files from chelsa repository
- R 4.03 script
- 10.10.2021
- 0000.0005
- set timeout greater than 60, so we can download big files
options(timeout=2400)
download_trace21ka<-function(taimi, variable1, variable2) {
address1="https://os.zhdk.cloud.switch.ch/envicloud/chelsa"
address2="/chelsa_V1/chelsa_trace/"
namebase1="CHELSA_TraCE21k_"
namebase2="_V1.0.tif"
url1=paste0(address1,address2,variable2,"/")
dolly1=paste0(url1,namebase1,variable1,"_-",taimi,namebase2)
desti1=paste0("indata/",namebase1,variable1,"_-",taimi,namebase2)
#dolly1="https://os.zhdk.cloud.switch.ch/envicloud/chelsa/chelsa_V1/chelsa_trace/orog/CHELSA_TraCE21k_dem_-100_V1.0.tif"
#desti1="out.tif"
download.file(dolly1,desti1,method = "libcurl", mode = "wb" )
}
download_selected_trace29ka<-function(taimi)
{
variable2="orog"
variable1="dem"
download_trace21ka(taimi, variable1, variable2)
variable1="glz"
download_trace21ka(taimi, variable1, variable2)
variable1="gle"
download_trace21ka(taimi, variable1, variable2)
variable1="tasmax_7"
variable2="tasmax"
download_trace21ka(taimi, variable1, variable2)
variable1="tasmin_7"
variable2="tasmin"
download_trace21ka(taimi, variable1, variable2)
variable1="tasmax_1"
variable2="tasmax"
download_trace21ka(taimi, variable1, variable2)
variable1="tasmin_1"
variable2="tasmin"
download_trace21ka(taimi, variable1, variable2)
variable1="pr_7"
variable2="pr"
download_trace21ka(taimi, variable1, variable2)
variable1="pr_1"
variable2="pr"
download_trace21ka(taimi, variable1, variable2)
variable1="bio01"
variable2="bio"
download_trace21ka(taimi, variable1, variable2)
variable1="bio12"
variable2="bio"
download_trace21ka(taimi, variable1, variable2)
variable1="swe"
variable2="bio"
download_trace21ka(taimi, variable1, variable2)
variable1="scd"
variable2="bio"
download_trace21ka(taimi, variable1, variable2)
print("Trace21ka stuff downloaded.")
}
download_trace29ka_pr_bio<-function(taimi)
{
variable1="bio01"
variable2="bio"
download_trace21ka(taimi, variable1, variable2)
variable1="bio12"
variable2="bio"
download_trace21ka(taimi, variable1, variable2)
variable1="pr_7"
variable2="pr"
download_trace21ka(taimi, variable1, variable2)
variable1="pr_1"
variable2="pr"
download_trace21ka(taimi, variable1, variable2)
}
- unlink("./indata", recursive=TRUE)
dir.create("./indata")
args = commandArgs(trailingOnly=TRUE)
- print (args[1])
taimi=args[1]
print(taimi)
download_selected_trace29ka(taimi)
print(".")
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.
File history
Click on a date/time to view the file as it appeared at that time.
| Date/Time | Thumbnail | Dimensions | User | Comment | |
|---|---|---|---|---|---|
| current | 07:12, 9 October 2021 | | 3,066 × 1,422 (2.37 MB) | Merikanto | Update |
| 16:27, 7 October 2021 |  | 3,066 × 1,422 (2.3 MB) | Merikanto | Uploaded own work with UploadWizard |
