Functions/Subroutines | |
elemental subroutine | zt_given_p (p, z, temp, q, o3) |
character(len=128) function, public | make_rcemip_profile_given_p (p, temp, z, gas_concs) |
character(len=128) function, public | make_rcemip_profiles (p_lay, p_lev, t_lay, z_lay, gas_concs, p_min) |
Variables | |
character(len=3), dimension(6), parameter | rcemip_gases = ["h2o", "co2", "o3 ", "ch4", "n2o", "o2 "] |
real(wp), parameter | molar_mass_h2o = 18.015_wp |
real(wp), parameter | molar_mass_air = 28.9644_wp |
real(wp), parameter | g = 9.79764 |
real(wp), parameter | rd = 287.04 |
real(wp), parameter | p0 = 101480 |
real(wp), parameter | qt = 1.E-14 |
real(wp), parameter | zq1 = 4000 |
real(wp), parameter | zq2 = 7500 |
real(wp), parameter | zt = 15000 |
real(wp), parameter | gamma = 0.0067 |
real(wp), parameter | chi_co2 = 348.e-6 |
real(wp), parameter | chi_ch4 = 1650.e-9 |
real(wp), parameter | chi_n2o = 306.e-9 |
real(wp), parameter | sst = 295 |
real(wp), parameter | q0 = 0.01200 |
real(wp), parameter | g1 = 3.6478 |
real(wp), parameter | g2 = 0.83209 |
real(wp), parameter | g3 = 11.3515 |
real(wp), parameter | t0 = SST |
real(wp), parameter | tv0 = T0*(1 + 0.608*q0) |
real(wp), parameter | tvt = Tv0 - gamma*zt |
real(wp), parameter | pt = p0*(Tvt/Tv0)**(g/(Rd*gamma)) |