merged satdata

Plot_IASI/regrid_IASI.f90

@@ -127,6 +127,7 @@ program regrid_IASI
         INDEX2=0
         avg1=0.0
         avg2=0.0
+        avg3=0.0
 
         do j=1,iline
           if (abs(lat(J)) < 89.) sensX = sensXorg/abs(cos(lat(J)*3.14/180.))
@@ -146,9 +147,10 @@ program regrid_IASI
         end do
 
         if (II.gt.0) then
+           ! TODO : these are not used?
           avg1=sum(res_comp1(1:II))/II
           avg2=sum(res_comp2(1:II))/II
-          avg2=sum(res_comp3(1:II))/II
+          avg3=sum(res_comp3(1:II))/II
           min_err=minval(res_err)       !Closest grid
           INDEX1=MINLOC(res_err,DIM=1)  !Index to corresponding minumum 
 !INDEX2=MINLOC(res_err,DIM=1,MASK=res_comp1.GT.0)  !Index to grid with comp1 > 0