; This file specifies the calculation of shortwave and longwave fluxes. It uses ; an input profile as well as standard profiles. It illustrates the use ; of the REPLACE command with two different looping structures. OPTIONS .TRUE. ; Compute fluxes (or radiances)? (FLUXES) .FALSE. ; Include thermal emission in band 106? (IR106) .TRUE. ; Compute cloud forcing? (CLDFRC) 2 2 ; Number of streams, short and long (NSTR*) 0 ; Number of Legendre coeff. (NCOEF) .TRUE. ; Include gaseous absorption? (GASABS) .TRUE. ; Include Rayleigh scatter (shortwave)? (RAYLISHRT) 2 ; Surface albedo control (ALBTYPE) 4 ; Surface emissivity control (EMISSTYPE) 5 .TRUE. ; Std prof; extend input profile to 100 km? 5 1 ; Aerosol model and profile 1 2 3 1 1 3 3 ; Height, temp, wv, oz, cloud units, band spec. 4 ; Output levels control .TRUE. ; Descriptive output desired? testflx.des .FALSE. ; User-customized output? .FALSE. ; Read cloud optical properties? CASE Clear sky only, April conditions 92 4 28 22.0 72.88 144.50 -99.0 ; Viewing geometry 1 129 0.75 2 1 0.05 5 0.95 -25.15 0.99 0 ; Cloud overlap 1 1 1 1 0 0 13 1.0 1.0 1.0 1.0 1.0 1.0 14.101 125.4 -50.9 2.0 10.948 204.9 -56.2 7.0 8.486 303.5 -60.2 35.0 7.864 335.1 -57.1 43.0 6.651 404.8 -50.0 47.0 6.041 444.1 -45.5 43.0 4.860 528.4 -36.8 58.0 3.702 622.4 -26.8 39.0 2.618 721.7 -19.7 67.0 1.592 828.2 -16.2 72.0 0.973 898.3 -10.9 60.0 0.577 945.8 -12.2 67.0 0.000 1022.0 -23.2 78.0 300.0 0.25 CASE Cloudy sky, 2 clouds, April conditions, shortwave only 92 4 28 22.0 72.88 144.50 -99.0 ; Viewing geometry 106 129 0.75 2 1 0.05 5 0.95 -25.15 0.99 2 1 0.4 -19.15 725.0 999 5.0 1 0 6.0 0.1 999 999 999 3 0.6 -60.15 300.0 999 1.0 1 1 20.0 0.01 999 999 999 0 ; Cloud overlap -1 -1 -1 -1 0 0 13 1.0 1.0 1.0 1.0 1.0 1.0 SETDATA Some clear sky, some cloudy sky, 2 clouds, April conditions, longwave, loops 92 4 28 22.0 72.88 144.50 -99.0 1 105 0.75 2 1 0.05 5 0.95 -25.15 0.99 2 1 0.4 999 725.0 999 5.0 1 0 6.0 0.1 999 999 999 2 0.6 999 300.0 999 1.0 1 0 9.0 0.2 999 999 999 0 2 2 2 2 2 2 0 1.0 1.0 1.0 1.0 1.0 1.0 REPLACE cldtau(2)=(0, 8, 4), cldre1(1)=[8., 10.]