File:Gleise12b earthlike locked simulation surface temperature 1 r 1 1 1 1.png
![File:Gleise12b earthlike locked simulation surface temperature 1 r 1 1 1 1.png](https://upload.wikimedia.org/wikipedia/commons/thumb/d/d3/Gleise12b_earthlike_locked_simulation_surface_temperature_1_r_1_1_1_1.png/800px-Gleise12b_earthlike_locked_simulation_surface_temperature_1_r_1_1_1_1.png?20240529161830)
Original file (1,488 × 992 pixels, file size: 870 KB, MIME type: image/png)
Captions
Captions
Summary
editDescriptionGleise12b earthlike locked simulation surface temperature 1 r 1 1 1 1.png |
English: Gliese12 b surface temperature - simulated as Earth-like locked planet |
Date | |
Source | Own work |
Author | Merikanto |
Data for simulation is produced scripts that are there
https://commons.wikimedia.org/wiki/File:Gliese_12b_example_simulation_sea_land_1_r_1_1_1_1.png
Temperature data "dipper" opython script from Exoplasim output on page under this link
Temperature downscaler script
- "R" temperature downscaler
library(raster)
library(ncdf4)
library(rgdal)
library(viridis)
downscale_temperature_65 <- function (coarse_rastera, fine_rastera)
{
## methods: 0 delta, 1 spatialeco, 2 dissever, 3 temperature lapse 6.5 C/1 km lm
print ("Downscaling temperature, 6.5 C/1 km")
coarse_raster<-coarse_rastera
fine_raster<-fine_rastera
p1<-fine_raster
p2<-fine_raster
plot(fine_raster)
plot(coarse_raster, col=viridis(200))
coarseoro<- resample(p1, coarse_raster)
coarseoro_big<-resample(coarseoro, p1)
orodelta<-(p1-coarseoro_big)
baset1 <- resample(coarse_raster, p1)
raster_stack <- stack(p1,p2)
orotemp<-orodelta*0.0065*-1
coarseorotemp<- resample(orotemp, coarse_raster)
coarseorotemp_big<-resample(coarseorotemp, p1)
orotempdelta<-orotemp-coarseorotemp_big
outtemp<-baset1+orotempdelta
#outtempr<-rotate(outtemp)
#plot(outtempr)
return(outtemp)
}
coarsename1<-"tas.nc"
finename1<-"map1.nc"
- ext1<-extent(-180,180,-90,90)
ext1<-extent(0,360,-90,90)
coarser1<-raster(coarsename1)
finer1<-raster(finename1)
extent(coarser1)<-ext1
extent(finer1)<-ext1
finer2<-finer1
finer2[finer2<0.0]<-0.0
rout1<-downscale_temperature_65(coarser1, finer2)
crs1<-"+proj=longlat +datum=WGS84 +no_defs +ellps=WGS84 +towgs84=0,0,0"
crs(rout1)<-crs1
extent(rout1 )<-ext1
image(rout1)
writeRaster(rout1, "temp_dskaled1.nc", overwrite=TRUE, format="CDF", varname="atm_temp", varunit="degC",
longname="atm_temp", xname="lon", yname="lat")
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)
- 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.
File history
Click on a date/time to view the file as it appeared at that time.
Date/Time | Thumbnail | Dimensions | User | Comment | |
---|---|---|---|---|---|
current | 16:18, 29 May 2024 | ![]() | 1,488 × 992 (870 KB) | Merikanto (talk | contribs) | Uploaded own work with UploadWizard |
You cannot overwrite this file.
File usage on Commons
There are no pages that use this file.