|
| subroutine, public | radae::radabs (lchnk, ncol, pbr, pnm, co2em, co2eml, tplnka, s2c, tcg, w, h2otr, plco2, plh2o, co2t, tint, tlayr, plol, plos, pmln, piln, ucfc11, ucfc12, un2o0, un2o1, uch4, uco211, uco212, uco213, uco221, uco222, uco223, uptype, bn2o0, bn2o1, bch4, abplnk1, abplnk2, abstot, absnxt, plh2ob, wb, odap_aer, aer_trn_ttl, co2mmr) |
| |
| subroutine, public | radae::radems (lchnk, ncol, s2c, tcg, w, tplnke, plh2o, pnm, plco2, tint, tint4, tlayr, tlayr4, plol, plos, ucfc11, ucfc12, un2o0, un2o1, uch4, uco211, uco212, uco213, uco221, uco222, uco223, uptype, bn2o0, bn2o1, bch4, co2em, co2eml, co2t, h2otr, abplnk1, abplnk2, emstot, plh2ob, wb, aer_trn_ttl, co2mmr) |
| |
| subroutine, public | radae::radtpl (ncol, tnm, lwupcgs, qnm, pnm, plco2, plh2o, tplnka, s2c, tcg, w, tplnke, tint, tint4, tlayr, tlayr4, pmln, piln, plh2ob, wb, co2mmr) |
| |
| subroutine, public | radae::radae_init (gravx, epsilox, stebol, pstdx, mwdryx, mwco2x, mwo3x) |
| |
| subroutine, public | radae::initialize_radbuffer |
| |
| subroutine, public | radae::radoz2 (ncol, o3, pint, plol, plos) |
| |
| subroutine, public | radae::trcpth (ncol, tnm, pnm, cfc11, cfc12, n2o, ch4, qnm, ucfc11, ucfc12, un2o0, un2o1, uch4, uco211, uco212, uco213, uco221, uco222, uco223, bn2o0, bn2o1, bch4, uptype, co2mmr) |
| |
| real(r8) function | radae::fh2oself (temp) |
| |
| real(r8) function | radae::phi (tpx, iband) |
| |
| real(r8) function | radae::psi (tpx, iband) |
| |
| subroutine | radae::trcab (ncol, k1, k2, ucfc11, ucfc12, un2o0, un2o1, uch4, uco211, uco212, uco213, uco221, uco222, uco223, bn2o0, bn2o1, bch4, to3co2, pnm, dw, pnew, s2c, uptype, dplh2o, abplnk1, tco2, th2o, to3, abstrc, aer_trn_ttl) |
| |
| subroutine | radae::trcabn (ncol, k2, kn, ucfc11, ucfc12, un2o0, un2o1, uch4, uco211, uco212, uco213, uco221, uco222, uco223, tbar, bplnk, winpl, pinpl, tco2, th2o, to3, uptype, dw, s2c, up2, pnew, abstrc, uinpl, aer_trn_ngh) |
| |
| subroutine | radae::trcems (ncol, k, co2t, pnm, ucfc11, ucfc12, un2o0, un2o1, bn2o0, bn2o1, uch4, bch4, uco211, uco212, uco213, uco221, uco222, uco223, uptype, w, s2c, up2, emplnk, th2o, tco2, to3, emstrc, aer_trn_ttl) |
| |
| subroutine | radae::trcplk (ncol, tint, tlayr, tplnke, emplnk, abplnk1, abplnk2) |
| |
|
| integer, parameter, public | radae::nbands = 2 |
| |
| real(r8), dimension(:,:,:,:), allocatable, target, public | radae::abstot_3d |
| |
| real(r8), dimension(:,:,:,:), allocatable, target, public | radae::absnxt_3d |
| |
| real(r8), dimension(:,:,:), allocatable, target, public | radae::emstot_3d |
| |
| integer, public | radae::ntoplw |
| |
| real(r8) | radae::p0 |
| |
| real(r8) | radae::amd |
| |
| real(r8) | radae::amco2 |
| |
| real(r8) | radae::mwo3 |
| |
| real(r8) | radae::gravit |
| |
| real(r8) | radae::gravit_cgs |
| |
| real(r8) | radae::rga |
| |
| real(r8) | radae::epsilo |
| |
| real(r8) | radae::omeps |
| |
| real(r8) | radae::sslp |
| |
| real(r8) | radae::stebol_cgs |
| |
| real(r8) | radae::rgsslp |
| |
| real(r8) | radae::dpfo3 |
| |
| real(r8) | radae::dpfco2 |
| |
| integer, parameter | radae::n_u = 25 |
| |
| integer, parameter | radae::n_p = 10 |
| |
| integer, parameter | radae::n_tp = 10 |
| |
| integer, parameter | radae::n_te = 21 |
| |
| integer, parameter | radae::n_rh = 7 |
| |
| real(r8), dimension(n_p, n_tp, n_u, n_te, n_rh) | radae::ah2onw |
| |
| real(r8), dimension(n_p, n_tp, n_u, n_te, n_rh) | radae::eh2onw |
| |
| real(r8), dimension(n_p, n_tp, n_u, n_te, n_rh) | radae::ah2ow |
| |
| real(r8), dimension(n_p, n_tp, n_u, n_te, n_rh) | radae::cn_ah2ow |
| |
| real(r8), dimension(n_p, n_tp, n_u, n_te, n_rh) | radae::cn_eh2ow |
| |
| real(r8), dimension(n_p, n_tp, n_u, n_te, n_rh) | radae::ln_ah2ow |
| |
| real(r8), dimension(n_p, n_tp, n_u, n_te, n_rh) | radae::ln_eh2ow |
| |
| real(r8), dimension(2, 4) | radae::coefh = reshape( (/ (/5.46557e+01_r8,-7.30387e-02_r8/), (/1.09311e+02_r8,-1.46077e-01_r8/), (/5.11479e+01_r8,-6.82615e-02_r8/), (/1.02296e+02_r8,-1.36523e-01_r8/) /), (/2,4/) ) |
| |
| real(r8), dimension(3, 2) | radae::coefj = reshape( (/ (/2.82096e-02_r8,2.47836e-04_r8,1.16904e-06_r8/), (/9.27379e-02_r8,8.04454e-04_r8,6.88844e-06_r8/) /), (/3,2/) ) |
| |
| real(r8), dimension(3, 2) | radae::coefk = reshape( (/ (/2.48852e-01_r8,2.09667e-03_r8,2.60377e-06_r8/) , (/1.03594e+00_r8,6.58620e-03_r8,4.04456e-06_r8/) /), (/3,2/) ) |
| |
| real(r8) | radae::c16 |
| |
| real(r8) | radae::c17 |
| |
| real(r8) | radae::c26 |
| |
| real(r8) | radae::c27 |
| |
| real(r8) | radae::c28 |
| |
| real(r8) | radae::c29 |
| |
| real(r8) | radae::c30 |
| |
| real(r8) | radae::c31 |
| |
| real(r8) | radae::fwcoef |
| |
| real(r8) | radae::fwc1 |
| |
| real(r8) | radae::fwc2 |
| |
| real(r8) | radae::fc1 |
| |
| real(r8), parameter | radae::min_tp_h2o = 160.0_r8 |
| |
| real(r8), parameter | radae::max_tp_h2o = 349.999999_r8 |
| |
| integer, parameter | radae::ntemp = 192 |
| |
| integer, parameter | radae::o_fa = 6 |
| |
| integer, parameter | radae::o_fe = 6 |
| |
| real(r8), dimension(o_fa, nbands), parameter | radae::fat = reshape( (/ (/-1.06665373E-01_r8, 2.90617375E-02_r8, -2.70642049E-04_r8, 1.07595511E-06_r8, -1.97419681E-09_r8, 1.37763374E-12_r8/), (/ 1.10666537E+00_r8, -2.90617375E-02_r8, 2.70642049E-04_r8, -1.07595511E-06_r8, 1.97419681E-09_r8, -1.37763374E-12_r8/) /), (/o_fa,nbands/) ) |
| |
| real(r8), dimension(o_fe, nbands), parameter | radae::fet = reshape( (/ (/3.46148163E-01_r8, 1.51240299E-02_r8, -1.21846479E-04_r8, 4.04970123E-07_r8, -6.15368936E-10_r8, 3.52415071E-13_r8/), (/6.53851837E-01_r8, -1.51240299E-02_r8, 1.21846479E-04_r8, -4.04970123E-07_r8, 6.15368936E-10_r8, -3.52415071E-13_r8/) /), (/o_fa,nbands/) ) |
| |
| real(r8), parameter | radae::min_lp_h2o = -3.0_r8 |
| |
| real(r8), parameter | radae::min_p_h2o = 1.0e-3_r8 |
| |
| real(r8), parameter | radae::max_lp_h2o = -0.0000001_r8 |
| |
| real(r8), parameter | radae::dlp_h2o = 0.3333333333333_r8 |
| |
| real(r8), parameter | radae::dtp_h2o = 21.111111111111_r8 |
| |
| real(r8), parameter | radae::min_rh_h2o = 0.0_r8 |
| |
| real(r8), parameter | radae::max_rh_h2o = 1.19999999_r8 |
| |
| real(r8), parameter | radae::drh_h2o = 0.2_r8 |
| |
| real(r8), parameter | radae::min_te_h2o = -120.0_r8 |
| |
| real(r8), parameter | radae::max_te_h2o = 79.999999_r8 |
| |
| real(r8), parameter | radae::dte_h2o = 10.0_r8 |
| |
| real(r8), parameter | radae::min_lu_h2o = -8.0_r8 |
| |
| real(r8), parameter | radae::min_u_h2o = 1.0e-8_r8 |
| |
| real(r8), parameter | radae::max_lu_h2o = 3.9999999_r8 |
| |
| real(r8), parameter | radae::dlu_h2o = 0.5_r8 |
| |
| real(r8), dimension(6), parameter | radae::g1 =(/0.0468556_r8,0.0397454_r8,0.0407664_r8,0.0304380_r8,0.0540398_r8,0.0321962_r8/) |
| |
| real(r8), dimension(6), parameter | radae::g2 =(/14.4832_r8,4.30242_r8,5.23523_r8,3.25342_r8,0.698935_r8,16.5599_r8/) |
| |
| real(r8), dimension(6), parameter | radae::g3 =(/26.1898_r8,18.4476_r8,15.3633_r8,12.1927_r8,9.14992_r8,8.07092_r8/) |
| |
| real(r8), dimension(6), parameter | radae::g4 =(/0.0261782_r8,0.0369516_r8,0.0307266_r8,0.0243854_r8,0.0182932_r8,0.0161418_r8/) |
| |
| real(r8), dimension(6), parameter | radae::ab =(/3.0857e-2_r8,2.3524e-2_r8,1.7310e-2_r8,2.6661e-2_r8,2.8074e-2_r8,2.2915e-2_r8/) |
| |
| real(r8), dimension(6), parameter | radae::bb =(/-1.3512e-4_r8,-6.8320e-5_r8,-3.2609e-5_r8,-1.0228e-5_r8,-9.5743e-5_r8,-1.0304e-4_r8/) |
| |
| real(r8), dimension(6), parameter | radae::abp =(/2.9129e-2_r8,2.4101e-2_r8,1.9821e-2_r8,2.6904e-2_r8,2.9458e-2_r8,1.9892e-2_r8/) |
| |
| real(r8), dimension(6), parameter | radae::bbp =(/-1.3139e-4_r8,-5.5688e-5_r8,-4.6380e-5_r8,-8.0362e-5_r8,-1.0115e-4_r8,-8.8061e-5_r8/) |
| |
1.8.13