CCPP SciDoc v7.0.0  v7.0.0
Common Community Physics Package Developed at DTC
 
Loading...
Searching...
No Matches

◆ compute_planck_source()

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 )

References merge().

Here is the call graph for this function: