integer select_ZenAlbedo
& select_ZenAlbedo,
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
IF ( select_ZenAlbedo.EQ.2 .) then
IF ( select_ZenAlbedo.GT.2 .AND. swdownperiod.GT. 21600 ) 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. 0) then
elseif ( select_ZenAlbedo.EQ. 1) then
if ( select_ZenAlbedo.EQ. 2) then
elseif ( select_ZenAlbedo.EQ. 3) then