Changeset 554

Timestamp:

05/20/12 21:39:02 (12 years ago)

Author:

lelod

Message:

verif correction nadir

File:

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

trunk/src/extract_amsua.pro

@@ -457 +457 @@
         ENDIF
          moych=fltarr(nbpix)
+nfov=nbpix
+
+moytb=fltarr(nfov)
+sigtb=fltarr(nfov)
+for ifov=0,nfov-1 do begin 
+   ind=where(landseamask[ifov,*] eq 1 ,nifov) 
+      moytb[ifov]=mean(ch_nadir[ifov,ind]) 
+      sigtb[ifov]=stdev(ch_nadir[ifovind]) 
+   endfor 
+window,2
+plot,fov_y,moytb,psym=7,xstyle=1,ystyle=1,yrange=[min(moytb)-max(sigtb),max(moytb)+max(sigtb)]
+
+errplot,moytb-sigtb,moytb+sigtb
+
 
 ; appel a interpolswath pour ajuster les pixels amsua sur une grille