FV3 Bundle
odps_predictor Module Reference

Data Types

type  ivar_type
 

Functions/Subroutines

subroutine, public odps_assemble_predictors (TC, Atm, GeoInfo, Predictor)
 
subroutine, public odps_assemble_predictors_tl (TC, Predictor, Atm_TL, Predictor_TL)
 
subroutine, public odps_assemble_predictors_ad (TC, Predictor, Predictor_AD, Atm_AD)
 
subroutine, public odps_compute_predictor (Group_ID, Temperature, Absorber, Ref_Level_Pressure, Ref_Temperature, Ref_Absorber, secang, Predictor)
 
subroutine, public odps_compute_predictor_tl (Group_ID, Temperature, Absorber, Ref_Temperature, Ref_Absorber, secang, Predictor, Temperature_TL, Absorber_TL, Predictor_TL)
 
subroutine, public odps_compute_predictor_ad (Group_ID, Temperature, Absorber, Ref_Temperature, Ref_Absorber, secang, Predictor, Predictor_AD, Temperature_AD, Absorber_AD)
 
subroutine, public odps_compute_predictor_odas (Temperature, Vapor, Level_Pressure, Pressure, secant_angle, Alpha, Alpha_C1, Alpha_C2, Predictor)
 
subroutine, public odps_compute_predictor_odas_tl (Temperature, Vapor, Pressure, secant_angle, Alpha, Alpha_C2, Predictor, Temperature_TL, Vapor_TL, Predictor_TL)
 
subroutine, public odps_compute_predictor_odas_ad (Temperature, Vapor, Pressure, secant_angle, Alpha, Alpha_C2, Predictor, Predictor_AD, Temperature_AD, Vapor_AD)
 
pure integer function, public odps_get_max_n_predictors (Group_Index)
 
pure integer function, public odps_get_n_components (Group_Index)
 
pure integer function, public odps_get_n_absorbers (Group_Index)
 
pure integer function, public odps_get_component_id (Component_Index, Group_Index)
 
pure integer function, public odps_get_absorber_id (Absorber_Index, Group_Index)
 
pure integer function, public odps_get_ozone_component_id (Group_Index)
 
pure logical function, public odps_get_savefwvflag ()
 

Variables

character(*), parameter, private module_version_id = '$Id: $'
 
integer, parameter n_g = 3
 
integer, dimension(n_g), parameter n_components_g = (/8, 5, 2/)
 
integer, dimension(n_g), parameter n_absorbers_g = (/6, 3, 1/)
 
integer, dimension(n_g), parameter max_n_predictors_g = (/18, 15, 14/)
 
integer, parameter, public group_1 = 1
 
integer, parameter, public group_2 = 2
 
integer, parameter, public group_3 = 3
 
integer, dimension(8), parameter n_predictors_g1 = (/ 7, 18, 7, 11, 11, 14, 10, 11 /)
 
integer, dimension(5), parameter n_predictors_g2 = (/ 7, 15, 7, 11, 10 /)
 
integer, dimension(2), parameter n_predictors_g3 = (/ 7, 14 /)
 
integer, parameter, public tot_comid = 10
 
integer, parameter dry_comid_g1 = 7
 
integer, parameter dry_comid_g2 = 20
 
integer, parameter, public wlo_comid = 101
 
integer, parameter wco_comid = 15
 
integer, parameter ozo_comid = 114
 
integer, parameter, public co2_comid = 121
 
integer, parameter n2o_comid = 120
 
integer, parameter co_comid = 119
 
integer, parameter ch4_comid = 118
 
integer, parameter edry_comid = 113
 
integer, parameter, public wet_comid = 12
 
integer, parameter comp_dry_ir = 1
 
integer, parameter comp_wlo_ir = 2
 
integer, parameter comp_wco_ir = 3
 
integer, parameter comp_ozo_ir = 4
 
integer, parameter comp_co2_ir = 5
 
integer, parameter comp_n2o_ir = 6
 
integer, parameter comp_co_ir = 7
 
integer, parameter comp_ch4_ir = 8
 
integer, parameter comp_dry_mw = 1
 
integer, parameter comp_wet_mw = 2
 
integer, dimension(8), parameter component_id_map_g1 = (/ DRY_ComID_G1, WLO_ComID, WCO_ComID, OZO_ComID, CO2_ComID, N2O_ComID, CO_ComID , CH4_ComID /)
 
integer, dimension(5), parameter component_id_map_g2 = (/ DRY_ComID_G2, WLO_ComID, WCO_ComID, OZO_ComID, CO2_ComID /)
 
integer, dimension(2), parameter component_id_map_g3 = (/ EDRY_ComID, WET_ComID /)
 
integer, parameter h2o_id = 1
 
integer, parameter co2_id = 2
 
integer, parameter o3_id = 3
 
integer, parameter n2o_id = 4
 
integer, parameter co_id = 5
 
integer, parameter ch4_id = 6
 
integer, parameter abs_h2o_ir = 1
 
integer, parameter abs_o3_ir = 2
 
integer, parameter abs_co2_ir = 3
 
integer, parameter abs_n2o_ir = 4
 
integer, parameter abs_co_ir = 5
 
integer, parameter abs_ch4_ir = 6
 
integer, parameter abs_h2o_mw = 1
 
integer, dimension(6), parameter absorber_id_map_g1 = (/ H2O_ID, O3_ID, CO2_ID, N2O_ID, CO_ID, CH4_ID /)
 
integer, dimension(3), parameter absorber_id_map_g2 = (/ H2O_ID, O3_ID, CO2_ID /)
 
integer, dimension(1), parameter absorber_id_map_g3 = (/ H2O_ID /)
 
real(fp), parameter zero = 0.0_fp
 
real(fp), parameter one = 1.0_fp
 
real(fp), parameter two = 2.0_fp
 
real(fp), parameter three = 3.0_fp
 
real(fp), parameter four = 4.0_fp
 
real(fp), parameter ten = 10.0_fp
 
real(fp), parameter point_25 = 0.25_fp
 
real(fp), parameter point_5 = 0.5_fp
 
real(fp), parameter point_75 = 0.75_fp
 
real(fp), parameter one_point_5 = 1.5_fp
 
real(fp), parameter one_point_25 = 1.25_fp
 
real(fp), parameter one_point_75 = 1.75_fp
 
logical, parameter, public allow_optran = .TRUE.
 

Function/Subroutine Documentation

◆ odps_assemble_predictors()

subroutine, public odps_predictor::odps_assemble_predictors ( type(odps_type), intent(in)  TC,
type(crtm_atmosphere_type), intent(in)  Atm,
type(crtm_geometryinfo_type), intent(in)  GeoInfo,
type(odps_predictor_type), intent(inout)  Predictor 
)

Definition at line 293 of file ODPS_Predictor.f90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ odps_assemble_predictors_ad()

subroutine, public odps_predictor::odps_assemble_predictors_ad ( type(odps_type), intent(in)  TC,
type(odps_predictor_type), intent(in)  Predictor,
type(odps_predictor_type), intent(inout)  Predictor_AD,
type(crtm_atmosphere_type), intent(inout)  Atm_AD 
)

Definition at line 517 of file ODPS_Predictor.f90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ odps_assemble_predictors_tl()

subroutine, public odps_predictor::odps_assemble_predictors_tl ( type(odps_type), intent(in)  TC,
type(odps_predictor_type), intent(in)  Predictor,
type(crtm_atmosphere_type), intent(in)  Atm_TL,
type(odps_predictor_type), intent(inout)  Predictor_TL 
)

Definition at line 412 of file ODPS_Predictor.f90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ odps_compute_predictor()

subroutine, public odps_predictor::odps_compute_predictor ( integer, intent(in)  Group_ID,
real(fp), dimension(:), intent(in)  Temperature,
real(fp), dimension(:, :), intent(in)  Absorber,
real(fp), dimension(0:), intent(in)  Ref_Level_Pressure,
real(fp), dimension(:), intent(in)  Ref_Temperature,
real(fp), dimension(:, :), intent(in)  Ref_Absorber,
real(fp), dimension(:), intent(in)  secang,
type(odps_predictor_type), intent(inout)  Predictor 
)

