CAM
|
Functions/Subroutines | |
subroutine, public | neu_wetdep_init |
subroutine, public | neu_wetdep_tend (lchnk, ncol, mmr, pmid, pdel, zint, tfld, delt, prain, nevapr, cld, cmfdqr, wd_tend) |
subroutine | washo (LPAR, NTRACE, DTSCAV, QTTJFL, QM, POFL, DELZ, RLS, CLWC, CIWC, CFR, TEM, EVAPRATE, GAREA, HSTAR, TCMASS, TCKAQB, TCNION, qt_rain, qt_rime, qt_wash, qt_evap) |
subroutine | disgas (CLWX, CFX, MOLMASS, HSTAR, TM, PR, QM, QT, QTDIS) |
subroutine | raingas (RRAIN, DTSCAV, CLWX, CFX, QM, QT, QTDIS, QTRAIN) |
subroutine | washgas (RWASH, BOXF, DTSCAV, QTRTOP, HSTAR, TM, PR, QM, QT, QTWASH, QTEVAP) |
real(r8) function | dempirical (CWATER, RRATE) |
real(r8) function | gamma (X) |
Variables | |
integer, dimension(:), allocatable | mapping_to_heff |
integer, dimension(:), allocatable | mapping_to_mmr |
real(r8), dimension(:), allocatable | mol_weight |
logical, dimension(:), allocatable | ice_uptake |
integer | index_cldice |
integer | index_cldliq |
integer | nh3_ndx |
integer | co2_ndx |
logical | debug = .false. |
integer | hno3_ndx = 0 |
logical | do_diag = .false. |
integer, parameter | kdiag = 18 |
real(r8), parameter | zero = 0._r8 |
real(r8), parameter | one = 1._r8 |
logical, public | do_neu_wetdep |
|
private |
|
private |
|
private |
subroutine, public mo_neu_wetdep::neu_wetdep_init | ( | ) |
subroutine, public mo_neu_wetdep::neu_wetdep_tend | ( | integer, intent(in) | lchnk, |
integer, intent(in) | ncol, | ||
real(r8), dimension(pcols,pver,pcnst), intent(in) | mmr, | ||
real(r8), dimension(pcols,pver), intent(in) | pmid, | ||
real(r8), dimension(pcols,pver), intent(in) | pdel, | ||
real(r8), dimension(pcols,pver+1), intent(in) | zint, | ||
real(r8), dimension(pcols,pver), intent(in) | tfld, | ||
real(r8), intent(in) | delt, | ||
real(r8), dimension(ncol, pver), intent(in) | prain, | ||
real(r8), dimension(ncol, pver), intent(in) | nevapr, | ||
real(r8), dimension(ncol, pver), intent(in) | cld, | ||
real(r8), dimension(ncol, pver), intent(in) | cmfdqr, | ||
real(r8), dimension(pcols,pver,pcnst), intent(inout) | wd_tend | ||
) |
|
private |
|
private |
subroutine mo_neu_wetdep::washo | ( | integer | LPAR, |
integer | NTRACE, | ||
real(r8), intent(in) | DTSCAV, | ||
real(r8), dimension(lpar,ntrace), intent(inout) | QTTJFL, | ||
real(r8), dimension(lpar), intent(in) | QM, | ||
real(r8), dimension(lpar), intent(in) | POFL, | ||
real(r8), dimension(lpar), intent(in) | DELZ, | ||
real(r8), dimension(lpar), intent(in) | RLS, | ||
real(r8), dimension(lpar), intent(in) | CLWC, | ||
real(r8), dimension(lpar), intent(in) | CIWC, | ||
real(r8), dimension(lpar), intent(in) | CFR, | ||
real(r8), dimension(lpar), intent(in) | TEM, | ||
EVAPRATE, | |||
real(r8), intent(in) | GAREA, | ||
real(r8), dimension(lpar,ntrace), intent(in) | HSTAR, | ||
real(r8), dimension(ntrace), intent(in) | TCMASS, | ||
logical, dimension(ntrace), intent(in) | TCKAQB, | ||
logical, dimension(ntrace), intent(in) | TCNION, | ||
real(r8), dimension(lpar), intent(inout) | qt_rain, | ||
real(r8), dimension(lpar), intent(inout) | qt_rime, | ||
real(r8), dimension(lpar), intent(inout) | qt_wash, | ||
real(r8), dimension(lpar), intent(inout) | qt_evap | ||
) |
|
private |
|
private |
|
private |
logical, public mo_neu_wetdep::do_neu_wetdep |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |