compute_Planck_source Subroutine
public subroutine compute_Planck_source(ncol, nlay, nbnd, ngpt, nflav, neta, npres, ntemp, nPlanckTemp, tlay, tlev, tsfc, sfc_lay, fmajor, jeta, tropo, jtemp, jpress, gpoint_bands, band_lims_gpt, pfracin, temp_ref_min, totplnk_delta, totplnk, gpoint_flavor, sfc_src, lay_src, lev_src, sfc_source_Jac) bind(C, name="0")
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | ncol | input dimensions |
||
| integer, | intent(in) | :: | nlay | input dimensions |
||
| integer, | intent(in) | :: | nbnd | input dimensions |
||
| integer, | intent(in) | :: | ngpt | input dimensions |
||
| integer, | intent(in) | :: | nflav | table dimensions |
||
| integer, | intent(in) | :: | neta | table dimensions |
||
| integer, | intent(in) | :: | npres | table dimensions |
||
| integer, | intent(in) | :: | ntemp | table dimensions |
||
| integer, | intent(in) | :: | nPlanckTemp | table dimensions |
||
| real(kind=wp), | intent(in), | dimension(ncol,nlay ) | :: | tlay | temperature at layer centers (K) |
|
| real(kind=wp), | intent(in), | dimension(ncol,nlay+1) | :: | tlev | temperature at interfaces (K) |
|
| real(kind=wp), | intent(in), | dimension(ncol ) | :: | tsfc | surface temperture |
|
| integer, | intent(in) | :: | sfc_lay | index into surface layer |
||
| real(kind=wp), | intent(in), | dimension(2,2,2,ncol,nlay,nflav) | :: | fmajor | interpolation weights for major gases - computed in interpolation() |
|
| integer, | intent(in), | dimension(2, ncol,nlay,nflav) | :: | jeta | interpolation indexes in eta - computed in interpolation() |
|
| logical(kind=wl), | intent(in), | dimension( ncol,nlay) | :: | tropo | use upper- or lower-atmospheric tables? |
|
| integer, | intent(in), | dimension( ncol,nlay) | :: | jtemp | interpolation indexes in temperature and pressure - computed in interpolation() |
|
| integer, | intent(in), | dimension( ncol,nlay) | :: | jpress | interpolation indexes in temperature and pressure - computed in interpolation() |
|
| integer, | intent(in), | dimension(ngpt) | :: | gpoint_bands | band to which each g-point belongs |
|
| integer, | intent(in), | dimension(2, nbnd) | :: | band_lims_gpt | start and end g-point for each band |
|
| real(kind=wp), | intent(in), | dimension(ntemp,neta,npres+1,ngpt) | :: | pfracin | Fraction of the Planck function in each g-point |
|
| real(kind=wp), | intent(in) | :: | temp_ref_min | interpolation constants |
||
| real(kind=wp), | intent(in) | :: | totplnk_delta | interpolation constants |
||
| real(kind=wp), | intent(in), | dimension(nPlanckTemp,nbnd) | :: | totplnk | Total Planck function by band at each temperature |
|
| integer, | intent(in), | dimension(2,ngpt) | :: | gpoint_flavor | major gas flavor (pair) by upper/lower, g-point |
|
| real(kind=wp), | intent(out), | dimension(ncol, ngpt) | :: | sfc_src | Planck emission from the surface |
|
| real(kind=wp), | intent(out), | dimension(ncol,nlay, ngpt) | :: | lay_src | Planck emission from layer centers |
|
| real(kind=wp), | intent(out), | dimension(ncol,nlay+1,ngpt) | :: | lev_src | Planck emission from layer boundaries |
|
| real(kind=wp), | intent(out), | dimension(ncol, ngpt) | :: | sfc_source_Jac | Jacobian (derivative) of the surface Planck source with respect to surface temperature |