Skip to content
Snippets Groups Projects
Commit 8f971d1e authored by swanzong's avatar swanzong
Browse files

Add GOES-IL-IMAGER support to fixed grid GVAR.

parent aa8f59dc
No related branches found
No related tags found
No related merge requests found
Pipeline #59361 passed
......@@ -716,7 +716,7 @@ module SENSOR_MOD
!--- 2018-05-14T18:30:40.5Z
L1b_Full_File_Name = trim(Image%Level1b_Path)//trim(Image%Level1b_Name)
if (trim(Sensor%Sensor_Name) .eq. "GOES-MP-IMAGER") then
if (trim(Sensor%Sensor_Name) .eq. "GOES-MP-IMAGER" .or. trim(Sensor%Sensor_Name) .eq. "GOES-IL-IMAGER") then
!--- GVAR, Image Start
call READ_NETCDF_GLOBAL_ATTRIBUTE(trim(L1b_Full_File_Name), 'start_year', Start_Year_Tmp)
......@@ -1558,7 +1558,7 @@ module SENSOR_MOD
endif
!--- GOES-8 GVAR Fixed Grid Static Nav Test
if (index(Image%Level1b_Name, 'goes8') > 0 .AND. INDEX(trim(Image%Level1b_Name), 'fcdr') > 0 &
if (index(Image%Level1b_Name, 'goes08') > 0 .AND. INDEX(trim(Image%Level1b_Name), 'fcdr') > 0 &
.AND. .NOT. INDEX(trim(Image%Level1b_Name) , '_HIGH_RES_') > 0 ) then
Sensor%Sensor_Name = 'GOES-IL-IMAGER'
......@@ -1579,7 +1579,7 @@ module SENSOR_MOD
endif
!--- GOES-9 GVAR Fixed Grid Static Nav Test
if (index(Image%Level1b_Name, 'goes9') > 0 .AND. INDEX(trim(Image%Level1b_Name), 'fcdr') > 0 &
if (index(Image%Level1b_Name, 'goes09') > 0 .AND. INDEX(trim(Image%Level1b_Name), 'fcdr') > 0 &
.AND. .NOT. INDEX(trim(Image%Level1b_Name) , '_HIGH_RES_') > 0 ) then
Sensor%Sensor_Name = 'GOES-IL-IMAGER'
......@@ -3358,7 +3358,7 @@ module SENSOR_MOD
!
!--------------------------------------------------------------------------------------------------
subroutine SET_SENSOR_CHANNEL_MAPPING()
print*,'set sensor mapping', Sensor%WMO_Id
select case(Sensor%WMO_Id)
case(289) ! FCI MTG_I1
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment