subroutine public mo_gas_optics_kernels::compute_planck_source |
( |
integer, intent(in) | ncol, |
|
|
integer, intent(in) | nlay, |
|
|
integer, intent(in) | nbnd, |
|
|
integer, intent(in) | ngpt, |
|
|
integer, intent(in) | nflav, |
|
|
integer, intent(in) | neta, |
|
|
integer, intent(in) | npres, |
|
|
integer, intent(in) | ntemp, |
|
|
integer, intent(in) | nplancktemp, |
|
|
real(wp), dimension(ncol,nlay ), intent(in) | tlay, |
|
|
real(wp), dimension(ncol,nlay+1), intent(in) | tlev, |
|
|
real(wp), dimension(ncol ), intent(in) | tsfc, |
|
|
integer, intent(in) | sfc_lay, |
|
|
real(wp), dimension(2,2,2,ncol,nlay,nflav), intent(in) | fmajor, |
|
|
integer, dimension(2, ncol,nlay,nflav), intent(in) | jeta, |
|
|
logical(wl), dimension( ncol,nlay), intent(in) | tropo, |
|
|
integer, dimension( ncol,nlay), intent(in) | jtemp, |
|
|
integer, dimension( ncol,nlay), intent(in) | jpress, |
|
|
integer, dimension(ngpt), intent(in) | gpoint_bands, |
|
|
integer, dimension(2, nbnd), intent(in) | band_lims_gpt, |
|
|
real(wp), dimension(ntemp,neta,npres+1,ngpt), intent(in) | pfracin, |
|
|
real(wp), intent(in) | temp_ref_min, |
|
|
real(wp), intent(in) | totplnk_delta, |
|
|
real(wp), dimension(nplancktemp,nbnd), intent(in) | totplnk, |
|
|
integer, dimension(2,ngpt), intent(in) | gpoint_flavor, |
|
|
real(wp), dimension(ncol, ngpt), intent(out) | sfc_src, |
|
|
real(wp), dimension(ncol,nlay,ngpt), intent(out) | lay_src, |
|
|
real(wp), dimension(ncol,nlay,ngpt), intent(out) | lev_src_inc, |
|
|
real(wp), dimension(ncol,nlay,ngpt), intent(out) | lev_src_dec, |
|
|
real(wp), dimension(ncol, ngpt), intent(out) | sfc_source_jac ) |