File:Gleise12b earthlike locked simulation surface temperature 1 r 1 1 1 1.png

Original file(1,488 × 992 pixels, file size: 870 KB, MIME type: image/png)

Captions

Captions

Gliese12 b surface temperature - simulated as Earth-like locked planet

Summary

edit
Description
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

File:Forest_cover_240ma_1.png

Temperature downscaler script

  1. "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"

  1. 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
I, the copyright holder of this work, hereby publish it under the following license:
w:en:Creative Commons
attribution
This file is licensed under the Creative Commons Attribution 4.0 International license.
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/TimeThumbnailDimensionsUserComment
current16:18, 29 May 2024Thumbnail for version as of 16:18, 29 May 20241,488 × 992 (870 KB)Merikanto (talk | contribs)Uploaded own work with UploadWizard

There are no pages that use this file.