CCPP SciDoc v7.0.0  v7.0.0
Common Community Physics Package Developed at DTC
 
Loading...
Searching...
No Matches
mo_rcemip_profiles Module Reference

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))