Commit 13e24f0d authored by Espen Sollum's avatar Espen Sollum
Browse files

merged satdata

parent ea3ffb1d
......@@ -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
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment