compute_tau_rayleigh Subroutine

public subroutine compute_tau_rayleigh(ncol, nlay, nbnd, ngpt, ngas, nflav, neta, npres, ntemp, gpoint_flavor, band_lims_gpt, krayl, idx_h2o, col_dry, col_gas, fminor, jeta, tropo, jtemp, tau_rayleigh) 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) :: ngas

table 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), dimension(2,ngpt):: gpoint_flavor

major gas flavor (pair) by upper/lower, g-point

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,ngpt,2):: krayl

Rayleigh scattering coefficients

integer, intent(in) :: idx_h2o

index of water vapor in col_gas

real(kind=wp), intent(in), dimension(ncol,nlay):: col_dry

column amount of dry air

real(kind=wp), intent(in), dimension(ncol,nlay,0:ngas):: col_gas

input column gas amount (molecules/cm^2)

real(kind=wp), intent(in), dimension(2,2,ncol,nlay,nflav):: fminor

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 - computed in interpolation()

real(kind=wp), intent(out), dimension(ncol,nlay,ngpt):: tau_rayleigh

Rayleigh optical depth


Contents

None