Compute the absorption of upward long-wave radiation fluxes
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real, | intent(in) | :: | ta(ix,il,kx) | Absolute temperature |
||
real, | intent(in) | :: | ts(ix,il) | Surface temperature |
||
real, | intent(in) | :: | fsfcd(ix,il) | Downward flux of long-wave radiation at the surface |
||
real, | intent(in) | :: | fsfcu(ix,il) | Surface blackbody emission |
||
real, | intent(out) | :: | fsfc(ix,il) | Net upward flux of long-wave radiation at the surface |
||
real, | intent(out) | :: | ftop(ix,il) | Outgoing flux of long-wave radiation at the top of the atmosphere |
||
real, | intent(inout) | :: | dfabs(ix,il,kx) | Flux of long-wave radiation absorbed in each atmospheric layer |