Skip to content

Commit

Permalink
Merge branch 'develop' into CRTMV3_active_sensor
Browse files Browse the repository at this point in the history
  • Loading branch information
@imoradi
imoradi authored Sep 22, 2023
2 parents 156eb37 + 6053b42 commit b42fe2e
Show file tree
Hide file tree
Showing 86 changed files with 11,978 additions and 457 deletions.
20 changes: 14 additions & 6 deletions Get_CRTM_Binary_Files.sh
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,5 @@
foldername="fix_REL-3.0.0_20230303"
#https://bin.ssec.wisc.edu/pub/s4/CRTM/fix_REL-3.0.0_20230802.tgz
foldername="fix_REL-3.0.0_20230802"

filename="${foldername}.tgz"
if test -f "$filename"; then
Expand All @@ -7,15 +8,22 @@ if test -f "$filename"; then
else
#untar the file and move directory to fix
tar -zxvf $filename
mv $foldername fix
cd $foldername/
mv fix ..
cd ..
rmdir $foldername
echo "fix/ directory created from existing $filename file."
fi
else
#download, untar, move
echo "downloading $filename, please wait about 5 minutes (3.3 GB tar file)"
wget ftp://ftp.ssec.wisc.edu/pub/s4/CRTM/$filename # CRTM binary files, add "-q" to suppress output.
tar -zxvf $filename
mv $foldername fix
echo "Downloading $filename, please wait about 5 minutes (4 GB tar file)"
wget https://bin.ssec.wisc.edu/pub/s4/CRTM/$filename # CRTM binary files, add "-q" to suppress output.

