Changeset 506 for trunk

Timestamp:

03/29/12 23:22:58 (12 years ago)

Author:

lelod

Message:

tentative correction bug ratee dans extract_amsua fovgrid(zone)

File:

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

trunk/src/extract_amsua.pro

@@ -457 +457 @@
                interpolswath,tb,lat,lon,mask,resol,nbgrid,tbgrid,latgrid,longrid,maskgrid
                if cont eq 1L then begin
-                  fovgrid=indgen(nbgrid)+1
+                  fovgrid=indgen(n_elements(tbgrid))+1
                endif
-
+;print,'wwwtest: nb points fov interpole ',n_elements(tbgrid)
 ; selection des taches au sol situees dans la zone d'interet
                zone=where((longrid ge lon_min) and (longrid le lon_max) $
                           and (latgrid ge lat_min) and (latgrid le lat_max) and (tbgrid gt tbmin) and (tbgrid lt tbmax), npt)
+;print,'wwwtest: nb points zone d interet ',npt
                if npt ne 0 then begin
                   if (n_elements(chint) LE 1) then begin