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

merged satdata

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