Definition at line 652 of file ODPS_Predictor.f90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ odps_compute_predictor_ad()

subroutine, public odps_predictor::odps_compute_predictor_ad ( integer, intent(in)  Group_ID,
real(fp), dimension(:), intent(in)  Temperature,
real(fp), dimension(:, :), intent(in)  Absorber,
real(fp), dimension(:), intent(in)  Ref_Temperature,
real(fp), dimension(:, :), intent(in)  Ref_Absorber,
real(fp), dimension(:), intent(in)  secang,
type(odps_predictor_type), intent(in), target  Predictor,
type(odps_predictor_type), intent(inout)  Predictor_AD,
real(fp), dimension(:), intent(inout)  Temperature_AD,
real(fp), dimension(:, :), intent(inout)  Absorber_AD 
)

Definition at line 1746 of file ODPS_Predictor.f90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ odps_compute_predictor_odas()

subroutine, public odps_predictor::odps_compute_predictor_odas ( real(fp), dimension(:), intent(in)  Temperature,
real(fp), dimension(:), intent(in)  Vapor,
real(fp), dimension(0:), intent(in)  Level_Pressure,
real(fp), dimension(:), intent(in)  Pressure,
real(fp), dimension(:), intent(in)  secant_angle,
real(fp), intent(in)  Alpha,
real(fp), intent(in)  Alpha_C1,
real(fp), intent(in)  Alpha_C2,
type(odps_predictor_type), intent(inout)  Predictor 
)

Definition at line 2673 of file ODPS_Predictor.f90.

Here is the caller graph for this function:

◆ odps_compute_predictor_odas_ad()

subroutine, public odps_predictor::odps_compute_predictor_odas_ad ( real(fp), dimension(:), intent(in)  Temperature,
real(fp), dimension(:), intent(in)  Vapor,
real(fp), dimension(:), intent(in)  Pressure,
real(fp), dimension(:), intent(in)  secant_angle,
real(fp), intent(in)  Alpha,
real(fp), intent(in)  Alpha_C2,
type(odps_predictor_type), intent(in), target  Predictor,
type(odps_predictor_type), intent(inout)  Predictor_AD,
real(fp), dimension(:), intent(inout)  Temperature_AD,
real(fp), dimension(:), intent(inout)  Vapor_AD 
)

Definition at line 3045 of file ODPS_Predictor.f90.

Here is the caller graph for this function:

◆ odps_compute_predictor_odas_tl()

subroutine, public odps_predictor::odps_compute_predictor_odas_tl ( real(fp), dimension(:), intent(in)  Temperature,
real(fp), dimension(:), intent(in)  Vapor,
real(fp), dimension(:), intent(in)  Pressure,
real(fp), dimension(:), intent(in)  secant_angle,
real(fp), intent(in)  Alpha,
real(fp), intent(in)  Alpha_C2,
type(odps_predictor_type), intent(in), target  Predictor,
real(fp), dimension(:), intent(in)  Temperature_TL,
real(fp), dimension(:), intent(in)  Vapor_TL,
type(odps_predictor_type), intent(inout)  Predictor_TL 
)

Definition at line 2860 of file ODPS_Predictor.f90.

Here is the caller graph for this function:

◆ odps_compute_predictor_tl()

subroutine, public odps_predictor::odps_compute_predictor_tl ( integer, intent(in)  Group_ID,
real(fp), dimension(:), intent(in)  Temperature,
real(fp), dimension(:, :), intent(in)  Absorber,
real(fp), dimension(:), intent(in)  Ref_Temperature,
real(fp), dimension(:, :), intent(in)  Ref_Absorber,
real(fp), dimension(:), intent(in)  secang,
type(odps_predictor_type), intent(in), target  Predictor,
real(fp), dimension(:), intent(in)  Temperature_TL,
real(fp), dimension(:, :), intent(in)  Absorber_TL,
type(odps_predictor_type), intent(inout)  Predictor_TL 
)

Definition at line 1181 of file ODPS_Predictor.f90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ odps_get_absorber_id()

pure integer function, public odps_predictor::odps_get_absorber_id ( integer, intent(in)  Absorber_Index,
integer, intent(in)  Group_Index 
)

Definition at line 3208 of file ODPS_Predictor.f90.

◆ odps_get_component_id()

pure integer function, public odps_predictor::odps_get_component_id ( integer, intent(in)  Component_Index,
integer, intent(in)  Group_Index 
)

Definition at line 3193 of file ODPS_Predictor.f90.

◆ odps_get_max_n_predictors()

pure integer function, public odps_predictor::odps_get_max_n_predictors ( integer, intent(in)  Group_Index)

Definition at line 3172 of file ODPS_Predictor.f90.

Here is the caller graph for this function:

◆ odps_get_n_absorbers()

pure integer function, public odps_predictor::odps_get_n_absorbers ( integer, intent(in)  Group_Index)

Definition at line 3186 of file ODPS_Predictor.f90.

Here is the caller graph for this function:

◆ odps_get_n_components()

pure integer function, public odps_predictor::odps_get_n_components ( integer, intent(in)  Group_Index)

Definition at line 3179 of file ODPS_Predictor.f90.

Here is the caller graph for this function:

◆ odps_get_ozone_component_id()

pure integer function, public odps_predictor::odps_get_ozone_component_id ( integer, intent(in)  Group_Index)

Definition at line 3223 of file ODPS_Predictor.f90.

◆ odps_get_savefwvflag()

pure logical function, public odps_predictor::odps_get_savefwvflag ( )

Definition at line 3236 of file ODPS_Predictor.f90.

Here is the caller graph for this function:

Variable Documentation

◆ abs_ch4_ir

integer, parameter odps_predictor::abs_ch4_ir = 6
private

Definition at line 183 of file ODPS_Predictor.f90.

◆ abs_co2_ir

integer, parameter odps_predictor::abs_co2_ir = 3
private

Definition at line 180 of file ODPS_Predictor.f90.

◆ abs_co_ir

integer, parameter odps_predictor::abs_co_ir = 5
private

Definition at line 182 of file ODPS_Predictor.f90.

◆ abs_h2o_ir

integer, parameter odps_predictor::abs_h2o_ir = 1
private

Definition at line 178 of file ODPS_Predictor.f90.

◆ abs_h2o_mw

integer, parameter odps_predictor::abs_h2o_mw = 1
private

Definition at line 185 of file ODPS_Predictor.f90.

◆ abs_n2o_ir

integer, parameter odps_predictor::abs_n2o_ir = 4
private

Definition at line 181 of file ODPS_Predictor.f90.

◆ abs_o3_ir

integer, parameter odps_predictor::abs_o3_ir = 2
private

Definition at line 179 of file ODPS_Predictor.f90.

◆ absorber_id_map_g1

integer, dimension(6), parameter odps_predictor::absorber_id_map_g1 = (/ H2O_ID, O3_ID, CO2_ID, N2O_ID, CO_ID, CH4_ID /)
private

Definition at line 188 of file ODPS_Predictor.f90.

◆ absorber_id_map_g2

integer, dimension(3), parameter odps_predictor::absorber_id_map_g2 = (/ H2O_ID, O3_ID, CO2_ID /)
private

Definition at line 196 of file ODPS_Predictor.f90.

◆ absorber_id_map_g3

integer, dimension(1), parameter odps_predictor::absorber_id_map_g3 = (/ H2O_ID /)
private

Definition at line 201 of file ODPS_Predictor.f90.

◆ allow_optran

logical, parameter, public odps_predictor::allow_optran = .TRUE.

Definition at line 218 of file ODPS_Predictor.f90.

◆ ch4_comid

integer, parameter odps_predictor::ch4_comid = 118
private

Definition at line 127 of file ODPS_Predictor.f90.

◆ ch4_id

integer, parameter odps_predictor::ch4_id = 6
private

Definition at line 175 of file ODPS_Predictor.f90.

◆ co2_comid

integer, parameter, public odps_predictor::co2_comid = 121

Definition at line 124 of file ODPS_Predictor.f90.

◆ co2_id

integer, parameter odps_predictor::co2_id = 2
private

Definition at line 171 of file ODPS_Predictor.f90.

◆ co_comid

integer, parameter odps_predictor::co_comid = 119
private

Definition at line 126 of file ODPS_Predictor.f90.

◆ co_id

integer, parameter odps_predictor::co_id = 5
private

Definition at line 174 of file ODPS_Predictor.f90.

◆ comp_ch4_ir

integer, parameter odps_predictor::comp_ch4_ir = 8
private

Definition at line 141 of file ODPS_Predictor.f90.

◆ comp_co2_ir

integer, parameter odps_predictor::comp_co2_ir = 5
private

Definition at line 138 of file ODPS_Predictor.f90.

◆ comp_co_ir

integer, parameter odps_predictor::comp_co_ir = 7
private

Definition at line 140 of file ODPS_Predictor.f90.

◆ comp_dry_ir

integer, parameter odps_predictor::comp_dry_ir = 1
private

Definition at line 134 of file ODPS_Predictor.f90.

◆ comp_dry_mw

integer, parameter odps_predictor::comp_dry_mw = 1
private

Definition at line 144 of file ODPS_Predictor.f90.

◆ comp_n2o_ir

integer, parameter odps_predictor::comp_n2o_ir = 6
private

Definition at line 139 of file ODPS_Predictor.f90.

◆ comp_ozo_ir

integer, parameter odps_predictor::comp_ozo_ir = 4
private

Definition at line 137 of file ODPS_Predictor.f90.

◆ comp_wco_ir

integer, parameter odps_predictor::comp_wco_ir = 3
private

Definition at line 136 of file ODPS_Predictor.f90.

◆ comp_wet_mw

integer, parameter odps_predictor::comp_wet_mw = 2
private

Definition at line 145 of file ODPS_Predictor.f90.

◆ comp_wlo_ir

integer, parameter odps_predictor::comp_wlo_ir = 2
private

Definition at line 135 of file ODPS_Predictor.f90.

◆ component_id_map_g1

integer, dimension(8), parameter odps_predictor::component_id_map_g1 = (/ DRY_ComID_G1, WLO_ComID, WCO_ComID, OZO_ComID, CO2_ComID, N2O_ComID, CO_ComID , CH4_ComID /)
private

Definition at line 148 of file ODPS_Predictor.f90.

◆ component_id_map_g2

integer, dimension(5), parameter odps_predictor::component_id_map_g2 = (/ DRY_ComID_G2, WLO_ComID, WCO_ComID, OZO_ComID, CO2_ComID /)
private

Definition at line 158 of file ODPS_Predictor.f90.

◆ component_id_map_g3

integer, dimension(2), parameter odps_predictor::component_id_map_g3 = (/ EDRY_ComID, WET_ComID /)
private

Definition at line 165 of file ODPS_Predictor.f90.

◆ dry_comid_g1

integer, parameter odps_predictor::dry_comid_g1 = 7
private

Definition at line 119 of file ODPS_Predictor.f90.

◆ dry_comid_g2

integer, parameter odps_predictor::dry_comid_g2 = 20
private

Definition at line 120 of file ODPS_Predictor.f90.

◆ edry_comid

integer, parameter odps_predictor::edry_comid = 113
private

Definition at line 130 of file ODPS_Predictor.f90.

◆ four

real(fp), parameter odps_predictor::four = 4.0_fp
private

Definition at line 208 of file ODPS_Predictor.f90.

◆ group_1

integer, parameter, public odps_predictor::group_1 = 1

Definition at line 88 of file ODPS_Predictor.f90.

◆ group_2

integer, parameter, public odps_predictor::group_2 = 2

Definition at line 89 of file ODPS_Predictor.f90.

◆ group_3

integer, parameter, public odps_predictor::group_3 = 3

Definition at line 90 of file ODPS_Predictor.f90.

◆ h2o_id

integer, parameter odps_predictor::h2o_id = 1
private

Definition at line 170 of file ODPS_Predictor.f90.

◆ max_n_predictors_g

integer, dimension(n_g), parameter odps_predictor::max_n_predictors_g = (/18, 15, 14/)
private

Definition at line 86 of file ODPS_Predictor.f90.

◆ module_version_id

