compute_tau Subroutine
public subroutine compute_tau(ncol, nlay, nnu, ngas, absorption_coeffs, play, pref, layer_mass, tau) bind(C, name="0")
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | ncol | |||
| integer, | intent(in) | :: | nlay | |||
| integer, | intent(in) | :: | nnu | |||
| integer, | intent(in) | :: | ngas | |||
| real(kind=wp), | intent(in), | dimension(ngas, nnu) | :: | absorption_coeffs | ||
| real(kind=wp), | intent(in), | dimension(ncol, nlay) | :: | play | layer pressures [Pa]; (ncol,nlay) |
|
| real(kind=wp), | intent(in) | :: | pref | reference pressure [Pa], do foreign broadening if this is non-zero |
||
| real(kind=wp), | intent(in), | dimension(ngas, ncol, nlay) | :: | layer_mass | !! mass of atm layer [kg/m2]; (ngas, ncol, nlay) |
|
| real(kind=wp), | intent(out), | dimension(ncol, nlay, nnu) | :: | tau |