_RL SWFRACB
& SWFRACB
tmpscal2=SWFRACB*(a_QSWbyATM_cover(I,J)
QSWO_BELOW_FIRST_LAYER(i,j)= QSWO(I,J)*SWFRACB
QSWO_IN_FIRST_LAYER(I,J) = QSWO(I,J)*(1.0 - SWFRACB)
& (1.0 - SWFRACB)
SWFRACB = swfracba(2)