Changeset 530

Timestamp:

04/17/12 16:05:07 (12 years ago)

Author:

pinsard

Message:

prepare investigation on IO error

Location:

trunk/src

Files:

• LectureLAIHDF.pro (modified) (1 diff)
• LectureLAI_2000_FM.pro (modified) (1 diff)
• cloud_day.pro (modified) (1 diff)
• cloud_month.pro (modified) (1 diff)
• correct_nadir_amsu.pro (modified) (2 diffs)
• cresamsu_cdf.pro (modified) (1 diff)
• extract_amsuab.pro (modified) (1 diff)
• file_amsu_t2_to_mem.pro (modified) (1 diff)
• interpol_correc.pro (modified) (6 diffs)
• msgnuage.pro (modified) (1 diff)
• read_amsub1c.pro (modified) (1 diff)
• ssminuage.pro (modified) (1 diff)

trunk/src/LectureLAIHDF.pro

@@ -293 +293 @@
 ;*** enregistrement ascii
 fileascii=iodirout+'LAI/'+'laisen'+an+'_num.txt'
-OPENW,lun,fileascii,/GET_LUN
+OPENW,lun,fileascii,/GET_LUN, ERROR = error
+IF (error NE 0) then begin
+   ras = report(['eee : can not open for writing '$
+         + '!C' $
+         + fileascii])
+   STOP
+ENDIF
+
 print,fileascii
 ;printf,lun,datenum

trunk/src/LectureLAI_2000_FM.pro

@@ -158 +158 @@
 file='/home/orchidee01/cbobee/donnees_sat/modis/lai/lai-2000/lai2000_float.txt'
 
-OPENW,lun,file,/GET_LUN
+OPENW,lun,file,/GET_LUN, ERROR = error
+IF (error NE 0) then begin
+   ras = report(['eee : can not open for writing '$
+         + '!C' $
+         + file])
+   STOP
+ENDIF
+
 printf,lun,datenum
 FOR ilig=0,taille[2]-1 DO BEGIN

trunk/src/cloud_day.pro

@@ -70 +70 @@
 ; recherche des fichiers du mois
 filemsg=project_id_env+'listmsg'
-openr,1,filemsg
+openr,1,filemsg, ERROR = error
+IF (error NE 0) then begin
+   ras = report(['eee : can not open for reading '$
+         + '!C' $
+         + 'code : ' + !ERROR_STATE.MSG $
+         + filemsg])
+   STOP
+ENDIF
 ijour=0
 while not(eof(1)) do begin

trunk/src/cloud_month.pro

@@ -58 +58 @@
 seuil=strcompress(string(threshold),/remove_all)
 filemsg=project_id_env+'listmsg'
-openr,1,filemsg
+openr,1,filemsg, ERROR = error
+IF (error NE 0) then begin
+   ras = report(['eee : can not open for reading '$
+         + '!C' $
+         + 'code : ' + !ERROR_STATE.MSG $
+         + filemsg])
+   STOP
+ENDIF
+
 ijour=0
 while not(eof(1)) do begin

trunk/src/correct_nadir_amsu.pro

@@ -205 +205 @@
 cor_sa=fltarr(9,30)
 
-openr, lun1,cor_landa, /get_lun
+openr, lun1,cor_landa, /get_lun, ERROR = error
+IF (error NE 0) then begin
+   ras = report(['eee : can not open for reading '$
+         + '!C' $
+         + 'code : ' + !ERROR_STATE.MSG $
+         + filemsg])
+   STOP
+ENDIF
+
 
 for i=0, 8 do begin
@@ -527 +535 @@
     print, '#correct_nadir_amsu# ecriture du fichier resultant ', fichier2
 
-openw, lun_obsa, fichier2, /get_lun
+openw, lun_obsa, fichier2, /get_lun, ERROR=error
+if (error NE 0) THEN BEGIN
+    ras = report(['eee : can not open for writing '$
+         + '!C' $
+         + 'code : ' + !ERROR_STATE.MSG $
+         + fichier2])
+   STOP
+ENDIF
 for i=0L, nn-1L do begin
     if (use_amsua eq 1) then begin

trunk/src/cresamsu_cdf.pro

@@ -255 +255 @@
                      + '_nadir.dat'
 
-            openr,2,fichier2
+            openr,2,fichier2, ERROR = error
+            IF (error NE 0) then begin
+                  ras = report(['eee : can not open for reading '$
+                        + '!C' $
+                        + 'code : ' + !ERROR_STATE.MSG $
+                        + fichier2])
+                  STOP
+            ENDIF
+
             print,fichier2
             cont=0L

trunk/src/extract_amsuab.pro

@@ -232 +232 @@
 
 print, 'ouverture pour ecriture de ', fileout
-openw, lun_obs, fileout, /get_lun
+openw, lun_obs, fileout, /get_lun, ERROR = error
+IF (error NE 0) then begin
+   ras = report(['eee : can not open for writing '$
+         + '!C' $
+         + 'code : ' + !ERROR_STATE.MSG $
+         + fileout])
+   STOP
+ENDIF
+
 
 ; ouverture des fichiers liste (annee, mois, jour, tous satellites) pour

trunk/src/file_amsu_t2_to_mem.pro

@@ -189 +189 @@
 ; open file
 print, 'iii : ouverture pour lecture de ', fullfilename
-OPENR, lun, fullfilename, /GET_LUN
+OPENR, lun, fullfilename, /GET_LUN, ERROR = error
+IF (error NE 0) then begin
+   ras = report(['eee : can not open for reading'$
+         + '!C' $
+         + fullfilename])
+   return, result
+ENDIF
 ;
 ; read header lines

trunk/src/interpol_correc.pro

@@ -182 +182 @@
       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'
-      openr, lun1,cor_landa, /get_lun
+      openr, lun1,cor_landa, /get_lun, ERROR = error
+      IF (error NE 0) then begin
+         ras = report(['eee : can not open for reading '$
+               + '!C' $
+               + 'code : ' + !ERROR_STATE.MSG $
+               + cor_landa])
+         STOP
+      ENDIF
       readf, lun1, t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,$
              t11,t12,t13,t14,t15,t16,t17,t18,t19,t20,$
@@ -191 +198 @@
       cor_l=interpol(a,nfova,/lsquadratic) 
       free_lun, lun1
-      openr, lun1,cor_seaa, /get_lun
+      openr, lun1,cor_seaa, /get_lun, ERROR = error
+      IF (error NE 0) then begin
+         ras = report(['eee : can not open for reading '$
+               + '!C' $
+               + cor_seaa])
+         STOP
+      ENDIF
       readf, lun1, t1,t2,t3,t4,t5,$
              t6,t7,t8,t9,t10,$
@@ -209 +222 @@
       cor_s=interpol(a,nfova,/lsquadratic) ; normalement le dernier canal lu
     endif else begin
-      openr, lun1,cor_landa, /get_lun
+      openr, lun1,cor_landa, /get_lun, ERROR = error
+      IF (error NE 0) then begin
+         ras = report(['eee : can not open for reading '$
+               + '!C' $
+               + cor_landa])
+         STOP
+      ENDIF
       for i=0, numcanal-1 do begin
           readf, lun1, t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,$
@@ -221 +240 @@
        cor_l=interpol(a,nfova,/lsquadratic)    ; normalement le dernier canal lu
        free_lun, lun1
-       openr, lun1,cor_seaa, /get_lun
+       openr, lun1,cor_seaa, /get_lun, ERROR = error
+      IF (error NE 0) then begin
+         ras = report(['eee : can not open for reading '$
+               + '!C' $
+               + cor_seaa])
+         STOP
+      ENDIF
        for i=0, numcanal-1 do begin
           readf, lun1, t1,t2,t3,t4,t5,$
@@ -249 +274 @@
    cor_l=fltarr(nfovb)
    cor_s=fltarr(nfovb)
-   openr, lun1,cor_landb, /get_lun
-   for i=0, numcanal-1 do begin
+   openr, lun1,cor_landb, /get_lun, ERROR = error
+   IF (error NE 0) then begin
+      ras = report(['eee : can not open for reading '$
+            + '!C' $
+            + cor_landb])
+      STOP
+   ENDIF
+for i=0, numcanal-1 do begin
       readf, lun1, t1,t2,t3,t4,t5,$
              t6,t7,t8,t9,t10,$
@@ -270 +301 @@
 
    free_lun, lun1
-   openr, lun1,cor_seab, /get_lun
+   openr, lun1,cor_seab, /get_lun, ERROR = error
+   IF (error NE 0) then begin
+      ras = report(['eee : can not open for reading '$
+            + '!C' $
+            + cor_seab])
+      STOP
+   ENDIF
    for i=0, numcanal-1 do begin
       readf, lun1, t1,t2,t3,t4,t5,$

trunk/src/msgnuage.pro

@@ -290 +290 @@
 ENDELSE
 
-openw,11,'/tmp/ssminuage.txt'
+fullfilename='/tmp/ssminuage.txt'
+openw,11,fullfilename, ERROR = error
+IF (error NE 0) then begin
+   ras = report(['eee : can not open for writing '$
+         + '!C' $
+         + fullfilename])
+   STOP
+ENDIF
+
 printf,11,"# filename :",file
 printf,11,"# threshold:",threshold

trunk/src/read_amsub1c.pro

@@ -50 +50 @@
     ; Open input file
     ;
-    OPENR,1,filename    
+    OPENR,1,filename, ERROR = error
+IF (error NE 0) then begin
+   ras = report(['eee : can not open for reading'$
+         + '!C' $
+         + 'code : ' + !ERROR_STATE.MSG $
+         + filename])
+   STOP
+ENDIF
+
     ;
     ; Define and read in header structure

trunk/src/ssminuage.pro

@@ -298 +298 @@
 ENDELSE
 
-openw,11,'/tmp/ssminuage.txt'
+fullfilename = '/tmp/ssminuage.txt'
+openw,11,'/tmp/ssminuage.txt', ERROR = error
+IF (error NE 0) then begin
+   ras = report(['eee : can not open for writing '$
+         + '!C' $
+         + fullfilename])
+   STOP
+ENDIF
+
 printf,11,"# filename :",file
 printf,11,"# threshold:",threshold