character(*), parameter, private odps_predictor::module_version_id = '$Id: $'
private

Definition at line 79 of file ODPS_Predictor.f90.

◆ n2o_comid

integer, parameter odps_predictor::n2o_comid = 120
private

Definition at line 125 of file ODPS_Predictor.f90.

◆ n2o_id

integer, parameter odps_predictor::n2o_id = 4
private

Definition at line 173 of file ODPS_Predictor.f90.

◆ n_absorbers_g

integer, dimension(n_g), parameter odps_predictor::n_absorbers_g = (/6, 3, 1/)
private

Definition at line 85 of file ODPS_Predictor.f90.

◆ n_components_g

integer, dimension(n_g), parameter odps_predictor::n_components_g = (/8, 5, 2/)
private

Definition at line 84 of file ODPS_Predictor.f90.

◆ n_g

integer, parameter odps_predictor::n_g = 3
private

Definition at line 83 of file ODPS_Predictor.f90.

◆ n_predictors_g1

integer, dimension(8), parameter odps_predictor::n_predictors_g1 = (/ 7, 18, 7, 11, 11, 14, 10, 11 /)
private

Definition at line 93 of file ODPS_Predictor.f90.

◆ n_predictors_g2

integer, dimension(5), parameter odps_predictor::n_predictors_g2 = (/ 7, 15, 7, 11, 10 /)
private

Definition at line 104 of file ODPS_Predictor.f90.

◆ n_predictors_g3

integer, dimension(2), parameter odps_predictor::n_predictors_g3 = (/ 7, 14 /)
private

Definition at line 112 of file ODPS_Predictor.f90.

◆ o3_id

integer, parameter odps_predictor::o3_id = 3
private

Definition at line 172 of file ODPS_Predictor.f90.

◆ one

real(fp), parameter odps_predictor::one = 1.0_fp
private

Definition at line 205 of file ODPS_Predictor.f90.

◆ one_point_25

real(fp), parameter odps_predictor::one_point_25 = 1.25_fp
private

Definition at line 214 of file ODPS_Predictor.f90.

◆ one_point_5

real(fp), parameter odps_predictor::one_point_5 = 1.5_fp
private

Definition at line 213 of file ODPS_Predictor.f90.

◆ one_point_75

real(fp), parameter odps_predictor::one_point_75 = 1.75_fp
private

Definition at line 215 of file ODPS_Predictor.f90.

◆ ozo_comid

integer, parameter odps_predictor::ozo_comid = 114
private

Definition at line 123 of file ODPS_Predictor.f90.

◆ point_25

real(fp), parameter odps_predictor::point_25 = 0.25_fp
private

Definition at line 210 of file ODPS_Predictor.f90.

◆ point_5

real(fp), parameter odps_predictor::point_5 = 0.5_fp
private

Definition at line 211 of file ODPS_Predictor.f90.

◆ point_75

real(fp), parameter odps_predictor::point_75 = 0.75_fp
private

Definition at line 212 of file ODPS_Predictor.f90.

◆ ten

real(fp), parameter odps_predictor::ten = 10.0_fp
private

Definition at line 209 of file ODPS_Predictor.f90.

◆ three

real(fp), parameter odps_predictor::three = 3.0_fp
private

Definition at line 207 of file ODPS_Predictor.f90.

◆ tot_comid

integer, parameter, public odps_predictor::tot_comid = 10

Definition at line 118 of file ODPS_Predictor.f90.

◆ two

real(fp), parameter odps_predictor::two = 2.0_fp
private

Definition at line 206 of file ODPS_Predictor.f90.

◆ wco_comid

integer, parameter odps_predictor::wco_comid = 15
private

Definition at line 122 of file ODPS_Predictor.f90.

◆ wet_comid

integer, parameter, public odps_predictor::wet_comid = 12

Definition at line 131 of file ODPS_Predictor.f90.

◆ wlo_comid

integer, parameter, public odps_predictor::wlo_comid = 101

Definition at line 121 of file ODPS_Predictor.f90.

◆ zero

real(fp), parameter odps_predictor::zero = 0.0_fp
private

Definition at line 204 of file ODPS_Predictor.f90.