Changeset 493 for trunk

Timestamp:

02/23/12 11:06:47 (12 years ago)

Author:

lelod

Message:

changements print dans extract et creation plot_amsu

Location:

trunk/src

Files:

• extract_amsua.pro (modified) (7 diffs)
• plot_amsu.pro (added)

trunk/src/extract_amsua.pro

@@ -246 +246 @@
 tbmin=100
 tbmax=350
-PRINT, 'debut programme',SYSTIME() 
+PRINT, 'iii, debut programme extract_amsu',SYSTIME() 
 ; lecture fichier land - sea (S. Masson)
 file=project_id_env+'/MASK/ETOPO1_Ice_g_gmt4.nc'
@@ -260 +260 @@
 ; appel au ssprgm qui interpole les fonctions de correction (inutile
 ; de l'appeler a chaque fichier....)
-
 interpol_correc,numch,nbpixel,cor_l,cor_s,swath,track
-
 ; ouverture des fichiers liste (annee, mois, jour, tous satellites) pour
 ; chaque instrument
@@ -328 +326 @@
 
    jnd=where(amalong[midpix,*] gt lon_min-15 and amalong[midpix,*] lt lon_max+15 and amalati[midpix,*] gt lat_min-15 and amalati[midpix,*] lt lat_max+15 ,nzon)
+   print,"iii nb de points dans le domaine geographique ",nzon, SYSTIME()
    if nzon ne 0 then begin
       amalat=amalati[*,jnd]
@@ -335 +334 @@
       tt=ttt[jnd]
       dims = SIZE(amalon, /DIMENSIONS)
-      print,'dimension tableaux extraits',dims
+     ; print,'dimension tableaux extraits',dims
       n_scan=dims[1]
-      PRINT,'il y a des donnees dans la region ', SYSTIME() 
+     ; PRINT,'il y a des donnees dans la region ' 
       amaday=REFORM(ama_scan.scnlindy)
       amafov= fovy_1
@@ -442 +441 @@
                   endelse
                endif else begin
-            ;print, 'www : aucun point dans la zone'
+            print, 'www : aucun point dans la zone'
                endelse
             endif
@@ -476 +475 @@
 ; fin boucle sur les fichiers lus
    endif
-  ; PRINT,'passage au fichier suivant', SYSTIME() 
+   PRINT,'passage au fichier suivant', SYSTIME() 
 endwhile
 labfile:
@@ -500 +499 @@
 
 endif else begin
-  ;  print, 'www : no data to write'
+    print, 'www : no data to write'
 endelse
 ; window,0