VGAC-FUSION: fix bug that caused temp_11_0um_nom_sounder and...

VGAC-FUSION: fix bug that caused temp_11_0um_nom_sounder and temp_12_0um_nom_sounder to be converted wrong

src/main/cx_vgac_mod.f90

@@ -498,7 +498,8 @@ subroutine READ_VGAC_DATA(Segment_Number, Error_Status)
               !--- convert radiance to noaa units
               call CONVERT_RADIANCE (Sds_Data_2d, Planck_Nu_11um_Sndr, MISSING_VALUE_REAL4)
               !--- convert radiance to brightness temperature
-              call COMPUTE_BT_ARRAY(Bt_11um_Sounder,Sds_Data_2d, &
+              !--- but we need to use the proper coefficients
+              call COMPUTE_BT_ARRAY_SOUNDER(Bt_11um_Sounder,Sds_Data_2d, &
                                     CLAVRX_Ch_List(I_Fusion),MISSING_VALUE_REAL4)
            endif
 
@@ -510,7 +511,7 @@ subroutine READ_VGAC_DATA(Segment_Number, Error_Status)
               !--- convert radiance to noaa units
               call CONVERT_RADIANCE (Sds_Data_2d, Planck_Nu_12um_Sndr, MISSING_VALUE_REAL4)
               !--- convert radiance to brightness temperature
-              call COMPUTE_BT_ARRAY(Bt_12um_Sounder,Sds_Data_2d, &
+              call COMPUTE_BT_ARRAY_SOUNDER(Bt_12um_Sounder,Sds_Data_2d, &
                                     CLAVRX_Ch_List(I_Fusion),MISSING_VALUE_REAL4)
            endif
 

src/main/process_clavrx.F90

@@ -1028,7 +1028,8 @@
          !--- planck for 11 and 12um sounder ch
          if (trim(Sensor%Sensor_Name) == 'AVHRR-IFF' .or. &
              trim(Sensor%Sensor_Name) == 'AVHRR-FUSION' .or. &
-             trim(Sensor%Sensor_Name) == 'VIIRS-IFF') then
+             trim(Sensor%Sensor_Name) == 'VIIRS-IFF' .or. &
+             Sensor%Fusion_Flag) then
             call POPULATE_PLANCK_TABLES_SOUNDER()
          endif