Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
ash
ash-iasi
Commits
13e24f0d
Commit
13e24f0d
authored
May 30, 2022
by
Espen Sollum
Browse files
merged satdata
parent
ea3ffb1d
Changes
1
Hide whitespace changes
Inline
Side-by-side
Plot_IASI/regrid_IASI.f90
View file @
13e24f0d
...
...
@@ -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
avg
2
=
sum
(
res_comp3
(
1
:
II
))/
II
avg
3
=
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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment