File:Beringia 8000bp 3.png
Original file (3,066 × 1,422 pixels, file size: 318 KB, MIME type: image/png)
Captions
Captions
Summary
[edit]
| Description |
English: Beringia, 8000 years ago, Just after Bering Strait is opened. |
| 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 ownloading "R" script is under this link
Citation:
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.
rem
rem chelsa trace21ka orography and glaciers of beringia
rem rem CHELSA_TraCE21k_dem_-80_V1.0.tif
rem
rem Windows 10 bat file
rem uses gmt 6.x, gdal, R 4.03
rem
rem v 0000.0006
rem 10.10.2021
rem
set taimi=80
rscript dl1.r %taimi%
set kaption=-B+glightblue+t"Beringia "%taimi%"00 years ago"
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 params1=%size1% %rect1%
set inputdem=indata\%namebase1%dem_-%taimi%%namebase2%
set inputgle=indata\%namebase1%gle_-%taimi%%namebase2%
set inputglz=indata\%namebase1%glz_-%taimi%%namebase2%
rem upscale grid, because in 180 deg is gap
del dem.grd
del gle.grd
del glz.grd
del sign.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
grdmath dem.grd SIGN = sign.grd
grdmath glz.grd SIGN = gsign.grd
set dem1=./dem.grd
set gle1=./gle.grd
set glz1=./glz.grd
gmt makecpt -Chot > my_sea.cpt
gmt makecpt -Cetopo1 > my_topo.cpt
gmt makecpt -Cgebco > my_glacier.cpt
gmt makecpt -Clightblue,darkgreen,darkgreen -T-10000/10000/10000 > colors1.cpt
gmt begin out png
psbasemap %params1% %kaption% -Ba10
grdimage %dem1% %params1% -Q -Ccolors1.cpt
grdimage %glz1% %params1% -Q -Cmy_glacier.cpt
gmt grdcontour sign.grd %params1% -W0.15p,black -L-1/1 -C1
gmt grdcontour gsign.grd %params1% -W0.0075p,220/220/255 -L0/2 -C1
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
[edit]
- 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:54, 9 October 2021 | | 3,066 × 1,422 (318 KB) | Merikanto (talk | contribs) | Update |
| 12:49, 8 October 2021 |  | 3,066 × 1,422 (445 KB) | Merikanto (talk | contribs) | Correction of error | |
| 12:14, 8 October 2021 |  | 3,066 × 1,422 (381 KB) | Merikanto (talk | contribs) | Uploaded own work with UploadWizard |
You cannot overwrite this file.
File usage on Commons
The following page uses this file:
