& select_ZenAlbedo, exf_debugLev,
integer select_ZenAlbedo
IF ( select_ZenAlbedo.EQ.2 .) THEN
IF ( select_ZenAlbedo.GT.2 .AND. swdownperiod.GT. 21600 ) THEN
IF ( select_ZenAlbedo.GT.2 .AND. swdownperiod.GT. 3600 ) then
& select_ZenAlbedo .NE. 0 ) THEN
IF ( select_ZenAlbedo.LT.0 .OR. select_ZenAlbedo.GT.3 ) THEN
select_ZenAlbedo = 0
& select_ZenAlbedo, useExfZenIncoming,
IF ( select_ZenAlbedo.GT.0 ) THEN
CALL WRITE_0D_I( select_ZenAlbedo,INDEX_NONE,'select_ZenAlbedo =',
IF ( select_ZenAlbedo.EQ. 2) THEN
ELSEIF ( select_ZenAlbedo.EQ. 3) THEN
IF ( select_ZenAlbedo.EQ. 0) THEN
ELSEIF ( select_ZenAlbedo.EQ. 1) then