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

TypeIntentOptionalAttributesName
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


Contents

None