Changeset 599 for trunk

Timestamp:

07/23/12 19:41:58 (12 years ago)

Author:

llmlod

Message:

petite modif sur la lecture du nom de fichier

File:

• trunk/src/amsu2ncdf.pro (modified) (8 diffs)

trunk/src/amsu2ncdf.pro

@@ -147 +147 @@
 ;geomax = geolocation_to_string_idl(lon_max, lat_max, look,1)
 
-testfilename='/homedata/eymard/varamma_d/AMSU/' $
+file='/homedata/eymard/varamma_d/AMSU/' $
    + string(yyyy,format='(I4.4)') + '/' $
    + string(mm,format='(I2.2)')   + '/' $
@@ -155 +155 @@
    + '*.dat'
 ;   + geomin + '_' + geomax + '.dat'
+
+testfilename=FILE_SEARCH(file)
 
 print, testfilename
@@ -197 +199 @@
 ; arrondi au 0.1 superieur pour lisser un peu mais pas trop
 seuil_lat=CEIL(MAX([dif_bor])/2*10)/10.
-;print, seuil_lat
+print, seuil_lat
 
 ;seuil longitude = MAX((difference de longitude sur une ligne)/2)
@@ -206 +208 @@
 ; arrondi au 0.1 superieur pour lisser un peu mais pas trop
 seuil_lon=CEIL(MAX(dif_lon[WHERE(dif_lon LT 1)])/2*10)/10.
-;print, seuil_lon
+print, seuil_lon
 
 ; initialisation
@@ -268 +270 @@
 
  file_ncdf=project_id_env+ 'AMSU/' $
-   + string(yyyy,format='(I4.4)') + '/' $
-   + string(mm,format='(I2.2)')   + '/' $
    + numch + '_' $
    + string(yyyy,format='(I4.4)') $
@@ -297 +297 @@
     LATMIN=minlat, LONMIN=minlon, $
     LATMAX=maxlat, LONMAX=maxlon, $
-    max_value=280., min_value=241., missing=val_err)
+    max_value=280., min_value=235., missing=val_err)
 
   lewh=where(tabcolor ne val_err, cnt, complement=lewhcmpl)
@@ -316 +316 @@
   MAP_CONTINENTS, /coasts, color=0
 
-saveimage, 'test.png', PNG=PNG
+;saveimage, 'test_b3_05.png', PNG=PNG
 ;saveimage, '20060802_ficdat_orb2_sajust.png', PNG=PNG
 
@@ -345 +345 @@
    MAP_CONTINENTS, /coasts, color=0
 
-saveimage, 'essai_mask.png', PNG=PNG
+;saveimage, 'essai_mask.png', PNG=PNG
 ;saveimage, '20060802_mask_orb2_sajust.png', PNG=PNG