Changeset 552

Timestamp:

05/16/12 18:55:29 (12 years ago)

Author:

lelod

Message:

ajout du cas a4 dans interpol_correc

File:

• trunk/src/interpol_correc.pro (modified) (1 diff)

trunk/src/interpol_correc.pro

@@ -179 +179 @@
    cor_s=fltarr(nfova)
    ;test du nouveau fichier de correction pour a5 (FK avril 2012)
-   if numch eq 'a5' then begin
-      cor_landa=project_id_env+'AMSU/CORR_LAND_AMSUA5_DataFromJune2010_40deg_OrogInf500.DAT'
-      cor_seaa=project_id_env+'AMSU/CORR_SEA_AMSUA5_DataFromJune2010_40deg.DAT'
+   if numcanal eq 4 or numcanal eq 5 then begin
+      cor_landa=project_id_env+'AMSU/CORR_LAND_AMSUA'+strmid(numch,1,1)+'_DataFromJune2010_40deg_OrogInf500.DAT'
+      cor_seaa=project_id_env+'AMSU/CORR_SEA_AMSUA'+strmid(numch,1,1)+'_DataFromJune2010_40deg.DAT'
       openr, lun1,cor_landa, /get_lun, ERROR = error
       IF (error NE 0) then begin