Changeset 453 for trunk

Timestamp:

12/09/11 16:58:17 (13 years ago)

Author:

lelod

Message:

modif interpolcorrec

File:

• trunk/src/interpol_correc.pro (modified) (3 diffs)

trunk/src/interpol_correc.pro

@@ -77 +77 @@
 ; ==========
 ;
+; lelod 2011/12/09 modif organisation avec separation des traitements
+; un seul canal traite
 ; $Id$
 ;
@@ -105 +107 @@
 ;
 ;-
-PRO interpol_correc,cor_lb,cor_sb
+PRO interpol_correc,canal,nbpix,cor_l,cor_s
 ;
 @cm_project
+
+
+pixelsize,pixatot,pixbtot,alongatot,alongbtot
+
 
 fovb=fltarr(45)
 fova=fltarr(15)
 alongb=fltarr(45)
-pixelsize,pixatot,pixbtot,alongatot,alongbtot
-
 alongab=alongbtot[45:89] ; verifier l'intervalle!!!!!
 pixb=pixbtot[45:89]
@@ -145 +149 @@
 ;lecture des fichiers de correction amsub
 path=project_id_env
+; lecture des fichiers d'ajustement au nadir pour AMSUA et B
+cor_landa=project_id_env+'AMSU/CORR_LAND_AMSUA_JUIL2006.DAT'
+cor_seaa=project_id_env+'AMSU/CORR_SEA_AMSUA_JUIL2006.DAT'
+cor_la=fltarr(9,30)
+cor_sa=fltarr(9,30)
+openr, lun1,cor_landa, /get_lun
+for i=0, 8 do begin
+    readf, lun1, t1,t2,t3,t4,t5,$
+      t6,t7,t8,t9,t10,$
+      t11,t12,t13,t14,t15,$
+      t16,t17,t18,t19,t20,$
+      t21,t22,t23,t24,t25,$
+      t26,t27,t28,t29,t30
+
+    a=[t1,t2,t3,t4,t5,$
+       t6,t7,t8,t9,t10,$
+       t11,t12,t13,t14,t15,$
+       t16,t17,t18,t19,t20,$
+       t21,t22,t23,t24,t25,$
+       t26,t27,t28,t29,t30]
+
+    cor_la[i,*]=a
+endfor
+free_lun, lun1
+openr, lun1,cor_seaa, /get_lun
+for i=0, 8 do begin
+    readf, lun1, t1,t2,t3,t4,t5,$
+      t6,t7,t8,t9,t10,$
+      t11,t12,t13,t14,t15,$
+      t16,t17,t18,t19,t20,$
+      t21,t22,t23,t24,t25,$
+      t26,t27,t28,t29,t30
+
+    a=[t1,t2,t3,t4,t5,$
+       t6,t7,t8,t9,t10,$
+       t11,t12,t13,t14,t15,$
+       t16,t17,t18,t19,t20,$
+       t21,t22,t23,t24,t25,$
+       t26,t27,t28,t29,t30]
+    cor_sa[i,*]=a
+endfor
+free_lun, lun1
+
 cor_landb=path+'AMSU/CORR_LAND_AMSUB_JUIL2006.DAT'
 cor_seab=path+'AMSU/CORR_SEA_AMSUB_JUIL2006.DAT'