Permalink
Browse files

added parameter file

  • Loading branch information...
1 parent 0e0a8de commit c3a3aa8010d314c9faa7b2e966c7430270dc9642 Sarah Kendrew committed Feb 1, 2011
Showing with 2 additions and 0 deletions.
  1. +2 −0 metis_winbgr.pro
View
2 metis_winbgr.pro
@@ -1,12 +1,14 @@
function metis_winbgr, x, temp
; returns the entrance window background vs. wavelength in W/cm2/um/arcsec2
+@metis_sens_param
n=2.4028 ;real part of refractive index @ 10.6 um
r=(n-1)/(n+1)
win_thick=1.2 ;window thickness [cm]
;read in window absortion coefficient and calculate emissivity
absfile=profiles_dir+'znse_abs.dat'
+print, absfile
readcol, absfile, format='d,d', abs_l, alpha, skipline=4, /silent
win_em=((1-r^2)*(1-exp(-alpha*win_thick)))/(1-(r^2*exp(-alpha*win_thick))) ;r and d defined in metis_thermal_pre_param
win_em=interpol(win_em, abs_l, x)

0 comments on commit c3a3aa8

Please sign in to comment.