Changeset 559

Timestamp:

05/22/12 10:01:43 (12 years ago)

Author:

llmlod

Message:

fic orbites separees

File:

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

trunk/src/create_amsu_netcdf.pro

@@ -86 +86 @@
 ;-
 pro create_amsu_netcdf $
-    , file_ncdf, yyyy, mm, dd, hh, mn, ss, lons, lats, datatab, masktab
+    , file_ncdf, yyyy, mm, dd, hh, mn, ss, lons, lats, datatab, masktab, val_err, numch  
 ;
 compile_opt idl2, strictarrsubs
@@ -151 +151 @@
 ; Variable : data :
 ; -----------------
-data_id = NCDF_VARDEF(id, 'tbch5b', [dlong_id,dlatd_id,dtime_id], /float)
+data_id = NCDF_VARDEF(id, 'tb'+numch, [dlong_id,dlatd_id,dtime_id], /float)
 NCDF_ATTPUT, id, data_id, 'units', "Kelvin"
-NCDF_ATTPUT, id, data_id, 'long_name', "AMSU-B Channel 5 Brightness Temperature"
+NCDF_ATTPUT, id, data_id, 'long_name', "AMSU-"+strupcase(strmid(numch,0,1))+" Channel "+strmid(numch,1,1)+" Brightness Temperature"
 NCDF_ATTPUT, id, data_id, 'valid_range', [100,500]
 if (debug eq 1) then begin
    print, 'dans create_amsu_netcdf'
    help, datatab
-   datatab_novm=where(datatab ne -999.)
+   datatab_novm=where(datatab ne val_err)
    help, datatab_novm
 endif
-NCDF_ATTPUT, id, data_id, 'actual_range', [min(datatab[where(datatab ne -999.)]),max(datatab[where(datatab ne -999.)])]
-NCDF_ATTPUT, id, data_id, 'missing_value', -999.
-NCDF_ATTPUT, id, data_id, '_FillValue', -999.
+NCDF_ATTPUT, id, data_id, 'actual_range', [min(datatab[where(datatab ne val_err)]),max(datatab[where(datatab ne val_err)])]
+NCDF_ATTPUT, id, data_id, 'missing_value', val_err
+NCDF_ATTPUT, id, data_id, '_FillValue', val_err
 ;
 ; Variable : Mask :
@@ -171 +171 @@
 NCDF_ATTPUT, id, mask_id, 'long_name', "land-sea mask, 1 all land, 0 all sea"
 NCDF_ATTPUT, id, mask_id, 'valid_range', [0,1]
-NCDF_ATTPUT, id, mask_id, 'actual_range', [min(masktab[where(datatab ne -999.)]),max(masktab[where(datatab ne -999.)])]
-NCDF_ATTPUT, id, mask_id, 'missing_value', -999.
-NCDF_ATTPUT, id, mask_id, '_FillValue', -999.
+NCDF_ATTPUT, id, mask_id, 'missing_value', val_err
+NCDF_ATTPUT, id, mask_id, '_FillValue', val_err
 
 NCDF_CONTROL, id, /ENDEF