Compute the absorption of upward long-wave radiation fluxes
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=p), | intent(in) | :: | ta(ix,il,kx) | Absolute temperature |
||
| real(kind=p), | intent(in) | :: | ts(ix,il) | Surface temperature |
||
| real(kind=p), | intent(in) | :: | fsfcd(ix,il) | Downward flux of long-wave radiation at the surface |
||
| real(kind=p), | intent(in) | :: | fsfcu(ix,il) | Surface blackbody emission |
||
| real(kind=p), | intent(out) | :: | fsfc(ix,il) | Net upward flux of long-wave radiation at the surface |
||
| real(kind=p), | intent(out) | :: | ftop(ix,il) | Outgoing flux of long-wave radiation at the top of the atmosphere |
||
| real(kind=p), | intent(inout) | :: | dfabs(ix,il,kx) | Flux of long-wave radiation absorbed in each atmospheric layer |
||
| real(kind=p), | intent(in) | :: | fband(100:400,4) | Energy fraction emitted in each LW band = f(T) |
||
| real(kind=p), | intent(inout) | :: | rad_flux(ix,il,4) | Radiative flux in different spectral bands |
||
| real(kind=p), | intent(inout) | :: | rad_tau2(ix,il,kx,4) | Transmissivity of atmospheric layers |
||
| real(kind=p), | intent(in) | :: | rad_st4a(ix,il,kx,2) | Blackbody emission from full and half atmospheric levels |
||
| real(kind=p), | intent(inout) | :: | rad_strat_corr(ix,il,2) | Stratospheric correction term |
||
| real(kind=p), | intent(in) | :: | dhs(kx) | Sigma level thicknesses |