Changeset 589

Timestamp:

07/18/12 15:55:11 (12 years ago)

Author:

lelod

Message:

enleve quelques print

File:

• trunk/src/extract_amsu.pro (modified) (4 diffs)

trunk/src/extract_amsu.pro

@@ -148 +148 @@
 ; EVOLUTIONS
 ; ==========
-;
+; - lelod 20120718 
+;
+;   * extension de extract_amsua à amsu a et b validee sur un cas test
+;    en direct (sans passer par traite_amsuab.sh) avec b3
+
 ; 
 ; $Id: extract_amsua.pro 513 2012-04-10 14:50:06Z pinsard $
 ;
 ; $URL: svn+ssh://lelod@forge.ipsl.jussieu.fr/ipsl/forge/projets/varamma/svn/trunk/src/extract_amsua.pro $
-;
-; - lelod 20120420 
-;
-;   * extension de extract_amsua à amsub
 ;
 ; - lelod 20120418
@@ -475 +475 @@
         ENDIF
       moych=fltarr(nbpix)
-print,'valeurs extremes tb',min(amch),min(ch_nadir),max(amch),max(ch_nadir)
+;print,'valeurs extremes tb',min(amch),min(ch_nadir),max(amch),max(ch_nadir)
 ; appel a interpolswath pour ajuster les pixels amsua sur une grille
 ; reguliere dans la fauchee
@@ -488 +488 @@
          mask=landseamask[*,i]
          ind=where(tb gt tbmin,nbon)
-         print,'nbon',nbon
 ; test pour eviter pb d'interpolation de longitude (meridien 180)
          if nbon eq nbpix then begin
@@ -498 +497 @@
 ; selection des taches au sol situees dans la zone d'interet
             zone=where((longrid ge lonmin) and (longrid le lonmax) $
-                          and (latgrid ge latmin) and (latgrid le latmax) and (tbgrid gt tbmin) and (tbgrid lt tbmax), npt)
+                 and (latgrid ge latmin) and (latgrid le latmax) and (tbgrid gt tbmin) and (tbgrid lt tbmax), npt)
 ;print,'wwwtest: nb points zone d interet ',npt
             if npt ne 0 then begin