|
| real(c_double), parameter | module_model_constants::epsilon = 1.E-15 |
| |
| real(c_double), parameter | module_model_constants::g = 9.81 |
| |
| real(c_double), parameter | module_model_constants::r_d = 287. |
| |
| real(c_double), parameter | module_model_constants::cp = 7.*r_d/2. |
| |
| real(c_double), parameter | module_model_constants::r_v = 461.6 |
| |
| real(c_double), parameter | module_model_constants::cv = cp-r_d |
| |
| real(c_double), parameter | module_model_constants::cpv = 4.*r_v |
| |
| real(c_double), parameter | module_model_constants::cvv = cpv-r_v |
| |
| real(c_double), parameter | module_model_constants::cvpm = -cv/cp |
| |
| real(c_double), parameter | module_model_constants::cliq = 4190. |
| |
| real(c_double), parameter | module_model_constants::cice = 2106. |
| |
| real(c_double), parameter | module_model_constants::psat = 610.78 |
| |
| real(c_double), parameter | module_model_constants::rcv = r_d/cv |
| |
| real(c_double), parameter | module_model_constants::rcp = r_d/cp |
| |
| real(c_double), parameter | module_model_constants::rovg = r_d/g |
| |
| real(c_double), parameter | module_model_constants::c2 = cp * rcv |
| |
| real, parameter | module_model_constants::mwdry = 28.966 |
| |
| real(c_double), parameter | module_model_constants::p1000mb = 100000. |
| |
| real(c_double), parameter | module_model_constants::t0 = 300. |
| |
| real(c_double), parameter | module_model_constants::p0 = p1000mb |
| |
| real(c_double), parameter | module_model_constants::cpovcv = cp/(cp-r_d) |
| |
| real(c_double), parameter | module_model_constants::cvovcp = 1./cpovcv |
| |
| real(c_double), parameter | module_model_constants::rvovrd = r_v/r_d |
| |
| real(c_double), parameter | module_model_constants::reradius = 1./6370.0e03 |
| |
| real(c_double), parameter | module_model_constants::asselin = .025 |
| |
| real(c_double), parameter | module_model_constants::cb = 25. |
| |
| real(c_double), parameter | module_model_constants::xlv0 = 3.15E6 |
| |
| real(c_double), parameter | module_model_constants::xlv1 = 2370. |
| |
| real(c_double), parameter | module_model_constants::xls0 = 2.905E6 |
| |
| real(c_double), parameter | module_model_constants::xls1 = 259.532 |
| |
| real(c_double), parameter | module_model_constants::xls = 2.85E6 |
| |
| real(c_double), parameter | module_model_constants::xlv = 2.5E6 |
| |
| real(c_double), parameter | module_model_constants::xlf = 3.50E5 |
| |
| real(c_double), parameter | module_model_constants::rhowater = 1000. |
| |
| real(c_double), parameter | module_model_constants::rhosnow = 100. |
| |
| real(c_double), parameter | module_model_constants::rhoair0 = 1.28 |
| |
| real(c_double), parameter | module_model_constants::re_qc_bg = 2.49E-6 |
| |
| real(c_double), parameter | module_model_constants::re_qi_bg = 4.99E-6 |
| |
| real(c_double), parameter | module_model_constants::re_qs_bg = 9.99E-6 |
| |
| real(c_double), parameter | module_model_constants::re_qc_max = 50.E-6 |
| |
| real(c_double), parameter | module_model_constants::re_qi_max = 125.E-6 |
| |
| real(c_double), parameter | module_model_constants::re_qs_max = 999.E-6 |
| |
| real(c_double), parameter | module_model_constants::piconst = 3.1415926535897932384626433 |
| |
| real(c_double), parameter | module_model_constants::degrad = piconst/180. |
| |
| real(c_double), parameter | module_model_constants::dpd = 360./365. |
| |
| real(c_double), parameter | module_model_constants::svp1 =0.6112 |
| |
| real(c_double), parameter | module_model_constants::svp2 =17.67 |
| |
| real(c_double), parameter | module_model_constants::svp3 =29.65 |
| |
| real(c_double), parameter | module_model_constants::svpt0 =273.15 |
| |
| real(c_double), parameter | module_model_constants::ep_1 =R_v/R_d-1. |
| |
| real(c_double), parameter | module_model_constants::ep_2 =R_d/R_v |
| |
| real(c_double), parameter | module_model_constants::karman =0.4 |
| |
| real(c_double), parameter | module_model_constants::eomeg =7.2921E-5 |
| |
| real(c_double), parameter | module_model_constants::stbolt =5.67051E-8 |
| |
| real(c_double), parameter | module_model_constants::prandtl = 1./3.0 |
| |
| real(c_double), parameter | module_model_constants::w_alpha = 0.3 |
| |
| real(c_double), parameter | module_model_constants::w_beta = 1.0 |
| |
| real(c_double), parameter | module_model_constants::pq0 =379.90516 |
| |
| real(c_double), parameter | module_model_constants::epsq2 =0.2 |
| |
| real(c_double), parameter | module_model_constants::a2 =17.2693882 |
| |
| real(c_double), parameter | module_model_constants::a3 =273.16 |
| |
| real(c_double), parameter | module_model_constants::a4 =35.86 |
| |
| real(c_double), parameter | module_model_constants::epsq =1.e-12 |
| |
| real(c_double), parameter | module_model_constants::p608 =rvovrd-1. |
| |
| real(c_double), parameter | module_model_constants::climit =1.e-20 |
| |
| real(c_double), parameter | module_model_constants::cm1 =2937.4 |
| |
| real(c_double), parameter | module_model_constants::cm2 =4.9283 |
| |
| real(c_double), parameter | module_model_constants::cm3 =23.5518 |
| |
| real(c_double), parameter | module_model_constants::defc =0.0 |
| |
| real(c_double), parameter | module_model_constants::defm =99999.0 |
| |
| real(c_double), parameter | module_model_constants::epsfc =1./1.05 |
| |
| real(c_double), parameter | module_model_constants::epswet =0.0 |
| |
| real(c_double), parameter | module_model_constants::fcdif =1./3. |
| |
| real(c_double), parameter | module_model_constants::fcm =0.00003 |
| |
| real(c_double), parameter | module_model_constants::gma =-r_d*(1.-rcp)*0.5 |
| |
| real(c_double), parameter | module_model_constants::p400 =40000.0 |
| |
| real(c_double), parameter | module_model_constants::phitp =15000.0 |
| |
| real(c_double), parameter | module_model_constants::pi2 =2.*3.1415926 |
| |
| real(c_double), parameter | module_model_constants::pi1 =3.1415926 |
| |
| real(c_double), parameter | module_model_constants::plbtm =105000.0 |
| |
| real(c_double), parameter | module_model_constants::plomd =64200.0 |
| |
| real(c_double), parameter | module_model_constants::pmdhi =35000.0 |
| |
| real(c_double), parameter | module_model_constants::q2ini =0.50 |
| |
| real(c_double), parameter | module_model_constants::rfcp =0.25/cp |
| |
| real(c_double), parameter | module_model_constants::rhcrit_land =0.75 |
| |
| real(c_double), parameter | module_model_constants::rhcrit_sea =0.80 |
| |
| real(c_double), parameter | module_model_constants::rlag =14.8125 |
| |
| real(c_double), parameter | module_model_constants::rlx =0.90 |
| |
| real(c_double), parameter | module_model_constants::scq2 =50.0 |
| |
| real(c_double), parameter | module_model_constants::slopht =0.001 |
| |
| real(c_double), parameter | module_model_constants::tlc =2.*0.703972477 |
| |
| real(c_double), parameter | module_model_constants::wa =0.15 |
| |
| real(c_double), parameter | module_model_constants::wght =0.35 |
| |
| real(c_double), parameter | module_model_constants::wpc =0.075 |
| |
| real(c_double), parameter | module_model_constants::z0land =0.10 |
| |
| real(c_double), parameter | module_model_constants::z0max =0.008 |
| |
| real(c_double), parameter | module_model_constants::z0sea =0.001 |
| |
| integer, parameter | module_model_constants::planet_year = 365 |
| |
| real(c_double), parameter | module_model_constants::obliquity = 23.5 |
| |
| real(c_double), parameter | module_model_constants::eccentricity = 0.014 |
| |
| real(c_double), parameter | module_model_constants::semimajoraxis = 1.0 |
| |
| real(c_double), parameter | module_model_constants::zero_date = 0.0 |
| |
| real(c_double), parameter | module_model_constants::equinox_fraction = 0.0 |
| |
| integer, parameter | module_model_constants::zone_solve_em = 1 |
| |
| integer, parameter | module_model_constants::zone_sfs = 2 |
| |
1.9.1 
