IF (aim_splitSIOsFx) THEN
IF (.NOT.aim_splitSIOsFx) THEN
& aim_energPrecip, aim_splitSIOsFx, aim_clrSkyDiag,
LOGICAL aim_splitSIOsFx
IF (aim_splitSIOsFx) k = 1
ELSEIF ( aim_splitSIOsFx ) THEN
IF ( aim_splitSIOsFx ) THEN
& aim_energPrecip, aim_splitSIOsFx,
aim_splitSIOsFx = .FALSE.
CALL WRITE_0D_L( aim_splitSIOsFx, INDEX_NONE,