Commit 7a58bacd authored by Manolo Collados's avatar Manolo Collados
Browse files

Tenerife updates from Mon Apr 11 01:00:01 WEST 2022

parent f262ebce
function get_pzero,year,month
if(year lt 2016) then begin
pzero=-1.2
endif else if(year eq 2016) then begin
pzero=53.6
endif else if(year eq 2017 and month le 4) then begin
pzero=53.6
endif else if(year eq 2017 and month gt 4 and month le 7) then begin
pzero=41.8 ; May 1st, 2017
endif else if(year eq 2017 and month gt 7) then begin
pzero=53.6 ; Aug 31st, 2017
endif else begin
pzero=-91.8 ; Apr 13st, 2018
endelse
if(year lt 2016) then begin
pzero=-1.2
endif else if(year eq 2016) then begin
pzero=53.6
endif else if(year eq 2017 and month le 4) then begin
pzero=53.6
endif else if(year eq 2017 and month gt 4 and month le 7) then begin
pzero=41.8 ; May 1st, 2017
endif else if(year eq 2017 and month gt 7) then begin
pzero=53.6 ; Aug 31st, 2017
endif else if(year eq 2018 or year eq 2019 or year eq 2020 $
or year eq 2021) then begin
pzero=-91.8 ; Apr 13st, 2018
endif else begin
pzero=-93.0 ; Apr 10th, 2022
endelse
return,pzero
return,pzero
end
......@@ -110,13 +110,14 @@ pro gris_v8,map_in_base,fileff,filecalib,display=display,$
;*********************************************************************
show=0
; show=0
ang_PCU2_az=-14.12
ang_derot_PCU2=-47.28
ang_derot_az=ang_derot_PCU2+ang_PCU2_az
if(keyword_set(show) eq 0) then show=0
if(keyword_set(display) eq 0) then display=0
if(keyword_set(teles) eq 0) then teles=0
if(keyword_set(desp) eq 0) then desp=0
......@@ -226,9 +227,12 @@ pro gris_v8,map_in_base,fileff,filecalib,display=display,$
endif else if(year eq 2020) then begin
; print,'2020'
parameter_mirrors_2020,lambda,x4,tau4,x567,tau567,x8910,tau8910
endif else if(year ge 2021) then begin
endif else if(year eq 2021) then begin
; print,year
parameter_mirrors_2021,lambda,x4,tau4,x567,tau567,x8910,tau8910
endif else if(year ge 2022) then begin
; print,year
parameter_mirrors_2022,lambda,x4,tau4,x567,tau567,x8910,tau8910
endif else begin
print,'year ', year,' does not exist'
return
......
pro parameter_mirrors_2022,lambda,x4,tau4,x567,tau567,x8910,tau8910
lamref=[10830.,15650.]
x4_ref=[0.991,0.984]
tau4_ref=[170.915,174.521]
x567_ref=[1.024,1.014]
tau567_ref=[537.422,529.048]
x8910_ref=[0.951,0.975]
tau8910_ref=[495.633,511.199]
x4=interpol(x4_ref,lamref,lambda)
tau4=interpol(tau4_ref,1./lamref,1./lambda)
x567=interpol(x567_ref,lamref,lambda)
tau567=interpol(tau567_ref,1./lamref,1./lambda)
x8910=interpol(x8910_ref,lamref,lambda)
tau8910=interpol(tau8910_ref,1./lamref,1./lambda)
return
end
......@@ -244,7 +244,7 @@ function fit2fts,iprof,show=show,lambda=lambda,order=order,npoly=npoly, $
common oldfit,oldfitpar
show=keyword_set(show)
show=1b
;show=1b
print,strjoin(replicate('=',80))
print,'FTS-fitting, please wait...'
if keyword_set(show) eq 0 then $
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment