|
| real(fp), parameter, public | profile_utility_parameters::zero = 0.0_fp |
| |
| real(fp), parameter, public | profile_utility_parameters::one = 1.0_fp |
| |
| real(fp), parameter, public | profile_utility_parameters::two = 2.0_fp |
| |
| real(fp), parameter, public | profile_utility_parameters::hundred = 100.0_fp |
| |
| real(fp), parameter, public | profile_utility_parameters::tolerance = 2.0e-16_fp |
| |
| real(fp), parameter, public | profile_utility_parameters::celsius_to_kelvin = T0 |
| |
| real(fp), parameter, public | profile_utility_parameters::g_to_kg = 1.0e-03_fp |
| |
| real(fp), parameter, public | profile_utility_parameters::kg_to_g = 1.0e+03_fp |
| |
| real(fp), parameter, public | profile_utility_parameters::pa_to_hpa = 1.0e-02_fp |
| |
| real(fp), parameter, public | profile_utility_parameters::hpa_to_pa = 1.0e+02_fp |
| |
| real(fp), parameter, public | profile_utility_parameters::ppmv_to_ppv = 1.0e-06_fp |
| |
| real(fp), parameter, public | profile_utility_parameters::ppv_to_ppmv = 1.0e+06_fp |
| |
| real(fp), parameter, public | profile_utility_parameters::cm_to_m = 1.0e-02_fp |
| |
| real(fp), parameter, public | profile_utility_parameters::m_to_cm = 1.0e+02_fp |
| |
| real(fp), parameter, public | profile_utility_parameters::from_percent = 1.0e-02_fp |
| |
| real(fp), parameter, public | profile_utility_parameters::to_percent = 1.0e+02_fp |
| |
| integer, parameter, public | profile_utility_parameters::n_absorber_units = 8 |
| |
| integer, parameter, public | profile_utility_parameters::invalid_units = 0 |
| |
| integer, parameter, public | profile_utility_parameters::ppmv_units = 1 |
| |
| integer, parameter, public | profile_utility_parameters::nd_units = 2 |
| |
| integer, parameter, public | profile_utility_parameters::mr_units = 3 |
| |
| integer, parameter, public | profile_utility_parameters::md_units = 4 |
| |
| integer, parameter, public | profile_utility_parameters::pp_units = 5 |
| |
| integer, parameter, public | profile_utility_parameters::dpk_units = 6 |
| |
| integer, parameter, public | profile_utility_parameters::dpc_units = 7 |
| |
| integer, parameter, public | profile_utility_parameters::rh_units = 8 |
| |
| integer, dimension(0:n_absorber_units), parameter, public | profile_utility_parameters::absorber_units_id = (/ INVALID_UNITS, PPMV_UNITS , ND_UNITS , MR_UNITS , MD_UNITS , PP_UNITS , DPK_UNITS , DPC_UNITS , RH_UNITS /) |
| |
| character(*), dimension(0:n_absorber_units), parameter, public | profile_utility_parameters::absorber_units_name = (/ 'Invalid', 'ppmv ', 'cm^-3 ', 'g/kg ', 'g.m^-3 ', 'hPa ', 'DP, K ', 'DP, C ', 'RH, % ' /) |
| |
| character(*), dimension(0:n_absorber_units), parameter, public | profile_utility_parameters::absorber_units_char = (/ '-', 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H' /) |
| |
| integer, parameter, public | profile_utility_parameters::max_n_molecular_species = 32 |
| |
| integer, parameter, public | profile_utility_parameters::id_h2o = 1 |
| |
| integer, parameter, public | profile_utility_parameters::id_co2 = 2 |
| |
| integer, parameter, public | profile_utility_parameters::id_o3 = 3 |
| |
| integer, parameter, public | profile_utility_parameters::id_n2o = 4 |
| |
| integer, parameter, public | profile_utility_parameters::id_co = 5 |
| |
| integer, parameter, public | profile_utility_parameters::id_ch4 = 6 |
| |
| integer, parameter, public | profile_utility_parameters::id_o2 = 7 |
| |
| integer, parameter, public | profile_utility_parameters::id_no = 8 |
| |
| integer, parameter, public | profile_utility_parameters::id_so2 = 9 |
| |
| integer, parameter, public | profile_utility_parameters::id_no2 = 10 |
| |
| integer, parameter, public | profile_utility_parameters::id_nh3 = 11 |
| |
| integer, parameter, public | profile_utility_parameters::id_hno3 = 12 |
| |
| integer, parameter, public | profile_utility_parameters::id_oh = 13 |
| |
| integer, parameter, public | profile_utility_parameters::id_hf = 14 |
| |
| integer, parameter, public | profile_utility_parameters::id_hcl = 15 |
| |
| integer, parameter, public | profile_utility_parameters::id_hbr = 16 |
| |
| integer, parameter, public | profile_utility_parameters::id_hi = 17 |
| |
| integer, parameter, public | profile_utility_parameters::id_clo = 18 |
| |
| integer, parameter, public | profile_utility_parameters::id_ocs = 19 |
| |
| integer, parameter, public | profile_utility_parameters::id_h2co = 20 |
| |
| integer, parameter, public | profile_utility_parameters::id_hocl = 21 |
| |
| integer, parameter, public | profile_utility_parameters::id_n2 = 22 |
| |
| integer, parameter, public | profile_utility_parameters::id_hcn = 23 |
| |
| integer, parameter, public | profile_utility_parameters::id_ch3cl = 24 |
| |
| integer, parameter, public | profile_utility_parameters::id_h2o2 = 25 |
| |
| integer, parameter, public | profile_utility_parameters::id_c2h2 = 26 |
| |
| integer, parameter, public | profile_utility_parameters::id_c2h6 = 27 |
| |
| integer, parameter, public | profile_utility_parameters::id_ph3 = 28 |
| |
| integer, parameter, public | profile_utility_parameters::id_cof2 = 29 |
| |
| integer, parameter, public | profile_utility_parameters::id_sf6 = 30 |
| |
| integer, parameter, public | profile_utility_parameters::id_h2s = 31 |
| |
| integer, parameter, public | profile_utility_parameters::id_hcooh = 32 |
| |
| character(*), dimension(max_n_molecular_species), parameter, public | profile_utility_parameters::molecular_symbol = (/ 'H2O ','CO2 ','O3 ','N2O ', 'CO ','CH4 ','O2 ','NO ', 'SO2 ','NO2 ','NH3 ','HNO3 ', 'OH ','HF ','HCL ','HBR ', 'HI ','CLO ','OCS ','H2CO ', 'HOCL ','N2 ','HCN ','CH3CL', 'H2O2 ','C2H2 ','C2H6 ','PH3 ', 'COF2 ','SF6 ','H2S ','HCOOH' /) |
| |
| real(fp), parameter, public | profile_utility_parameters::mw_h2o = 18.01528_fp |
| |
| real(fp), parameter, public | profile_utility_parameters::mw_co2 = 44.00950_fp |
| |
| real(fp), parameter, public | profile_utility_parameters::mw_o3 = 47.99820_fp |
| |
| real(fp), parameter, public | profile_utility_parameters::mw_n2o = 44.01288_fp |
| |
| real(fp), parameter, public | profile_utility_parameters::mw_co = 28.01010_fp |
| |
| real(fp), parameter, public | profile_utility_parameters::mw_ch4 = 16.04246_fp |
| |
| real(fp), parameter, public | profile_utility_parameters::mw_o2 = 31.99880_fp |
| |
| real(fp), parameter, public | profile_utility_parameters::mw_n2 = 28.01348_fp |
| |
| real(fp), dimension(max_n_molecular_species), parameter, public | profile_utility_parameters::molecular_weight = (/ MW_H2O, MW_CO2, MW_O3, MW_N2O, MW_CO , MW_CH4, MW_O2, 30.00614_fp, 64.06480_fp, 46.00554_fp, 17.03056_fp, 63.01288_fp, 17.00734_fp, 20.00634_fp, 36.46064_fp, 80.91194_fp, 127.91241_fp, 51.45210_fp, 60.07610_fp, 30.02598_fp, 52.46004_fp, MW_N2 , 27.02538_fp, 50.48722_fp, 34.01468_fp, 26.03728_fp, 30.06904_fp, 33.99758_fp, 66.00690_fp, 146.05643_fp, 34.08188_fp, 46.02538_fp /) |
| |
| real(fp), parameter, public | profile_utility_parameters::mw_dryair = 28.9648_fp |
| |
| real(fp), parameter, public | profile_utility_parameters::eps = MW_H2O / MW_DRYAIR |
| |
| real(fp), parameter, public | profile_utility_parameters::r_dryair = R0 / ( MW_DRYAIR * G_TO_KG ) |
| |
| real(fp), parameter, public | profile_utility_parameters::cp_dryair = ( 7.0_fp/TWO ) * R_DRYAIR |
| |
1.8.14