& select_ZenAlbedo, exf_debugLev,
INTEGER select_ZenAlbedo
IF ( ( useExfZenIncoming .OR. select_ZenAlbedo.NE.0 ) .AND.
IF ( select_ZenAlbedo.LT.0 .OR. select_ZenAlbedo.GT.3 ) THEN
IF ( select_ZenAlbedo.EQ.2 ) THEN
IF ( select_ZenAlbedo.EQ.3 .AND. swdownperiod.GT.21600. ) THEN
IF ( select_ZenAlbedo.EQ.3 .AND. swdownperiod.GT.3600. ) THEN
IF ( useExfZenIncoming .OR. select_ZenAlbedo.NE.0 ) THEN
useExfZenAlbedo = select_ZenAlbedo.GE.1
& .AND. select_ZenAlbedo.LE.3
select_ZenAlbedo = 0
& select_ZenAlbedo, useExfZenIncoming,
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.3 ) THEN
ELSEIF ( select_ZenAlbedo.EQ.2 ) THEN