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
| 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) | :: | 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 |