subroutine mo_cloud_optics::compute_all_from_pade |
( |
integer, intent(in) | ncol, |
|
|
integer, intent(in) | nlay, |
|
|
integer, intent(in) | nbnd, |
|
|
integer, intent(in) | nsizes, |
|
|
logical(wl), dimension(ncol,nlay), intent(in) | mask, |
|
|
real(wp), dimension(ncol,nlay), intent(in) | lwp, |
|
|
real(wp), dimension(ncol,nlay), intent(in) | re, |
|
|
integer, intent(in) | m_ext, |
|
|
integer, intent(in) | n_ext, |
|
|
real(wp), dimension(nsizes+1), intent(in) | re_bounds_ext, |
|
|
real(wp), dimension(nbnd,nsizes,0:m_ext+n_ext), intent(in) | coeffs_ext, |
|
|
integer, intent(in) | m_ssa, |
|
|
integer, intent(in) | n_ssa, |
|
|
real(wp), dimension(nsizes+1), intent(in) | re_bounds_ssa, |
|
|
real(wp), dimension(nbnd,nsizes,0:m_ssa+n_ssa), intent(in) | coeffs_ssa, |
|
|
integer, intent(in) | m_asy, |
|
|
integer, intent(in) | n_asy, |
|
|
real(wp), dimension(nsizes+1), intent(in) | re_bounds_asy, |
|
|
real(wp), dimension(nbnd,nsizes,0:m_asy+n_asy), intent(in) | coeffs_asy, |
|
|
real(wp), dimension(ncol,nlay,nbnd) | tau, |
|
|
real(wp), dimension(ncol,nlay,nbnd) | taussa, |
|
|
real(wp), dimension(ncol,nlay,nbnd) | taussag ) |
|
private |