Go to the source code of this file.

Modules
module	rttov_const

Variables
real(jprb), parameter	rttov_const::max_exp_exponent = 50._JPRB

real(jprb), parameter	rttov_const::min_exponent = 1E-16_JPRB

integer(kind=jpim), parameter	rttov_const::version = 11

integer(kind=jpim), parameter	rttov_const::release = 2

integer(kind=jpim), parameter	rttov_const::minor_version = 0

integer(kind=jpim), parameter	rttov_const::version_compatible_min = 10

integer(kind=jpim), parameter	rttov_const::version_compatible_max = 11

character(len=16), parameter	rttov_const::rttov_magic_string = '%RTTOV_COEFF '

real(kind=jprb), parameter	rttov_const::rttov_magic_number = 1.2345E+12_JPRB

integer(kind=jpim), parameter	rttov_const::default_err_unit = 0

integer(kind=jpim), parameter	rttov_const::max_fastem_version = 6

real(kind=jprb), parameter	rttov_const::mair = 28.9644_JPRB

real(kind=jprb), parameter	rttov_const::mh2o = 18.01528_JPRB

real(kind=jprb), parameter	rttov_const::mo3 = 47.9982_JPRB

real(kind=jprb), parameter	rttov_const::mco2 = 44.0095_JPRB

real(kind=jprb), parameter	rttov_const::mch4 = 16.04246_JPRB

real(kind=jprb), parameter	rttov_const::mn2o = 44.0128_JPRB

real(kind=jprb), parameter	rttov_const::mco = 28.0101_JPRB

real(kind=jprb), parameter	rttov_const::na = 6.02214129E23_JPRB

real(kind=jprb), parameter	rttov_const::gravity = 9.80665_JPRB

real(kind=jprb), parameter	rttov_const::c1 = .00001191042722_jprb

real(kind=jprb), parameter	rttov_const::c2 = 1.4387752_jprb

real(kind=jprb), parameter	rttov_const::speedl = 29979245800.0_jprb

real(kind=jprb), parameter	rttov_const::pi = 3.1415926535_JPRB

real(kind=jprb), parameter	rttov_const::deg2rad = PI/180.0_JPRB

real(kind=jprb), parameter	rttov_const::earthradius = 6371.00_JPRB

real(kind=jprb), parameter	rttov_const::flatt = 3.3528107E-3_JPRB

real(kind=jprb), parameter	rttov_const::omega = 7292115E-11_JPRB

real(kind=jprb), parameter	rttov_const::eqrad = 6378.137_JPRB

real(kind=jprb), parameter	rttov_const::grave = 9.7803267715_JPRB

real(kind=jprb), parameter	rttov_const::z4pi_r = 0.0795774715_JPRB

real(kind=jprb), parameter	rttov_const::pi_r = 0.3183098862_JPRB

real(kind=jprb), parameter	rttov_const::theta_eff = 55.0_JPRB

real(kind=jprb), parameter	rttov_const::sec_theta_eff = 1.743446796_JPRB

real(kind=jprb), parameter	rttov_const::tcosmic = 2.728_JPRB

real(kind=jprb), parameter	rttov_const::rgp = 8.314510_JPRB

real(kind=jprb), parameter	rttov_const::rgc = 8.314472_JPRB

real(kind=jprb), parameter	rttov_const::rm = 0.0289644_JPRB

real(kind=jprb), parameter	rttov_const::q_mixratio_to_ppmv = 1.60771704E+6_JPRB

real(kind=jprb), parameter	rttov_const::o3_mixratio_to_ppmv = 6.03504E+5_JPRB

real(kind=jprb), parameter	rttov_const::co2_mixratio_to_ppmv = 6.58114E+5_JPRB

real(kind=jprb), parameter	rttov_const::co_mixratio_to_ppmv = 1.0340699E+6_JPRB

real(kind=jprb), parameter	rttov_const::n2o_mixratio_to_ppmv = 6.58090E+5_JPRB

real(kind=jprb), parameter	rttov_const::ch4_mixratio_to_ppmv = 1.80548E+6_JPRB

real(kind=jprb), parameter	rttov_const::t0 = 273.15_JPRB

real(kind=jprb), parameter	rttov_const::p0 = 1013.25_JPRB

integer(kind=jpim), parameter	rttov_const::nplatforms = 41

integer(kind=jpim), parameter	rttov_const::platform_id_noaa = 1

integer(kind=jpim), parameter	rttov_const::platform_id_dmsp = 2

integer(kind=jpim), parameter	rttov_const::platform_id_meteosat = 3

integer(kind=jpim), parameter	rttov_const::platform_id_goes = 4

integer(kind=jpim), parameter	rttov_const::platform_id_gms = 5

integer(kind=jpim), parameter	rttov_const::platform_id_fy2 = 6

integer(kind=jpim), parameter	rttov_const::platform_id_trmm = 7

integer(kind=jpim), parameter	rttov_const::platform_id_ers = 8

integer(kind=jpim), parameter	rttov_const::platform_id_eos = 9

integer(kind=jpim), parameter	rttov_const::platform_id_metop = 10

integer(kind=jpim), parameter	rttov_const::platform_id_envisat = 11

integer(kind=jpim), parameter	rttov_const::platform_id_msg = 12

integer(kind=jpim), parameter	rttov_const::platform_id_fy1 = 13

integer(kind=jpim), parameter	rttov_const::platform_id_adeos = 14

integer(kind=jpim), parameter	rttov_const::platform_id_mtsat = 15

integer(kind=jpim), parameter	rttov_const::platform_id_coriolis = 16

integer(kind=jpim), parameter	rttov_const::platform_id_jpss = 17

integer(kind=jpim), parameter	rttov_const::platform_id_gifts = 18

integer(kind=jpim), parameter	rttov_const::platform_id_sentinel3 = 19

integer(kind=jpim), parameter	rttov_const::platform_id_meghatr = 20

integer(kind=jpim), parameter	rttov_const::platform_id_kalpana = 21

integer(kind=jpim), parameter	rttov_const::platform_id_insat_3d = 22

integer(kind=jpim), parameter	rttov_const::platform_id_fy3 = 23

integer(kind=jpim), parameter	rttov_const::platform_id_coms = 24

integer(kind=jpim), parameter	rttov_const::platform_id_meteorm = 25

integer(kind=jpim), parameter	rttov_const::platform_id_gosat = 26

integer(kind=jpim), parameter	rttov_const::platform_id_calipso = 27

integer(kind=jpim), parameter	rttov_const::platform_id_dummy = 28

integer(kind=jpim), parameter	rttov_const::platform_id_gcomw = 29

integer(kind=jpim), parameter	rttov_const::platform_id_nimbus = 30

integer(kind=jpim), parameter	rttov_const::platform_id_himawari = 31

integer(kind=jpim), parameter	rttov_const::platform_id_mtg = 32

integer(kind=jpim), parameter	rttov_const::platform_id_saral = 33

integer(kind=jpim), parameter	rttov_const::platform_id_metopsg = 34

integer(kind=jpim), parameter	rttov_const::platform_id_landsat = 35

integer(kind=jpim), parameter	rttov_const::platform_id_jason = 36

integer(kind=jpim), parameter	rttov_const::platform_id_gpm = 37

integer(kind=jpim), parameter	rttov_const::platform_id_insat1 = 38

integer(kind=jpim), parameter	rttov_const::platform_id_insat2 = 39

integer(kind=jpim), parameter	rttov_const::platform_id_insat3 = 40

integer(kind=jpim), parameter	rttov_const::platform_id_ground = 41

character(len=9), dimension(nplatforms), parameter	rttov_const::platform_name = (/ 'noaa ', 'dmsp ', 'meteosat ', 'goes ', 'gms ', 'fy2 ', 'trmm ', 'ers ', 'eos ', 'metop ', 'envisat ', 'msg ', 'fy1 ', 'adeos ', 'mtsat ', 'coriolis ', 'jpss ', 'gifts ', 'sentinel3', 'meghatr ', 'kalpana ', 'insat_3d ', 'fy3 ', 'coms ', 'meteor-m ', 'gosat ', 'calipso ', 'dummy ', 'gcom-w ', 'nimbus ', 'himawari ', 'mtg ', 'saral ', 'metopsg ', 'landsat ', 'jason ', 'gpm ', 'insat1 ', 'insat2 ', 'insat3 ', 'ground ' /)

integer(kind=jpim), parameter	rttov_const::inst_id_hirs = 0

integer(kind=jpim), parameter	rttov_const::inst_id_msu = 1

integer(kind=jpim), parameter	rttov_const::inst_id_ssu = 2

integer(kind=jpim), parameter	rttov_const::inst_id_amsua = 3

integer(kind=jpim), parameter	rttov_const::inst_id_amsub = 4

integer(kind=jpim), parameter	rttov_const::inst_id_avhrr = 5

integer(kind=jpim), parameter	rttov_const::inst_id_ssmi = 6

integer(kind=jpim), parameter	rttov_const::inst_id_vtpr1 = 7

integer(kind=jpim), parameter	rttov_const::inst_id_vtpr2 = 8

integer(kind=jpim), parameter	rttov_const::inst_id_tmi = 9

integer(kind=jpim), parameter	rttov_const::inst_id_ssmis = 10

integer(kind=jpim), parameter	rttov_const::inst_id_airs = 11

integer(kind=jpim), parameter	rttov_const::inst_id_hsb = 12

integer(kind=jpim), parameter	rttov_const::inst_id_modis = 13

integer(kind=jpim), parameter	rttov_const::inst_id_atsr = 14

integer(kind=jpim), parameter	rttov_const::inst_id_mhs = 15

integer(kind=jpim), parameter	rttov_const::inst_id_iasi = 16

integer(kind=jpim), parameter	rttov_const::inst_id_amsre = 17

integer(kind=jpim), parameter	rttov_const::inst_id_gmsim = 18

integer(kind=jpim), parameter	rttov_const::inst_id_atms = 19

integer(kind=jpim), parameter	rttov_const::inst_id_mviri = 20

integer(kind=jpim), parameter	rttov_const::inst_id_seviri = 21

integer(kind=jpim), parameter	rttov_const::inst_id_goesim = 22

integer(kind=jpim), parameter	rttov_const::inst_id_goessd = 23

integer(kind=jpim), parameter	rttov_const::inst_id_mtsatim = 24

integer(kind=jpim), parameter	rttov_const::inst_id_vissr = 25

integer(kind=jpim), parameter	rttov_const::inst_id_mvisr = 26

integer(kind=jpim), parameter	rttov_const::inst_id_cris = 27

integer(kind=jpim), parameter	rttov_const::inst_id_cmis = 28

integer(kind=jpim), parameter	rttov_const::inst_id_viirs = 29

integer(kind=jpim), parameter	rttov_const::inst_id_windsat = 30

integer(kind=jpim), parameter	rttov_const::inst_id_gifts = 31

integer(kind=jpim), parameter	rttov_const::inst_id_ssmt1 = 32

integer(kind=jpim), parameter	rttov_const::inst_id_ssmt2 = 33

integer(kind=jpim), parameter	rttov_const::inst_id_saphir = 34

integer(kind=jpim), parameter	rttov_const::inst_id_madras = 35

integer(kind=jpim), parameter	rttov_const::inst_id_ssmisz = 36

integer(kind=jpim), parameter	rttov_const::inst_id_vhrr = 37

integer(kind=jpim), parameter	rttov_const::inst_id_insatim = 38

integer(kind=jpim), parameter	rttov_const::inst_id_insatsd = 39

integer(kind=jpim), parameter	rttov_const::inst_id_mwts = 40

integer(kind=jpim), parameter	rttov_const::inst_id_mwhs = 41

integer(kind=jpim), parameter	rttov_const::inst_id_iras = 42

integer(kind=jpim), parameter	rttov_const::inst_id_mwri = 43

integer(kind=jpim), parameter	rttov_const::inst_id_abi = 44

integer(kind=jpim), parameter	rttov_const::inst_id_mi = 45

integer(kind=jpim), parameter	rttov_const::inst_id_msumr = 46

integer(kind=jpim), parameter	rttov_const::inst_id_tansofts = 47

integer(kind=jpim), parameter	rttov_const::inst_id_iir = 48

integer(kind=jpim), parameter	rttov_const::inst_id_mwr = 49

integer(kind=jpim), parameter	rttov_const::inst_id_dummyir = 50

integer(kind=jpim), parameter	rttov_const::inst_id_dummymw = 51

integer(kind=jpim), parameter	rttov_const::inst_id_dummyhi = 52

integer(kind=jpim), parameter	rttov_const::inst_id_dummypo = 53

integer(kind=jpim), parameter	rttov_const::inst_id_scams = 54

integer(kind=jpim), parameter	rttov_const::inst_id_smmr = 55

integer(kind=jpim), parameter	rttov_const::inst_id_ahi = 56

integer(kind=jpim), parameter	rttov_const::inst_id_irs = 57

integer(kind=jpim), parameter	rttov_const::inst_id_altika = 58

integer(kind=jpim), parameter	rttov_const::inst_id_iasing = 59

integer(kind=jpim), parameter	rttov_const::inst_id_tm = 60

integer(kind=jpim), parameter	rttov_const::inst_id_fci = 61

integer(kind=jpim), parameter	rttov_const::inst_id_amsr1 = 62

integer(kind=jpim), parameter	rttov_const::inst_id_amsr2 = 63

integer(kind=jpim), parameter	rttov_const::inst_id_vissr2 = 64

integer(kind=jpim), parameter	rttov_const::inst_id_slstr = 65

integer(kind=jpim), parameter	rttov_const::inst_id_tirs = 66

integer(kind=jpim), parameter	rttov_const::inst_id_amr = 67

integer(kind=jpim), parameter	rttov_const::inst_id_oli = 68

integer(kind=jpim), parameter	rttov_const::inst_id_iris = 69

integer(kind=jpim), parameter	rttov_const::inst_id_ici = 70

integer(kind=jpim), parameter	rttov_const::inst_id_gmi = 71

integer(kind=jpim), parameter	rttov_const::inst_id_mwts2 = 72

integer(kind=jpim), parameter	rttov_const::inst_id_mwhs2 = 73

integer(kind=jpim), parameter	rttov_const::inst_id_aster = 74

integer(kind=jpim), parameter	rttov_const::inst_id_hatpro = 75

integer(kind=jpim), parameter	rttov_const::ninst = 76

character(len=8), dimension(0:ninst-1), parameter	rttov_const::inst_name = (/ 'hirs ', 'msu ', 'ssu ', 'amsua ', 'amsub ', 'avhrr ', 'ssmi ', 'vtpr1 ', 'vtpr2 ', 'tmi ', 'ssmis ', 'airs ', 'hsb ', 'modis ', 'atsr ', 'mhs ', 'iasi ', 'amsre ', 'imager ', 'atms ', 'mviri ', 'seviri ', 'imager ', 'sounder ', 'imager ', 'vissr ', 'mvisr ', 'cris ', 'cmis ', 'viirs ', 'windsat ', 'gifts ', 'ssmt1 ', 'ssmt2 ', 'saphir ', 'madras ', 'ssmisz ', 'vhrr ', 'imager ', 'sounder ', 'mwts ', 'mwhs ', 'iras ', 'mwri ', 'abi ', 'mi ', 'msumr ', 'tansofts', 'iir ', 'mwr ', 'dummyir ', 'dummymw ', 'dummyhi ', 'dummypo ', 'scams ', 'smmr ', 'ahi ', 'irs ', 'altika ', 'iasing ', 'tm ', 'fci ', 'amsr ', 'amsr2 ', 'vissr ', 'slstr ', 'tirs ', 'amr ', 'oli ', 'iris ', 'ici ', 'gmi ', 'mwts2 ', 'mwhs2 ', 'aster ', 'hatpro ' /)

integer(kind=jpim), parameter	rttov_const::nsections = 43

integer(kind=jpim), parameter	rttov_const::lensection = 34

character(len=lensection), dimension(nsections), parameter	rttov_const::section_types = (/ 'IDENTIFICATION ', 'LINE-BY-LINE ', 'FAST_MODEL_VARIABLES ', 'FILTER_FUNCTIONS ', 'FUNDAMENTAL_CONSTANTS ', 'SSIREM ', 'FASTEM ', 'REFERENCE_PROFILE ', 'PROFILE_LIMITS ', 'FAST_COEFFICIENTS ', 'COEF_SUB_FILES ', 'GAZ_UNITS ', 'DIMENSIONS ', 'FREQUENCIES ', 'HYDROMETEOR ', 'CONVERSIONS ', 'EXTINCTION ', 'ALBEDO ', 'ASYMMETRY ', 'GAS_SPECTRAL_INTERVAL ', 'TRANSMITTANCE_TRESHOLD ', 'SOLAR_SPECTRUM ', 'WATER_OPTICAL_CONSTANT ', 'WAVE_SPECTRUM ', 'AEROSOLS_PARAMETERS ', 'AEROSOLS_COMPONENTS ', 'WATERCLOUD_TYPES ', 'WATERCLOUD_PARAMETERS ', 'ICECLOUD_TYPES ', 'HEXAGONAL_PARAMETERS ', 'AGGREGATE_PARAMETERS ', 'PRINCOMP_PREDICTORS ', 'PRINCOMP_EIGENVECTORS ', 'PRINCOMP_COEFFICIENTS ', 'EMISSIVITY_COEFFICIENTS ', 'PC_REFERENCE_PROFILE ', 'PC_PROFILE_LIMITS ', 'INSTRUMENT_NOISE ', 'PLANCK_WEIGHTED ', 'SOLAR_FAST_COEFFICIENTS ', 'README_SPECTRAL_RESPONSE_FUNCTION ', 'NLTE_RADIANCE_COEFS ', 'PRESSURE_MODULATED_CELL '/)

integer(kind=jpim), parameter	rttov_const::nsensors = 4

integer(kind=jpim), parameter	rttov_const::sensor_id_ir = 1

integer(kind=jpim), parameter	rttov_const::sensor_id_mw = 2

integer(kind=jpim), parameter	rttov_const::sensor_id_hi = 3

integer(kind=jpim), parameter	rttov_const::sensor_id_po = 4

character(len=2), dimension(nsensors), parameter	rttov_const::sensor_name = (/ 'ir', 'mw', 'hi', 'po' /)

integer(kind=jpim), dimension(0:ninst-1), parameter	rttov_const::sensor_id = (/ SENSOR_ID_IR, SENSOR_ID_MW, SENSOR_ID_IR, SENSOR_ID_MW, SENSOR_ID_MW, SENSOR_ID_IR, SENSOR_ID_MW, SENSOR_ID_IR, SENSOR_ID_IR, SENSOR_ID_MW, SENSOR_ID_MW, SENSOR_ID_HI, SENSOR_ID_MW, SENSOR_ID_IR, SENSOR_ID_IR, SENSOR_ID_MW, SENSOR_ID_HI, SENSOR_ID_MW, SENSOR_ID_IR, SENSOR_ID_MW, SENSOR_ID_IR, SENSOR_ID_IR, SENSOR_ID_IR, SENSOR_ID_IR, SENSOR_ID_IR, SENSOR_ID_IR, SENSOR_ID_IR, SENSOR_ID_HI, SENSOR_ID_MW, SENSOR_ID_IR, SENSOR_ID_PO, SENSOR_ID_HI, SENSOR_ID_MW, SENSOR_ID_MW, SENSOR_ID_MW, SENSOR_ID_MW, SENSOR_ID_MW, SENSOR_ID_IR, SENSOR_ID_IR, SENSOR_ID_IR, SENSOR_ID_MW, SENSOR_ID_MW, SENSOR_ID_IR, SENSOR_ID_MW, SENSOR_ID_IR, SENSOR_ID_IR, SENSOR_ID_IR, SENSOR_ID_HI, SENSOR_ID_IR, SENSOR_ID_MW, SENSOR_ID_IR, SENSOR_ID_MW, SENSOR_ID_HI, SENSOR_ID_PO, SENSOR_ID_MW, SENSOR_ID_MW, SENSOR_ID_IR, SENSOR_ID_HI, SENSOR_ID_MW, SENSOR_ID_HI, SENSOR_ID_IR, SENSOR_ID_IR, SENSOR_ID_MW, SENSOR_ID_MW, SENSOR_ID_IR, SENSOR_ID_IR, SENSOR_ID_IR, SENSOR_ID_MW, SENSOR_ID_IR, SENSOR_ID_HI, SENSOR_ID_MW, SENSOR_ID_MW, SENSOR_ID_MW, SENSOR_ID_MW, SENSOR_ID_IR, SENSOR_ID_MW /)

integer(kind=jpim), parameter	rttov_const::ngases_max = 8

integer(kind=jpim), parameter	rttov_const::gas_id_mixed = 1

integer(kind=jpim), parameter	rttov_const::gas_id_watervapour = 2

integer(kind=jpim), parameter	rttov_const::gas_id_ozone = 3

integer(kind=jpim), parameter	rttov_const::gas_id_wvcont = 4

integer(kind=jpim), parameter	rttov_const::gas_id_co2 = 5

integer(kind=jpim), parameter	rttov_const::gas_id_n2o = 6

integer(kind=jpim), parameter	rttov_const::gas_id_co = 7

integer(kind=jpim), parameter	rttov_const::gas_id_ch4 = 8

character(len=12), dimension(ngases_max), parameter	rttov_const::gas_name = (/ 'Mixed_gases ', 'Water_vapour', 'Ozone ', 'WV_Continuum', 'CO2 ', 'N2O ', 'CO ', 'CH4 ' /)

integer(kind=jpim), parameter	rttov_const::ngases_unit = 2

integer(kind=jpim), parameter	rttov_const::gas_unit_specconc = 1

integer(kind=jpim), parameter	rttov_const::gas_unit_ppmv = 2

character(len=12), dimension(ngases_unit), parameter	rttov_const::gas_unit_name = (/ 'spec. concen', 'ppmv ' /)

integer(kind=jpim), parameter	rttov_const::errorstatus_success = 0

integer(kind=jpim), parameter	rttov_const::errorstatus_fatal = 1

integer(kind=jpim), parameter	rttov_const::nsurftype = 2

integer(kind=jpim), parameter	rttov_const::surftype_land = 0

integer(kind=jpim), parameter	rttov_const::surftype_sea = 1

integer(kind=jpim), parameter	rttov_const::surftype_seaice = 2

integer(kind=jpim), parameter	rttov_const::nwatertype = 1

integer(kind=jpim), parameter	rttov_const::watertype_fresh_water = 0

integer(kind=jpim), parameter	rttov_const::watertype_ocean_water = 1

integer(kind=jpim), parameter	rttov_const::nish = 4

integer(kind=jpim), parameter	rttov_const::nidg = 4

real(kind=jprb), parameter	rttov_const::tmax = 400.0_JPRB

real(kind=jprb), parameter	rttov_const::tmin = 90.0_JPRB

real(kind=jprb), parameter	rttov_const::qmax = 0.60E+06_JPRB

real(kind=jprb), parameter	rttov_const::qmin = 0.1E-10_JPRB

real(kind=jprb), parameter	rttov_const::o3max = 1000.0_JPRB

real(kind=jprb), parameter	rttov_const::o3min = 0.1E-10_JPRB

real(kind=jprb), parameter	rttov_const::co2max = 1000.0_JPRB

real(kind=jprb), parameter	rttov_const::co2min = 0.1E-10_JPRB

real(kind=jprb), parameter	rttov_const::comax = 10.0_JPRB

real(kind=jprb), parameter	rttov_const::comin = 0.1E-10_JPRB

real(kind=jprb), parameter	rttov_const::n2omax = 10.0_JPRB

real(kind=jprb), parameter	rttov_const::n2omin = 0.1E-10_JPRB

real(kind=jprb), parameter	rttov_const::ch4max = 50.0_JPRB

real(kind=jprb), parameter	rttov_const::ch4min = 0.1E-10_JPRB

real(kind=jprb), parameter	rttov_const::clwmax = 1.0_JPRB

real(kind=jprb), parameter	rttov_const::clwmin = 0.0_JPRB

real(kind=jprb), parameter	rttov_const::pmax = 1200.0_JPRB

real(kind=jprb), parameter	rttov_const::pmin = 400.0_JPRB

real(kind=jprb), parameter	rttov_const::wmax = 100.0_JPRB

real(kind=jprb), parameter	rttov_const::zenmax = 75.0_JPRB

real(kind=jprb), parameter	rttov_const::zenmaxv9 = 84.0_JPRB

real(kind=jprb), parameter	rttov_const::ctpmax = 1100.0_JPRB

real(kind=jprb), parameter	rttov_const::ctpmin = 50.0_JPRB

real(kind=jprb), parameter	rttov_const::bemax = 0.7_JPRB

real(kind=jprb), parameter	rttov_const::bemin = 0.2_JPRB

real(kind=jprb), parameter	rttov_const::dgmin_hex = 12.2_JPRB

real(kind=jprb), parameter	rttov_const::dgmax_hex = 118.29_JPRB

real(kind=jprb), parameter	rttov_const::dgmin_agg = 5.61_JPRB

real(kind=jprb), parameter	rttov_const::dgmax_agg = 166.46_JPRB

real(kind=jprb), parameter	rttov_const::iwcmin_hex = 0.000608_JPRB

real(kind=jprb), parameter	rttov_const::iwcmax_hex = 0.254639_JPRB

real(kind=jprb), parameter	rttov_const::iwcmin_agg = 0.000235_JPRB

real(kind=jprb), parameter	rttov_const::iwcmax_agg = 0.489046_JPRB

real(kind=jprb), parameter	rttov_const::max_optical_depth = 50._JPRB

real(kind=jprb), parameter	rttov_const::max_sol_zen = 84._JPRB

integer(kind=jpim), parameter	rttov_const::fastem_sp = 5

real(kind=jprb), parameter	rttov_const::mwcldtp = 322.0_JPRB

real(kind=jprb), parameter	rttov_const::pressure_top = 0.004985_JPRB

real(kind=jprb), dimension(8), parameter	rttov_const::dcoeff = (/ 17.1252_JPRB, 134.2450_JPRB, 310.2125_JPRB, 5.667_JPRB, 188.7979_JPRB, 80.5419_JPRB, 0.1157_JPRB, 4.8417_JPRB/)

integer(kind=jpim), dimension(7), parameter	rttov_const::npolar_compute = (/ 2, 2, 2, 1, 1, 2, 4/)

integer(kind=jpim), dimension(7), parameter	rttov_const::npolar_return = (/ 1, 1, 1, 1, 1, 2, 4/)

real(kind=jprb), dimension(3, 7), parameter	rttov_const::pol_v = RESHAPE( (/ 0.5_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB, 1.0_JPRB, 0.0_JPRB, 1.0_JPRB, 0.0_JPRB, 1.0_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB /), (/3,7/) )

real(kind=jprb), dimension(3, 7), parameter	rttov_const::pol_h = RESHAPE( (/ 0.5_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB, 1.0_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB, 1.0_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB, 1.0_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB /), (/3,7/) )

real(kind=jprb), dimension(0:1, 7), parameter	rttov_const::pol_s3 = RESHAPE( (/ 0.0_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB, 0.0_JPRB, 1.0_JPRB, 0.0_JPRB, 0.0_JPRB, 1.0_JPRB /), (/2,7/) )

real(kind=jprb), parameter	rttov_const::ccthres = 0.05_JPRB

real(kind=jprb), parameter	rttov_const::min_ssa = 1.0E-03_JPRB

real(kind=jprb), parameter	rttov_const::rho_rain = 1.0_JPRB

real(kind=jprb), parameter	rttov_const::rho_snow = 0.1_JPRB

integer(kind=jpim), parameter	rttov_const::adk_adjoint = 0

integer(kind=jpim), parameter	rttov_const::adk_k = 1

real(kind=jprb), parameter	rttov_const::d1 =8341.87_JPRB

real(kind=jprb), parameter	rttov_const::d2 =2405955.0_JPRB

real(kind=jprb), parameter	rttov_const::d3 =130.0_JPRB

real(kind=jprb), parameter	rttov_const::d4 =15996.0_JPRB

real(kind=jprb), parameter	rttov_const::d5 =38.9_JPRB

real(kind=jprb), parameter	rttov_const::dco2 =0.540_JPRB

real(kind=jprb), parameter	rttov_const::ed1 =96095.43_JPRB

real(kind=jprb), parameter	rttov_const::ed2 =0.601_JPRB

real(kind=jprb), parameter	rttov_const::ed3 =0.00972_JPRB

real(kind=jprb), parameter	rttov_const::ed4 =0.003661_JPRB

real(kind=jprb), parameter	rttov_const::ew1 =3.7345_JPRB

real(kind=jprb), parameter	rttov_const::ew2 =0.0401_JPRB

real(kind=jprb), parameter	rttov_const::htop =100.0_JPRB

real(kind=jprb), parameter	rttov_const::ctom =1.0E-4_JPRB

real(kind=jprb), parameter	rttov_const::waver =1700.0_JPRB

integer(kind=jpim), parameter	rttov_const::naer_max = 13

integer(kind=jpim), parameter	rttov_const::aer_id_inso = 1

integer(kind=jpim), parameter	rttov_const::aer_id_waso = 2

integer(kind=jpim), parameter	rttov_const::aer_id_soot = 3

integer(kind=jpim), parameter	rttov_const::aer_id_ssam = 4

integer(kind=jpim), parameter	rttov_const::aer_id_sscm = 5

integer(kind=jpim), parameter	rttov_const::aer_id_minm = 6

integer(kind=jpim), parameter	rttov_const::aer_id_miam = 7

integer(kind=jpim), parameter	rttov_const::aer_id_micm = 8

integer(kind=jpim), parameter	rttov_const::aer_id_mitr = 9

integer(kind=jpim), parameter	rttov_const::aer_id_suso =10

integer(kind=jpim), parameter	rttov_const::aer_id_vola =11

integer(kind=jpim), parameter	rttov_const::aer_id_vapo =12

integer(kind=jpim), parameter	rttov_const::aer_id_asdu =13

character(len=4), dimension(naer_max), parameter	rttov_const::aer_name = (/ 'inso', 'waso', 'soot', 'ssam', 'sscm', 'minm', 'miam', 'micm', 'mitr', 'suso', 'vola', 'vapo', 'asdu' /)

integer(kind=jpim), parameter	rttov_const::nphangle = 208

real(kind=jprb), dimension(nphangle), parameter	rttov_const::phangle = (/ 0.0_JPRB, 0.1_JPRB, 0.2_JPRB, 0.3_JPRB, 0.4_JPRB, 0.5_JPRB, 0.6_JPRB, 0.7_JPRB, 0.8_JPRB, 0.9_JPRB, 1.0_JPRB, 1.1_JPRB, 1.2_JPRB, 1.3_JPRB, 1.4_JPRB, 1.5_JPRB, 1.6_JPRB, 1.7_JPRB, 1.8_JPRB, 1.9_JPRB, 2.0_JPRB, 2.1_JPRB, 2.2_JPRB, 2.3_JPRB, 2.4_JPRB, 2.5_JPRB, 2.6_JPRB, 2.7_JPRB, 2.8_JPRB, 2.9_JPRB, 3.0_JPRB, 4.0_JPRB, 5.0_JPRB, 6.0_JPRB, 7.0_JPRB, 8.0_JPRB, 9.0_JPRB, 10.0_JPRB, 11.0_JPRB, 12.0_JPRB, 13.0_JPRB, 14.0_JPRB, 15.0_JPRB, 16.0_JPRB, 17.0_JPRB, 18.0_JPRB, 19.0_JPRB, 20.0_JPRB, 21.0_JPRB, 22.0_JPRB, 23.0_JPRB, 24.0_JPRB, 25.0_JPRB, 26.0_JPRB, 27.0_JPRB, 28.0_JPRB, 29.0_JPRB, 30.0_JPRB, 31.0_JPRB, 32.0_JPRB, 33.0_JPRB, 34.0_JPRB, 35.0_JPRB, 36.0_JPRB, 37.0_JPRB, 38.0_JPRB, 39.0_JPRB, 40.0_JPRB, 41.0_JPRB, 42.0_JPRB, 43.0_JPRB, 44.0_JPRB, 45.0_JPRB, 46.0_JPRB, 47.0_JPRB, 48.0_JPRB, 49.0_JPRB, 50.0_JPRB, 51.0_JPRB, 52.0_JPRB, 53.0_JPRB, 54.0_JPRB, 55.0_JPRB, 56.0_JPRB, 57.0_JPRB, 58.0_JPRB, 59.0_JPRB, 60.0_JPRB, 61.0_JPRB, 62.0_JPRB, 63.0_JPRB, 64.0_JPRB, 65.0_JPRB, 66.0_JPRB, 67.0_JPRB, 68.0_JPRB, 69.0_JPRB, 70.0_JPRB, 71.0_JPRB, 72.0_JPRB, 73.0_JPRB, 74.0_JPRB, 75.0_JPRB, 76.0_JPRB, 77.0_JPRB, 78.0_JPRB, 79.0_JPRB, 80.0_JPRB, 81.0_JPRB, 82.0_JPRB, 83.0_JPRB, 84.0_JPRB, 85.0_JPRB, 86.0_JPRB, 87.0_JPRB, 88.0_JPRB, 89.0_JPRB, 90.0_JPRB, 91.0_JPRB, 92.0_JPRB, 93.0_JPRB, 94.0_JPRB, 95.0_JPRB, 96.0_JPRB, 97.0_JPRB, 98.0_JPRB, 99.0_JPRB, 100.0_JPRB, 101.0_JPRB, 102.0_JPRB, 103.0_JPRB, 104.0_JPRB, 105.0_JPRB, 106.0_JPRB, 107.0_JPRB, 108.0_JPRB, 109.0_JPRB, 110.0_JPRB, 111.0_JPRB, 112.0_JPRB, 113.0_JPRB, 114.0_JPRB, 115.0_JPRB, 116.0_JPRB, 117.0_JPRB, 118.0_JPRB, 119.0_JPRB, 120.0_JPRB, 121.0_JPRB, 122.0_JPRB, 123.0_JPRB, 124.0_JPRB, 125.0_JPRB, 126.0_JPRB, 127.0_JPRB, 128.0_JPRB, 129.0_JPRB, 130.0_JPRB, 131.0_JPRB, 132.0_JPRB, 133.0_JPRB, 134.0_JPRB, 135.0_JPRB, 136.0_JPRB, 137.0_JPRB, 138.0_JPRB, 139.0_JPRB, 140.0_JPRB, 141.0_JPRB, 142.0_JPRB, 143.0_JPRB, 144.0_JPRB, 145.0_JPRB, 146.0_JPRB, 147.0_JPRB, 148.0_JPRB, 149.0_JPRB, 150.0_JPRB, 151.0_JPRB, 152.0_JPRB, 153.0_JPRB, 154.0_JPRB, 155.0_JPRB, 156.0_JPRB, 157.0_JPRB, 158.0_JPRB, 159.0_JPRB, 160.0_JPRB, 161.0_JPRB, 162.0_JPRB, 163.0_JPRB, 164.0_JPRB, 165.0_JPRB, 166.0_JPRB, 167.0_JPRB, 168.0_JPRB, 169.0_JPRB, 170.0_JPRB, 171.0_JPRB, 172.0_JPRB, 173.0_JPRB, 174.0_JPRB, 175.0_JPRB, 176.0_JPRB, 177.0_JPRB, 178.0_JPRB, 179.0_JPRB, 180.0_JPRB /)

integer(kind=jpim), parameter	rttov_const::nwcl_max = 5

integer(kind=jpim), parameter	rttov_const::wcl_id_stco = 1

integer(kind=jpim), parameter	rttov_const::wcl_id_stma = 2

integer(kind=jpim), parameter	rttov_const::wcl_id_cucc = 3

integer(kind=jpim), parameter	rttov_const::wcl_id_cucp = 4

integer(kind=jpim), parameter	rttov_const::wcl_id_cuma = 5

character(len=4), dimension(nwcl_max), parameter	rttov_const::wcl_name = (/ 'stco', 'stma', 'cucc', 'cucp', 'cuma' /)

integer(kind=jpim), parameter	rttov_const::ncldtyp = 6

real(kind=jprb), parameter	rttov_const::e00 = 611.21_JPRB

real(kind=jprb), parameter	rttov_const::t00 = 273.16_JPRB

real(kind=jprb), parameter	rttov_const::ti = T00 - 23.0_JPRB

real(kind=jprb), parameter	rttov_const::min_tau = 1.0E-8_JPRB

real(kind=jprb), parameter	rttov_const::min_od = 1.0E-5_JPRB

real(kind=jprb), parameter	rttov_const::rttov9_wv0690_50 = 690.50_JPRB

real(kind=jprb), parameter	rttov_const::rttov9_wv1050_00 = 1050.00_JPRB

real(kind=jprb), parameter	rttov_const::rttov9_wv1095_25 = 1095.25_JPRB

real(kind=jprb), parameter	rttov_const::rttov9_wv1100_25 = 1100.25_JPRB

real(kind=jprb), parameter	rttov_const::rttov9_wv1350_25 = 1350.25_JPRB

real(kind=jprb), parameter	rttov_const::rttov9_wv1750_25 = 1750.25_JPRB

real(kind=jprb), parameter	rttov_const::rttov9_wv1900_25 = 1900.25_JPRB

real(kind=jprb), parameter	rttov_const::rttov9_wv1995_00 = 1995.00_JPRB

real(kind=jprb), parameter	rttov_const::rttov9_wv2000_00 = 2000.00_JPRB

real(kind=jprb), parameter	rttov_const::rttov9_wv2250_00 = 2250.00_JPRB

real(kind=jprb), parameter	rttov_const::rttov9_wv2295_25 = 2295.25_JPRB

real(kind=jprb), parameter	rttov_const::rttov9_wv2360_00 = 2360.00_JPRB

real(kind=jprb), parameter	rttov_const::rttov9_wv2380_25 = 2380.25_JPRB

real(kind=jprb), parameter	rttov_const::rttov9_wv2660_25 = 2660.25_JPRB

real(kind=jprb), parameter	rttov_const::rttov9_wv2760_25 = 2760.25_JPRB

real(kind=jprb), parameter	rttov_const::overcast_albedo_wvn = 10000._JPRB

real(kind=jprb), parameter	rttov_const::overcast_albedo1 = 0.7_JPRB

real(kind=jprb), parameter	rttov_const::overcast_albedo2 = 0.6_JPRB

real(kind=jprb), parameter	rttov_const::ray_min_wvn = 5000.0_JPRB

real(kind=jprb), parameter	rttov_const::ray_scs_wlm = 0.5_JPRB

real(kind=jprb), parameter	rttov_const::ray_scs_a1 = 3.01577E-28_JPRB

real(kind=jprb), parameter	rttov_const::ray_scs_b1 = -3.55212_JPRB

real(kind=jprb), parameter	rttov_const::ray_scs_c1 = -1.35579_JPRB

real(kind=jprb), parameter	rttov_const::ray_scs_d1 = -0.11563_JPRB

real(kind=jprb), parameter	rttov_const::ray_scs_a2 = 4.01061E-28_JPRB

real(kind=jprb), parameter	rttov_const::ray_scs_b2 = -3.99668_JPRB

real(kind=jprb), parameter	rttov_const::ray_scs_c2 = -1.10298E-3_JPRB

real(kind=jprb), parameter	rttov_const::ray_scs_d2 = -2.71393E-2_JPRB

integer(kind=jpim), parameter	rttov_const::ninterp_modes = 5_JPIM

integer(kind=jpim), parameter	rttov_const::interp_rochon = 1_JPIM

integer(kind=jpim), parameter	rttov_const::interp_loglinear = 2_JPIM

integer(kind=jpim), parameter	rttov_const::interp_rochon_loglinear = 3_JPIM

integer(kind=jpim), parameter	rttov_const::interp_rochon_wfn = 4_JPIM

integer(kind=jpim), parameter	rttov_const::interp_rochon_loglinear_wfn = 5_JPIM

Modules

Variables