tar -zxvf $filename
cd $foldername/
mv fix ..
cd ..
rmdir $foldername
echo "fix/ directory created from downloaded $filename."
fi
echo "Completed."
4 changes: 2 additions & 2 deletions src/Atmosphere/CRTM_Atmosphere_Define.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2539,7 +2539,7 @@ FUNCTION Read_Record( &
atm%Level_Pressure, &
atm%Pressure, &
atm%Temperature, &
!atm%Relative_Humidity, & ! RH APPROACH #1
atm%Relative_Humidity, & ! RH APPROACH #1
atm%Absorber, &
atm%Cloud_Fraction
IF ( io_stat /= 0 ) THEN
Expand All @@ -2549,7 +2549,7 @@ FUNCTION Read_Record( &

! RH APPROACH #2
! Compute the relative humidity
CALL Compute_Relative_Humidity( atm )
!CALL Compute_Relative_Humidity( atm )

! Read the cloud data
IF ( n_clouds > 0 ) THEN
Expand Down
33 changes: 21 additions & 12 deletions src/Build/libsrc/make.dependencies
View file
Original file line number Diff line number Diff line change
Expand Up @@ -18,7 +18,7 @@ CloudCoeff_Define.o : CloudCoeff_Define.f90 Compare_Float_Numbers.o Message_Hand
Common_RTSolution.o : Common_RTSolution.f90 CRTM_RTSolution_Define.o CRTM_Utility.o CRTM_SfcOptics_Define.o CRTM_SfcOptics.o RTV_Define.o CRTM_AtmOptics.o CRTM_AtmOptics_Define.o CRTM_SpcCoeff.o CRTM_Planck_Functions.o CRTM_GeometryInfo_Define.o CRTM_Surface_Define.o CRTM_Atmosphere_Define.o Message_Handler.o CRTM_Parameters.o Type_Kinds.o
Compare_Float_Numbers.o : Compare_Float_Numbers.f90 Type_Kinds.o
CRTM_Adjoint_Module.o : CRTM_Adjoint_Module.f90 RTV_Define.o ASvar_Define.o CSvar_Define.o AOvar_Define.o CRTM_CloudCover_Define.o CRTM_Planck_Functions.o NLTECoeff_Define.o ACCoeff_Define.o CRTM_NLTECorrection.o CRTM_AerosolCoeff.o CRTM_CloudCoeff.o CRTM_AncillaryInput_Define.o CRTM_MoleculeScatter.o CRTM_AntennaCorrection.o CRTM_RTSolution.o CRTM_SfcOptics.o CRTM_SfcOptics_Define.o CRTM_AtmOptics.o CRTM_CloudScatter.o CRTM_AerosolScatter.o CRTM_AtmOptics_Define.o CRTM_AtmAbsorption.o CRTM_Predictor.o CRTM_Predictor_Define.o CRTM_GeometryInfo.o CRTM_GeometryInfo_Define.o CRTM_Atmosphere.o CRTM_Options_Define.o CRTM_RTSolution_Define.o CRTM_ChannelInfo_Define.o CRTM_Geometry_Define.o CRTM_Surface_Define.o CRTM_Atmosphere_Define.o CRTM_SpcCoeff.o CRTM_Parameters.o Message_Handler.o Type_Kinds.o
CRTM_AerosolCoeff.o : CRTM_AerosolCoeff.f90 CRTM_AerosolCoeff.o AerosolCoeff_Define.o Message_Handler.o
CRTM_AerosolCoeff.o : CRTM_AerosolCoeff.f90 AerosolCoeff_IO.o AerosolCoeff_Define.o Message_Handler.o
CRTM_Aerosol_Define.o : CRTM_Aerosol_Define.f90 CRTM_AerosolCoeff.o AerosolCoeff_Define.o Binary_File_Utility.o File_Utility.o Compare_Float_Numbers.o Message_Handler.o Type_Kinds.o
CRTM_AerosolScatter.o : CRTM_AerosolScatter.f90 ASvar_Define.o CRTM_AtmOptics_Define.o CRTM_Interpolation.o CRTM_GeometryInfo_Define.o CRTM_Atmosphere_Define.o CRTM_AerosolCoeff.o CRTM_SpcCoeff.o CRTM_Parameters.o String_Utility.o Message_Handler.o Type_Kinds.o
CRTM_AncillaryInput_Define.o : CRTM_AncillaryInput_Define.f90 Zeeman_Input_Define.o SSU_Input_Define.o
Expand All @@ -30,7 +30,7 @@ CRTM_AtmOptics.o : CRTM_AtmOptics.f90 AOvar_Define.o CRTM_AtmOptics_Define.o CRT
CRTM_Atmosphere_Define.o : CRTM_Atmosphere_Define.f90 CRTM_Relative_Humidity.o CRTM_Aerosol_Define.o CRTM_Cloud_Define.o CRTM_Parameters.o Binary_File_Utility.o File_Utility.o Compare_Float_Numbers.o Message_Handler.o Type_Kinds.o
CRTM_Atmosphere.o : CRTM_Atmosphere.f90 iAtm_Define.o CRTM_Model_Profiles.o CRTM_Atmosphere_Define.o CRTM_Parameters.o Message_Handler.o Type_Kinds.o CRTM_Hypsometric.o
CRTM_ChannelInfo_Define.o : CRTM_ChannelInfo_Define.f90 Sort_Utility.o SensorInfo_Parameters.o CRTM_Parameters.o File_Utility.o Message_Handler.o
CRTM_CloudCoeff.o : CRTM_CloudCoeff.f90 CloudCoeff_IO.o CloudCoeff_Define.o Message_Handler.o
CRTM_CloudCoeff.o : CRTM_CloudCoeff.f90 CloudCoeff_IO.o CloudCoeff_Define.o Message_Handler.o
CRTM_CloudCover_Define.o : CRTM_CloudCover_Define.f90 CRTM_Cloud_Define.o CRTM_Atmosphere_Define.o CRTM_Parameters.o Compare_Float_Numbers.o Message_Handler.o File_Utility.o Type_Kinds.o
CRTM_Cloud_Define.o : CRTM_Cloud_Define.f90 Binary_File_Utility.o File_Utility.o Compare_Float_Numbers.o Message_Handler.o Type_Kinds.o
CRTM_CloudScatter.o : CRTM_CloudScatter.f90 CSvar_Define.o CRTM_AtmOptics_Define.o CRTM_Interpolation.o CRTM_GeometryInfo_Define.o CRTM_Atmosphere_Define.o CRTM_CloudCoeff.o CRTM_SpcCoeff.o CRTM_Parameters.o Message_Handler.o Type_Kinds.o ODPS_CoordinateMapping.o
Expand All @@ -43,14 +43,15 @@ CRTM_GeometryInfo_Define.o : CRTM_GeometryInfo_Define.f90 CRTM_Geometry_Define.o
CRTM_GeometryInfo.o : CRTM_GeometryInfo.f90 CRTM_GeometryInfo_Define.o CRTM_Parameters.o Date_Utility.o Message_Handler.o Type_Kinds.o
CRTM_Hypsometric.o : CRTM_Hypsometric.f90 Type_Kinds.o Message_Handler.o Fundamental_Constants.o CRTM_Parameters.o CRTM_Atmosphere_Define.o
CRTM_Interpolation.o : CRTM_Interpolation.f90 Type_Kinds.o
CRTM_IRiceCoeff.o : CRTM_IRiceCoeff.f90 SEcategory_Define.o Message_Handler.o
CRTM_IRiceCoeff.o : CRTM_IRiceCoeff.f90 SEcategory_Define.o SEcategory_IO.o Message_Handler.o
CRTM_IR_Ice_SfcOptics.o : CRTM_IR_Ice_SfcOptics.f90 CRTM_IRiceCoeff.o CRTM_SEcategory.o CRTM_SfcOptics_Define.o CRTM_GeometryInfo_Define.o CRTM_Surface_Define.o CRTM_SpcCoeff.o CRTM_Parameters.o Spectral_Units_Conversion.o Message_Handler.o Type_Kinds.o
CRTM_IRlandCoeff.o : CRTM_IRlandCoeff.f90 SEcategory_Define.o Message_Handler.o
CRTM_IRlandCoeff.o : CRTM_IRlandCoeff.f90 SEcategory_Define.o SEcategory_IO.o Message_Handler.o
CRTM_IR_Land_SfcOptics.o : CRTM_IR_Land_SfcOptics.f90 CRTM_IRlandCoeff.o CRTM_SEcategory.o CRTM_SfcOptics_Define.o CRTM_GeometryInfo_Define.o CRTM_Surface_Define.o CRTM_SpcCoeff.o CRTM_Parameters.o Message_Handler.o Type_Kinds.o
CRTM_IRsnowCoeff.o : CRTM_IRsnowCoeff.f90 SEcategory_Define.o Message_Handler.o
CRTM_IR_Snow_SfcOptics.o : CRTM_IR_Snow_SfcOptics.f90 CRTM_IRsnowCoeff.o CRTM_SEcategory.o CRTM_SfcOptics_Define.o CRTM_GeometryInfo_Define.o CRTM_Surface_Define.o CRTM_SpcCoeff.o CRTM_Parameters.o Spectral_Units_Conversion.o Message_Handler.o Type_Kinds.o
CRTM_IRSnowEM.o : CRTM_IRSnowEM.f90 IRsnowCoeff_Define.o CRTM_Interpolation.o CRTM_Parameters.o Message_Handler.o Type_Kinds.o
CRTM_IRsnowCoeff.o : CRTM_IRsnowCoeff.f90 SEcategory_Define.o SEcategory_IO.o IRsnowCoeff_Define.o IRsnowCoeff_IO.o Message_Handler.o
CRTM_IR_Snow_SfcOptics.o : CRTM_IR_Snow_SfcOptics.f90 CRTM_IRsnowCoeff.o CRTM_SEcategory.o CRTM_IRSnowEM.o CRTM_SfcOptics_Define.o CRTM_GeometryInfo_Define.o CRTM_Surface_Define.o CRTM_SpcCoeff.o CRTM_Parameters.o Spectral_Units_Conversion.o Message_Handler.o Type_Kinds.o
CRTM_IRSSEM.o : CRTM_IRSSEM.f90 IRwaterCoeff_Define.o CRTM_Interpolation.o CRTM_Parameters.o Message_Handler.o Type_Kinds.o
CRTM_IRwaterCoeff.o : CRTM_IRwaterCoeff.f90 IRwaterCoeff_Define.o Message_Handler.o
CRTM_IRwaterCoeff.o : CRTM_IRwaterCoeff.f90 IRwaterCoeff_Define.o IRwaterCoeff_IO.o Message_Handler.o
CRTM_IR_Water_SfcOptics.o : CRTM_IR_Water_SfcOptics.f90 CRTM_IRwaterCoeff.o CRTM_IRSSEM.o CRTM_SfcOptics_Define.o CRTM_GeometryInfo_Define.o CRTM_Surface_Define.o CRTM_SpcCoeff.o CRTM_Parameters.o Message_Handler.o Type_Kinds.o
CRTM_K_Matrix_Module.o : CRTM_K_Matrix_Module.f90 RTV_Define.o ASvar_Define.o CSvar_Define.o AOvar_Define.o CRTM_CloudCover_Define.o CRTM_Planck_Functions.o NLTECoeff_Define.o ACCoeff_Define.o CRTM_NLTECorrection.o CRTM_AerosolCoeff.o CRTM_CloudCoeff.o CRTM_AncillaryInput_Define.o CRTM_MoleculeScatter.o CRTM_AntennaCorrection.o CRTM_RTSolution.o CRTM_Active_Sensor.o CRTM_SfcOptics.o CRTM_SfcOptics_Define.o CRTM_AtmOptics.o CRTM_CloudScatter.o CRTM_AerosolScatter.o CRTM_AtmOptics_Define.o CRTM_AtmAbsorption.o CRTM_Predictor.o CRTM_Predictor_Define.o CRTM_GeometryInfo.o CRTM_GeometryInfo_Define.o CRTM_Atmosphere.o CRTM_Options_Define.o CRTM_RTSolution_Define.o CRTM_ChannelInfo_Define.o CRTM_Geometry_Define.o CRTM_Surface_Define.o CRTM_Atmosphere_Define.o CRTM_SpcCoeff.o CRTM_Parameters.o Message_Handler.o Type_Kinds.o
CRTM_LifeCycle.o : CRTM_LifeCycle.f90 CRTM_MWwaterCoeff.o CRTM_VISiceCoeff.o CRTM_VISsnowCoeff.o CRTM_VISlandCoeff.o CRTM_VISwaterCoeff.o CRTM_IRiceCoeff.o CRTM_IRsnowCoeff.o CRTM_IRlandCoeff.o CRTM_IRwaterCoeff.o CRTM_CloudCoeff.o CRTM_AerosolCoeff.o CRTM_TauCoeff.o CRTM_SpcCoeff.o CRTM_ChannelInfo_Define.o Message_Handler.o
Expand Down Expand Up @@ -81,13 +82,13 @@ CRTM_Surface_Define.o : CRTM_Surface_Define.f90 CRTM_SensorData_Define.o Binary_
CRTM_Tangent_Linear_Module.o : CRTM_Tangent_Linear_Module.f90 RTV_Define.o ASvar_Define.o CSvar_Define.o AOvar_Define.o CRTM_CloudCover_Define.o CRTM_Planck_Functions.o NLTECoeff_Define.o ACCoeff_Define.o CRTM_NLTECorrection.o CRTM_AerosolCoeff.o CRTM_CloudCoeff.o CRTM_AncillaryInput_Define.o CRTM_MoleculeScatter.o CRTM_AntennaCorrection.o CRTM_RTSolution.o CRTM_SfcOptics.o CRTM_SfcOptics_Define.o CRTM_AtmOptics.o CRTM_CloudScatter.o CRTM_AerosolScatter.o CRTM_AtmOptics_Define.o CRTM_AtmAbsorption.o CRTM_Predictor.o CRTM_Predictor_Define.o CRTM_GeometryInfo.o CRTM_GeometryInfo_Define.o CRTM_Atmosphere.o CRTM_Options_Define.o CRTM_RTSolution_Define.o CRTM_ChannelInfo_Define.o CRTM_Geometry_Define.o CRTM_Surface_Define.o CRTM_Atmosphere_Define.o CRTM_SpcCoeff.o CRTM_Parameters.o Message_Handler.o Type_Kinds.o
CRTM_TauCoeff.o : CRTM_TauCoeff.f90 CRTM_SensorInfo.o ODZeeman_TauCoeff.o TauCoeff_Define.o ODSSU_Define.o ODSSU_TauCoeff.o ODPS_Define.o ODPS_TauCoeff.o ODAS_Define.o ODAS_TauCoeff.o CRTM_Parameters.o Message_Handler.o Binary_File_Utility.o File_Utility.o Type_Kinds.o
CRTM_Utility.o : CRTM_Utility.f90 CRTM_Parameters.o Message_Handler.o Type_Kinds.o
CRTM_VISiceCoeff.o : CRTM_VISiceCoeff.f90 SEcategory_Define.o Message_Handler.o
CRTM_VISiceCoeff.o : CRTM_VISiceCoeff.f90 SEcategory_Define.o SEcategory_IO.o Message_Handler.o
CRTM_VIS_Ice_SfcOptics.o : CRTM_VIS_Ice_SfcOptics.f90 CRTM_VISiceCoeff.o CRTM_SEcategory.o CRTM_SfcOptics_Define.o CRTM_GeometryInfo_Define.o CRTM_Surface_Define.o CRTM_SpcCoeff.o CRTM_Parameters.o Spectral_Units_Conversion.o Message_Handler.o Type_Kinds.o
CRTM_VISlandCoeff.o : CRTM_VISlandCoeff.f90 SEcategory_Define.o Message_Handler.o
CRTM_VISlandCoeff.o : CRTM_VISlandCoeff.f90 SEcategory_Define.o SEcategory_IO.o Message_Handler.o
CRTM_VIS_Land_SfcOptics.o : CRTM_VIS_Land_SfcOptics.f90 CRTM_VISlandCoeff.o CRTM_SEcategory.o CRTM_SfcOptics_Define.o CRTM_GeometryInfo_Define.o CRTM_Surface_Define.o CRTM_SpcCoeff.o CRTM_Parameters.o Spectral_Units_Conversion.o Message_Handler.o Type_Kinds.o
CRTM_VISsnowCoeff.o : CRTM_VISsnowCoeff.f90 SEcategory_Define.o Message_Handler.o
CRTM_VISsnowCoeff.o : CRTM_VISsnowCoeff.f90 SEcategory_Define.o SEcategory_IO.o Message_Handler.o
CRTM_VIS_Snow_SfcOptics.o : CRTM_VIS_Snow_SfcOptics.f90 CRTM_VISsnowCoeff.o CRTM_SEcategory.o CRTM_SfcOptics_Define.o CRTM_GeometryInfo_Define.o CRTM_Surface_Define.o CRTM_SpcCoeff.o CRTM_Parameters.o Spectral_Units_Conversion.o Message_Handler.o Type_Kinds.o
CRTM_VISwaterCoeff.o : CRTM_VISwaterCoeff.f90 SEcategory_Define.o Message_Handler.o
CRTM_VISwaterCoeff.o : CRTM_VISwaterCoeff.f90 SEcategory_Define.o SEcategory_IO.o Message_Handler.o
CRTM_VIS_Water_SfcOptics.o : CRTM_VIS_Water_SfcOptics.f90 CRTM_VISwaterCoeff.o CRTM_SEcategory.o CRTM_SfcOptics_Define.o CRTM_GeometryInfo_Define.o CRTM_Surface_Define.o CRTM_SpcCoeff.o CRTM_Parameters.o Spectral_Units_Conversion.o Message_Handler.o Type_Kinds.o
CSvar_Define.o : CSvar_Define.f90 CRTM_Interpolation.o Binary_File_Utility.o File_Utility.o Compare_Float_Numbers.o Message_Handler.o Type_Kinds.o
DateTime_Utility.o : DateTime_Utility.f90 Date_Utility.o Type_Kinds.o
Expand All @@ -103,7 +104,13 @@ Fundamental_Constants.o : Fundamental_Constants.f90 Type_Kinds.o
Guillou.o : Guillou.f90 Fundamental_Constants.o Type_Kinds.o
Hyperbolic_Step.o : Hyperbolic_Step.f90 Type_Kinds.o
iAtm_Define.o : iAtm_Define.f90 CRTM_Parameters.o Message_Handler.o Type_Kinds.o
IRwaterCoeff_Define.o : IRwaterCoeff_Define.f90 Binary_File_Utility.o File_Utility.o Compare_Float_Numbers.o Message_Handler.o Type_Kinds.o
IRwaterCoeff_Define.o : IRwaterCoeff_Define.f90 Binary_File_Utility.o File_Utility.o Compare_Float_Numbers.o Message_Handler.o Type_Kinds.o
IRwaterCoeff_netCDF_IO.o : IRwaterCoeff_netCDF_IO.f90 IRwaterCoeff_Define.o String_Utility.o File_Utility.o Message_Handler.o Type_Kinds.o
IRwaterCoeff_IO.o : IRwaterCoeff_IO.f90 IRwaterCoeff_netCDF_IO.o IRwaterCoeff_Define.o File_Utility.o Message_Handler.o Type_Kinds.o
IRsnowCoeff_Define.o : IRsnowCoeff_Define.f90 Binary_File_Utility.o File_Utility.o Compare_Float_Numbers.o Message_Handler.o Type_Kinds.o
IRsnowCoeff_Binary_IO.o : IRsnowCoeff_Binary_IO.f90 IRsnowCoeff_Define.o String_Utility.o File_Utility.o Message_Handler.o Type_Kinds.o
IRsnowCoeff_netCDF_IO.o : IRsnowCoeff_netCDF_IO.f90 IRsnowCoeff_Define.o String_Utility.o File_Utility.o Message_Handler.o Type_Kinds.o
IRsnowCoeff_IO.o : IRsnowCoeff_IO.f90 IRsnowCoeff_netCDF_IO.o IRsnowCoeff_Binary_IO.o IRsnowCoeff_Define.o File_Utility.o Message_Handler.o Type_Kinds.o
Large_Scale_Correction_Module.o : Large_Scale_Correction_Module.f90 CRTM_Interpolation.o FitCoeff_Define.o Type_Kinds.o
Liu.o : Liu.f90 Fundamental_Constants.o Type_Kinds.o
LSEatlas_Define.o : LSEatlas_Define.f90 Binary_File_Utility.o File_Utility.o Compare_Float_Numbers.o Message_Handler.o Type_Kinds.o
Expand Down Expand Up @@ -166,6 +173,8 @@ Reflection_Correction_Module.o : Reflection_Correction_Module.f90 FitCoeff_Defin
RTV_Define.o : RTV_Define.f90 CRTM_SfcOptics.o SensorInfo_Parameters.o CRTM_Parameters.o Message_Handler.o Type_Kinds.o
Search_Utility.o : Search_Utility.f90 Message_Handler.o Type_Kinds.o
SEcategory_Define.o : SEcategory_Define.f90 Binary_File_Utility.o File_Utility.o Compare_Float_Numbers.o Message_Handler.o Type_Kinds.o
SEcategory_netCDF_IO.o : SEcategory_netCDF_IO.f90 SEcategory_Define.o String_Utility.o File_Utility.o Message_Handler.o Type_Kinds.o
SEcategory_IO.o : SEcategory_IO.f90 SEcategory_netCDF_IO.o SEcategory_Define.o File_Utility.o Message_Handler.o Type_Kinds.o
SensorInfo_Parameters.o : SensorInfo_Parameters.f90
Slope_Variance.o : Slope_Variance.f90 Hyperbolic_Step.o Type_Kinds.o
Small_Scale_Correction_Module.o : Small_Scale_Correction_Module.f90 FitCoeff_Define.o Type_Kinds.o
Expand Down
8 changes: 5 additions & 3 deletions src/Build/libsrc/make.filelist
View file
Original file line number Diff line number Diff line change
Expand Up @@ -33,8 +33,9 @@ FSRC_FILES = \
AerosolCoeff_Define.f90 AerosolCoeff_Binary_IO.f90 AerosolCoeff_netCDF_IO.f90 AerosolCoeff_IO.f90 \
CRTM_Options_Define.f90 \
CRTM_AOD_Module.f90 \
IRwaterCoeff_Define.f90 \
SEcategory_Define.f90 \
IRwaterCoeff_Define.f90 IRwaterCoeff_IO.f90 IRwaterCoeff_netCDF_IO.f90 \
IRsnowCoeff_Define.f90 IRsnowCoeff_IO.f90 IRsnowCoeff_netCDF_IO.f90 IRsnowCoeff_Binary_IO.f90 \
SEcategory_Define.f90 SEcategory_IO.f90 SEcategory_netCDF_IO.f90\
LSEatlas_Define.f90 \
MWwaterCoeff_Define.f90 \
FitCoeff_Define.f90 \
Expand Down Expand Up @@ -88,7 +89,7 @@ FSRC_FILES = \
CRTM_SfcOptics.f90 \
CRTM_IR_Land_SfcOptics.f90 CRTM_IR_Water_SfcOptics.f90 CRTM_IR_Snow_SfcOptics.f90 CRTM_IR_Ice_SfcOptics.f90 \
CRTM_MW_Land_SfcOptics.f90 CRTM_MW_Water_SfcOptics.f90 CRTM_MW_Snow_SfcOptics.f90 CRTM_MW_Ice_SfcOptics.f90 \
CRTM_VIS_Land_SfcOptics.f90 CRTM_VIS_Water_SfcOptics.f90 CRTM_VIS_Snow_SfcOptics.f90 CRTM_VIS_Ice_SfcOptics.f90 \
CRTM_VIS_Land_SfcOptics.f90 CRTM_VIS_Water_SfcOptics.f90 CRTM_VIS_Snow_SfcOptics.f90 CRTM_VIS_Ice_SfcOptics.f90 \
CRTM_SEcategory.f90 \
CRTM_LowFrequency_MWSSEM.f90 \
CRTM_Fastem1.f90 \
Expand All @@ -100,6 +101,7 @@ FSRC_FILES = \
Guillou.f90 Ellison.f90 Liu.f90 \
Fresnel.f90 \
CRTM_IRSSEM.f90 \
CRTM_IRSnowEM.f90 \
CRTM_AtmOptics.f90 CRTM_AtmOptics_Define.f90 AOvar_Define.f90 \
CRTM_Planck_Functions.f90 \
RTV_Define.f90 \
Expand Down
9 changes: 9 additions & 0 deletions src/CMakeLists.txt
View file
Original file line number Diff line number Diff line change
Expand Up @@ -66,9 +66,17 @@ list( APPEND crtm_src_files
Coefficients/CRTM_VISwaterCoeff.f90
Coefficients/EmisCoeff/IR_Land/LSEatlas/LSEatlas_Define.f90
Coefficients/EmisCoeff/IR_Water/IRwaterCoeff_Define.f90
Coefficients/EmisCoeff/IR_Water/IRwaterCoeff_IO.f90
Coefficients/EmisCoeff/IR_Water/IRwaterCoeff_netCDF_IO.f90
Coefficients/EmisCoeff/IR_Snow/IRsnowCoeff_Define.f90
Coefficients/EmisCoeff/IR_Snow/IRsnowCoeff_IO.f90
Coefficients/EmisCoeff/IR_Snow/IRsnowCoeff_Binary_IO.f90
Coefficients/EmisCoeff/IR_Snow/IRsnowCoeff_netCDF_IO.f90
Coefficients/EmisCoeff/MW_Water/MWwaterCoeff_Define.f90
Coefficients/EmisCoeff/MW_Water/MWwaterLUT/MWwaterLUT_Define.f90
Coefficients/EmisCoeff/SEcategory/SEcategory_Define.f90
Coefficients/EmisCoeff/SEcategory/SEcategory_IO.f90
Coefficients/EmisCoeff/SEcategory/SEcategory_netCDF_IO.f90
Coefficients/FitCoeff/FitCoeff_Define.f90
Coefficients/FitCoeff/FitCoeff_Destroy.inc
Coefficients/FitCoeff/FitCoeff_Equal.inc
Expand Down Expand Up @@ -142,6 +150,7 @@ list( APPEND crtm_src_files
SfcOptics/CRTM_VIS_Snow_SfcOptics.f90
SfcOptics/CRTM_VIS_Water_SfcOptics.f90
SfcOptics/IR_Water/IRSSEM/CRTM_IRSSEM.f90
SfcOptics/IR_Snow/CRTM_IRSnowEM.f90
SfcOptics/MW_Water/FASTEM_MWSSEM/Azimuth_Emissivity_F6_Module.f90
SfcOptics/MW_Water/FASTEM_MWSSEM/Azimuth_Emissivity_Module.f90
SfcOptics/MW_Water/FASTEM_MWSSEM/CRTM_Fastem1.f90
Expand Down
7 changes: 4 additions & 3 deletions src/CRTM_Adjoint_Module.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1141,7 +1141,7 @@ FUNCTION profile_solution (m, Opt, AncillaryInput) RESULT( Error_Status )
END IF

! The radiance post-processing
CALL Post_Process_RTSolution(RTSolution(ln,m), &
CALL Post_Process_RTSolution(Opt, RTSolution(ln,m), &
NLTE_Predictor, &
ChannelIndex, SensorIndex, &
compute_antenna_correction, GeometryInfo)
Expand All @@ -1160,7 +1160,7 @@ FUNCTION profile_solution (m, Opt, AncillaryInput) RESULT( Error_Status )
! Perform clear-sky post and pre-processing
IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN
! Radiance post-processing
CALL Post_Process_RTSolution(RTSolution_Clear, &
CALL Post_Process_RTSolution(Opt, RTSolution_Clear, &
NLTE_Predictor, &
ChannelIndex, SensorIndex, &
compute_antenna_correction, GeometryInfo)
Expand Down Expand Up @@ -1476,10 +1476,11 @@ END FUNCTION profile_solution
! 3. Apply antenna correction to brightness temperature
! ----------------------------------------------------------------

SUBROUTINE Post_Process_RTSolution(rts, &
SUBROUTINE Post_Process_RTSolution(Opt, rts, &
NLTE_Predictor, &
ChannelIndex, SensorIndex, &
compute_antenna_correction, GeometryInfo)
TYPE(CRTM_Options_type), INTENT(IN) :: Opt
TYPE(CRTM_RTSolution_type), INTENT(IN OUT) :: rts
TYPE(NLTE_Predictor_type), INTENT(IN) :: NLTE_Predictor
INTEGER, INTENT(IN) :: ChannelIndex, SensorIndex
Expand Down
Loading

0 comments on commit b42fe2e

Please sign in to comment.